VBA技术求助：将多个Excel工作表导出为单个PDF并邮件发送

要实现将指定的Sheet1、Sheet2、Sheet3导出为单个PDF并邮件发送，只需对原有代码做如下关键修改：

核心修改点 #

• 定义包含目标工作表的数组，一次性选中这些工作表
• 基于选中的工作表组执行PDF导出，生成单个合并文件
• 导出完成后取消多工作表选中状态，避免影响后续操作

修改后的完整代码 #

Sub Email_From_Excel()
    Dim emailApplication As Object
    Dim EmailItem As Object
    Dim strPath As String
    Dim targetSheets As Variant
    
    ' 定义要导出的目标工作表数组
    targetSheets = Array("Sheet1", "Sheet2", "Sheet3")
    
    ' 设置PDF保存路径与文件名（可自行修改文件名）
    strPath = ActiveWorkbook.Path & Application.PathSeparator & "多工作表汇总.pdf"
    
    ' 选中目标工作表组
    ThisWorkbook.Worksheets(targetSheets).Select
    
    ' 导出选中的所有工作表为单个PDF
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strPath
    
    ' 取消多工作表选中状态，切换回第一个工作表
    ThisWorkbook.Worksheets("Sheet1").Select
    
    ' 创建邮件并发送
    Set emailApplication = CreateObject("Outlook.Application")
    Set EmailItem = emailApplication.CreateItem(0)
    
    With EmailItem
        .To = Range("C8").Value
        .CC = Range("C9").Value
        .Subject = "XXX"
        .Body = "Please find attached XX"
        .Attachments.Add strPath
        .Display ' 若要直接发送可改为.Send
    End With
    
    ' 释放对象
    Set EmailItem = Nothing
    Set emailApplication = Nothing
End Sub

关键说明 #

• 使用Array("Sheet1", "Sheet2", "Sheet3")批量指定目标工作表，后续如需调整只需修改数组内容
• 导出时使用ActiveSheet.ExportAsFixedFormat，因为选中多个工作表后，ActiveSheet代表整个工作表组，会导出为单个PDF
• 导出后切换回单个工作表，避免后续操作中误操作多工作表组
• 代码中保留了.Display显示邮件窗口，如需自动发送可替换为.Send，但需确保Outlook已正确配置

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