嗨，我有一个 VBA 代码，它使用按钮通过电子邮件发送特定的工作表“原始数据”。我还需要附加另一个工作表中的 2 个数据透视表

Question

此代码创建一个特定的工作表作为新工作簿，并使用按钮将其附加到电子邮件。我需要编码来添加到此，这还将在标有“数据透视表”的不同工作表中添加数据透视表数据透视表已标记为“COMP”和“NONCOMP”

子发送邮件() 调暗 xOutlookObj 作为对象 调暗 xEmailObj 作为对象 将 tempFile 调暗为字符串 Dim strbodymsg 作为字符串 调暗 wb 作为工作簿 strbody =“你好” 应用程序.DisplayAlerts = FALSE ThisWorkbook.Sheets("RAW DATA").Copy 设置 tempWB = ActiveWorkbook

tempWB.SaveAs Filename:="DGA DATA"

Set xOutlookObj = CreateObject("Outlook.Application")
Set xEmailObj = xOutlookObj.CreateItem(0)
On Error Resume Next
With xEmailObj
    .Display
    .To = "[email protected]"
    .CC = "[email protected]"
    .Subject = "Email Test"
    .Attachments.Add tempWB.FullName
    
    .HTMLBody = strbody
    If DisplayEmail = FALSE Then
        '.Display
        '.Send

此编码工作正常，并成功添加了一个新工作表，但是我还需要添加一个代码来复制电子邮件正文中的数据透视表*

End If
End With

tempWB.ChangeFileAccess Mode:=xlReadOnly
Kill tempWB.FullName
tempWB.Close savechanges:=False
Application.DisplayAlerts = TRUE
Set xEmailObj = Nothing
Set xOutlookObj = Nothing

结束子