Excel VBA求助：将Invoice工作表数据导出至Word文档失败

问题分析 #

你的导出代码存在几个关键问题导致无法运行：

• Word对象引用缺失：使用Early Binding时，必须先添加Word对象库引用，否则Word.Application会提示未定义
• 工作簿引用错误：直接用文件名FinanceMarketing调用工作表会失败，应该用ThisWorkbook指代当前运行宏的工作簿
• 保存逻辑不完整：SaveAs2仅指定文件名会默认保存到系统文档路径，且未明确文件格式，容易引发错误
• 无错误处理：未捕获Word启动、复制粘贴等环节的异常，难以定位问题

修复后的完整代码 #

Sub Macro2()
'
' Macro2 Macro
'
    Dim userinput As String
    'Ask user for input (注：当前代码未使用该变量，可后续补充逻辑)
    userinput = InputBox("Type Associated Letter corresponding to Desired Invoice Population:")
    
    '同步Finance数据到Invoice（原逻辑保留）
    Sheets("Finance").Range("B2").Copy Destination:=Sheets("Invoice").Range("D3")
    Sheets("Finance").Range("C2").Copy Destination:=Sheets("Invoice").Range("D4")
    Sheets("Finance").Range("D2").Copy Destination:=Sheets("Invoice").Range("D5")
    Sheets("Finance").Range("E2").Copy Destination:=Sheets("Invoice").Range("B8")
    Sheets("Finance").Range("I2").Copy Destination:=Sheets("Invoice").Range("D8")

    '导出到Word部分 - 修复后代码
    On Error GoTo Cleanup '添加错误捕获
    
    Dim wordApp As Word.Application
    Dim mydoc As Word.Document
    Dim savePath As String
    
    '指定保存路径（可自行修改，示例为桌面）
    savePath = Environ("USERPROFILE") & "\Desktop\MyInvoice.docx"
    
    '尝试获取已打开的Word实例，不存在则新建
    On Error Resume Next
    Set wordApp = GetObject(, "Word.Application")
    On Error GoTo Cleanup
    If wordApp Is Nothing Then
        Set wordApp = New Word.Application
    End If
    wordApp.Visible = True

    '新建文档
    Set mydoc = wordApp.Documents.Add()

    '复制Invoice指定区域（修复工作簿引用）
    ThisWorkbook.Worksheets("Invoice").Range("B1:D19").Copy

    '粘贴为Excel表格
    mydoc.Paragraphs(1).Range.PasteExcelTable _
                               LinkedToExcel:=False, _
                               WordFormatting:=False, _
                               RTF:=False

    '保存文档（指定完整路径和格式）
    mydoc.SaveAs2 Filename:=savePath, FileFormat:=wdFormatXMLDocument

Cleanup:
    '清理资源
    If Err.Number <> 0 Then
        MsgBox "导出失败：" & Err.Description, vbCritical
    End If
    '清空剪切板
    Application.CutCopyMode = False
    '释放对象（可选：如果不需要保留Word实例，可添加wordApp.Quit）
    Set mydoc = Nothing
    Set wordApp = Nothing
End Sub

额外配置步骤 #

1. 添加Word对象库引用：
   • 打开VBA编辑器（Alt+F11）
   • 点击菜单「工具」→「引用」
   • 勾选「Microsoft Word xx.x Object Library」（xx.x对应你的Office版本）
2. 修改保存路径：代码中savePath变量可自行调整为你需要的文件夹路径

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