Excel VBA宏改用后期绑定创建Word表格时遇ActiveX错误求助

核心错误点 #

• 错误创建Word对象：不能直接用CreateObject("Word.Document")创建文档，必须先创建Word应用实例，再通过应用对象新建/打开文档。Word.Table也无法直接用CreateObject生成，只能从文档的Tables集合中获取。
• 未关联Word实例：Excel VBA环境中没有ActiveDocument对象，必须通过已创建的Word应用实例访问目标文档，直接调用会导致对象不存在错误。
• 变量未声明：代码中的i未声明，建议添加Option Explicit强制变量声明，避免潜在的类型错误。

修正后的代码 #

Option Explicit

Sub UpdateWordTable()
    Dim wdApp As Object
    Dim wdDoc As Object
    Dim wdTbl As Object
    Dim wdTblRows As Integer
    Dim tblnum As Integer
    Dim xlSht As Worksheet
    Dim i As Integer
    
    ' 获取或新建Word应用实例
    On Error Resume Next
    Set wdApp = GetObject(, "Word.Application") ' 优先获取已打开的Word
    If Err.Number <> 0 Then
        Set wdApp = CreateObject("Word.Application") ' 无实例则新建
    End If
    On Error GoTo 0
    
    wdApp.Visible = True ' 可选：让Word可见，方便调试
    
    ' 绑定目标Word文档，二选一即可
    ' 方式1：打开指定路径的文档
    ' Set wdDoc = wdApp.Documents.Open("C:\你的文档路径\目标文档.docx")
    ' 方式2：使用Word当前激活的文档（确保Word已打开文档）
    Set wdDoc = wdApp.ActiveDocument
    
    ' 检查文档是否有表格
    tblnum = wdDoc.Tables.Count
    If tblnum = 0 Then
        MsgBox "当前Word文档中无表格！"
        wdApp.Quit
        Set wdApp = Nothing
        Exit Sub
    End If
    
    Set wdTbl = wdDoc.Tables(tblnum) ' 指向最后一个表格
    Set xlSht = ActiveSheet ' 指向当前Excel工作表
    
    wdTbl.Rows.Add ' 新增一行
    wdTblRows = wdTbl.Rows.Count ' 获取更新后的行数
    
    ' 写入Excel内容到Word表格
    For i = 1 To 3
        wdTbl.Cell(wdTblRows, i).Range.Text = xlSht.Cells(2, i).Text
    Next i
    
    ' 清理对象
    Set wdTbl = Nothing
    Set wdDoc = Nothing
    ' 若为新建的Word实例，用完可退出；若用的是已打开的，注释下面两行
    ' wdApp.Quit
    ' Set wdApp = Nothing
End Sub

额外排查要点 #

• Word安装状态：确认所有用户电脑均安装了Microsoft Word，且版本与代码兼容（避免过于老旧的版本）。
• 权限问题：部分环境下需以管理员身份运行Excel，才能正常创建Word对象。
• 防病毒拦截：部分杀毒软件会阻止VBA创建Office应用对象，可临时关闭防护测试。

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