使用自定义格式将Excel范围粘贴到Outlook电子邮件正文

Question

我正在开发一个宏来将范围（从Excel）粘贴到Outlook电子邮件中。我正在使用“函数RangetoHTML（作为范围）”。它可以工作并将范围粘贴到电子邮件中，但有一个例外。

该范围具有自定义格式，我希望将该格式带到电子邮件正文中。

这是自定义格式：

  

(* #,##0_);_(* (#,##0);_(* "-"??_);_(@_)

这似乎是该功能的适用部分，但我不确定如何在此代码中加入自定义格式。

With TempWB.Sheets(1)

        .Cells(1).PasteSpecial Paste:=8
        .Cells(1).PasteSpecial xlPasteValues, , False, False
        .Cells(1).PasteSpecial xlPasteFormats, , False, False
        .Cells(1).Select

        Application.CutCopyMode = False

        On Error Resume Next
        .DrawingObjects.Visible = True
        .DrawingObjects.Delete
        On Error GoTo 0

    End With

非常感谢任何帮助。感谢您花时间看看这个.........