如何用VBA代码将Excel数据透视表带底纹边框粘贴到Outlook邮件正文？

我用VBA实现Excel数据透视表粘贴到Outlook邮件正文的功能，参考了常用的Excel转Outlook邮件代码，但遇到格式丢失问题：手动Ctrl+C→Ctrl+V能完整保留透视表的底纹、边框等所有格式，但用以下代码粘贴时，这些格式会丢失。

原粘贴核心代码：

Set TempWB = Workbooks.Add(1)
With TempWB.Sheets(1)
    .Cells(1).PasteSpecial Paste:=8
    .Cells(1).PasteSpecial xlPasteValues, , False, False
    .Cells(1).PasteSpecial xlPasteFormats, , False, False
    .Cells(1).PasteSpecial xlPasteAllUsingSourceTheme, , False, False
    .Cells(1).Select
    Application.CutCopyMode = False
    On Error Resume Next
    .DrawingObjects.Visible = True
    .DrawingObjects.Delete
    On Error GoTo 0
End With

原代码的分步粘贴方式（拆分值、格式、主题）无法完整复刻手动粘贴的格式逻辑，尤其是透视表的底纹和边框这类依赖完整单元格对象属性的格式。要实现和手动粘贴一致的效果，需要直接保留复制内容的完整格式信息，修改后的代码如下：

' 先复制目标透视表（替换成你的透视表对象）
YourPivotTable.Range.Copy

Set TempWB = Workbooks.Add(1)
With TempWB.Sheets(1)
    ' 直接粘贴全部内容和格式，替代分步粘贴
    .Cells(1).PasteSpecial Paste:=xlPasteAll
    Application.CutCopyMode = False
    ' 选中粘贴后的区域重新复制
    .UsedRange.Copy
End With

' 创建Outlook邮件对象
Set OutMail = CreateObject("Outlook.Application").CreateItem(0)
With OutMail
    .Display ' 必须先显示邮件才能操作正文编辑对象
    ' 借助Word编辑器粘贴，还原完整格式
    .GetInspector.WordEditor.Range.Paste
End With

' 清理临时工作簿
TempWB.Close SaveChanges:=False

关键说明： #

• 用xlPasteAll替代分步粘贴，完整保留透视表的所有单元格属性（包括底纹、边框）
• 借助Outlook邮件内置的Word编辑器对象（GetInspector.WordEditor）粘贴，和手动粘贴的底层逻辑完全一致，能完美还原格式
• 必须先调用.Display显示邮件，否则无法访问Word编辑对象

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