如何在插入 excel 表 （VBA） 后在电子邮件正文中添加更多文本

问：

我需要在电子邮件正文中插入一个 excel 表格。 我有一个插入表格的代码，但我还不知道如何在表格后添加文本。有没有办法以某种方式将表格插入电子邮件正文中或在其后添加文本？

这是我当前的代码：

Sub RangeToOutlook_Single()

Dim oLookApp As Outlook.Application
Dim oLookItm As Outlook.MailItem
Dim oLookIns As Outlook.Inspector
Dim wsSmy As Worksheet, wsCP As Worksheet
Dim LastRow As Integer, LastColumn As Integer
Dim StartCell As Range
Dim oWrdDoc As Word.Document
Dim oWrdRng As Word.Range
Dim ExcRng As Range

On Error Resume Next

Set oLookApp = GetObject(, "Outlook.Application")

    If Err.Number = 429 Then
        Err.Clear
        Set oLookApp = New Outlook.Application
    End If
    
Set oLookItm = oLookApp.CreateItem(olMailItem)

Set wsSmy = Workbooks("HRDA Audit_Master.xlsb").Sheets("SUMMARY")
Set wsCP = Workbooks("HRDA Audit_Master.xlsb").Sheets("Control Panel")
Set StartCell = wsSmy.Range("A1")
LastRow = wsSmy.Cells(wsSmy.Rows.Count, StartCell.Column).End(xlUp).Row
LastColumn = wsSmy.Cells(StartCell.Row, wsSmy.Columns.Count).End(xlToLeft).Column
Set ExcRng = wsSmy.Range("A1:R" & LastRow)

With oLookItm
    .To = Range("S" & LastRow)
    .CC = ""
    .Subject = "HRDA Audit - " & wsCP.Range("B1")
    .Body = "Dear " & wsSmy.Range("T" & LastRow) & "," & vbLf & vbLf & _
    "Here is the first half of the text before the table."
    .Display
    
    Set oLookIns = .GetInspector
    Set oWrdDoc = oLookIns.WordEditor
    Set oWrdRng = oWrdDoc.Application.ActiveDocument.Content
        oWrdRng.Collapse Direction:=wdCollapseEnd

    ExcRng.Copy
    oWrdRng.Paste
End With
       
End Sub

如果我添加例如：.正文 = 。正文和“文本”，它将重新粘贴整个内容，但会丢失表格格式。 有人可以帮我修改上面的代码，这样我就可以在表格周围有文字吗？ 提前致谢。