VBA实现单独发送指定工作表为邮件附件报错求助

原代码报错的核心原因是Outlook无法直接将单个工作表作为附件添加，必须先把目标工作表保存为独立的Excel文件，再将该文件作为附件添加到邮件中。以下是修正后的完整代码：

Private Sub cmdEmail_Click()
    '声明变量
    Dim OLApp As Outlook.Application
    Dim OLMail As Object
    Dim tempWB As Workbook
    Dim tempFilePath As String
    
    '生成临时文件路径（使用系统临时文件夹）
    tempFilePath = Environ("TEMP") & "\Database_Temp.xlsx"
    
    '将目标工作表复制到新工作簿
    Set tempWB = Workbooks.Add
    ActiveWorkbook.Sheets("Database").Copy Before:=tempWB.Sheets(1)
    
    '删除新工作簿默认的空白工作表
    Application.DisplayAlerts = False
    tempWB.Sheets(2).Delete
    Application.DisplayAlerts = True
    
    '保存并关闭临时工作簿
    tempWB.SaveAs tempFilePath
    tempWB.Close
    
    '初始化Outlook并创建邮件
    Set OLApp = New Outlook.Application
    Set OLMail = OLApp.CreateItem(0)
    OLApp.Session.Logon
    
    With OLMail
        .To = ""
        .CC = ""
        .BCC = ""
        .Subject = ""
        .Body = ""
        '添加临时文件作为附件
        .Attachments.Add tempFilePath
        .Display
        ' .Send
    End With
    
    '清理临时文件（若需保留可注释此行）
    Kill tempFilePath
    
    '释放内存
    Set OLMail = Nothing
    Set OLApp = Nothing
    Set tempWB = Nothing
End Sub

关键改动说明： #

• 新建临时工作簿，仅保留Database工作表，确保附件内容唯一
• 使用系统临时文件夹存储文件，避免路径冲突和手动清理麻烦
• 附件引用的是临时文件路径，而非直接引用工作表对象
• 可选删除临时文件，避免占用本地存储空间

注意：运行代码前需在VBA编辑器中启用Outlook对象库（路径：工具→引用→勾选「Microsoft Outlook XX.X Object Library」）

内容的提问来源于stack exchange，提问作者TheRabbit