VBA报错“wdChart未定义”，Excel表格转邮件失败求助

核心问题梳理 #

• 常量误用+未定义：wdChart是Word中用于粘贴图表的常量（数值为4），和你要粘贴表格的需求完全不符。而且你用的是后期绑定（CreateObject），Word内置常量不会自动加载，必须手动定义或使用正确的对应数值。
• 拼写错误：代码里的.InsterAfter "A Presto,"是笔误，正确方法名是.InsertAfter，这会直接导致代码中断。
• 内容覆盖：最后执行.Body = Body会把邮件内容替换成纯文本，直接覆盖你通过WordEditor插入的表格和签名，这是导致表格不显示的关键原因。
• 冗余对象：创建了wdApp对象但全程没用到，属于多余代码。
• 变量类型不规范：lastRow存储行号，应该定义为Long而非String，虽不直接报错但不符合最佳实践。

修正后的完整代码 #

Option Explicit

Sub TableEmail()
    Dim OutApp As Object, OutMail As Object
    Dim wordDoc As Object
    
    Dim Table As Range
    Dim Subject As String
    Dim Body As String
    Dim lastCell As Range
    Dim lastRow As Long ' 修正为行号对应的Long类型
    Dim lastLocation As String
    Dim Category As String
    Dim Sunday As String
    Dim Signoff As String
    
    ' 后期绑定需手动定义Word常量：保留原格式粘贴的常量值
    Const wdFormatOriginalFormatting As Integer = 16

    With ThisWorkbook.Worksheets("Email")
        Set lastCell = .Range("B1").End(xlDown)
        lastRow = lastCell.Row
        lastLocation = .Cells(lastRow, 12).Address
        
        Set Table = .Range("B2", lastLocation)
        Table.Copy
        
        Category = .Cells(2, 2).Value
        Sunday = .Cells(2, 1).Value
        Subject = "Risultati | " & Category & " | " & Sunday
        Body = .Cells(3, 14).Value
        Signoff = .Cells(8, 14).Value
    End With
    
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    
    With OutMail
        .Display
        .To = "email@123.com"
        .Subject = Subject
        
        Set wordDoc = OutMail.GetInspector.WordEditor
        With wordDoc.Range
            ' 按顺序插入内容：正文→换行→表格→签名
            .InsertAfter Body
            .InsertParagraphAfter
            .InsertParagraphAfter
            .PasteAndFormat wdFormatOriginalFormatting ' 使用正确的表格粘贴格式
            .InsertParagraphAfter
            .InsertParagraphAfter
            .InsertAfter "A Presto,"
            .InsertParagraphAfter
            .InsertAfter Signoff ' 使用预设的签名变量，替代硬编码内容
        End With
    End With
    
    ' 释放对象资源
    Set wordDoc = Nothing
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

关键修正说明 #

1. 替换了错误的粘贴常量：使用wdFormatOriginalFormatting（数值16）保留Excel表格的原格式；若需要HTML格式的表格，可改用Const wdFormatHTML As Integer = 10。
2. 修复了InsertAfter的拼写错误，确保代码正常执行。
3. 调整内容插入逻辑：通过WordEditor依次插入正文、表格、签名，避免用.Body赋值覆盖富文本内容。
4. 删除未使用的wdApp对象，优化代码资源占用。
5. 用预设的Signoff变量替代硬编码姓名，提升代码灵活性。

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