使用vba将excel工作表作为附件添加到outlook电子邮件中

基础概念

VBA（Visual Basic for Applications）是微软开发的一种编程语言，主要用于扩展Windows应用程序的功能，如Microsoft Office套件中的Word、Excel和Outlook等。通过VBA，用户可以自动化执行常规任务，创建自定义函数和过程。

类型

在Excel中使用VBA将工作表作为附件添加到Outlook电子邮件中，主要涉及以下几种类型：

Excel VBA宏：用于操作Excel工作表和数据。
Outlook VBA宏：用于创建和发送电子邮件。

应用场景

自动化报告生成和发送。
数据整理和分析后的结果自动发送给相关人员。

示例代码

以下是一个简单的VBA宏示例，演示如何将Excel工作表作为附件添加到Outlook电子邮件中：

Sub SendWorkbookAsAttachment()
    Dim olApp As Object
    Dim olMail As Object
    Dim wb As Workbook
    Dim FileName As String
    
    ' 创建Outlook应用程序对象
    Set olApp = CreateObject("Outlook.Application")
    
    ' 创建邮件对象
    Set olMail = olApp.CreateItem(0)
    
    ' 设置收件人、主题和正文
    olMail.To = "recipient@example.com"
    olMail.Subject = "Excel Workbook Attachment"
    olMail.Body = "Please find the attached Excel workbook."
    
    ' 打开当前工作簿
    Set wb = ActiveWorkbook
    
    ' 设置附件文件名
    FileName = "C:\Path\To\Your\Workbook.xlsx"
    
    ' 将工作簿保存为文件
    wb.SaveAs FileName, xlOpenXMLWorkbook
    
    ' 添加附件
    olMail.Attachments.Add FileName
    
    ' 发送邮件
    olMail.Send
    
    ' 清理对象
    Set olMail = Nothing
    Set olApp = Nothing
    wb.Close SaveChanges:=False
End Sub