在word中用VBA导入Excel的表格

您可以使用 VBA 从 Excel 中导入表格到 Word 文档中。以下是一个示例代码：

Sub ImportTableFromExcel()
    Dim excelApp As Object ' Excel.Application
    Dim excelWorkbook As Object ' Excel.Workbook
    Dim excelWorksheet As Object ' Excel.Worksheet
    Dim wordApp As Object ' Word.Application
    Dim wordDoc As Object ' Word.Document
    
    ' 创建一个新的 Excel 应用程序和工作簿
    Set excelApp = CreateObject("Excel.Application")
    excelApp.Visible = False ' 设置为 True 可见，False 不可见
    Set excelWorkbook = excelApp.Workbooks.Open("C:\路径\至\Excel文件.xlsx")
    
    ' 打开要导入的工作表
    Set excelWorksheet = excelWorkbook.Worksheets("Sheet1")
    
    ' 复制工作表中的表格范围
    excelWorksheet.UsedRange.Copy
    
    ' 创建一个新的 Word 应用程序和文档
    Set wordApp = CreateObject("Word.Application")
    wordApp.Visible = True
    Set wordDoc = wordApp.Documents.Add
    
    ' 在 Word 文档中粘贴表格
    wordDoc.Range.PasteExcelTable LinkedToExcel:=False, _
        WordFormatting:=False, RTF:=False
    
    ' 清除剪贴板内容
    Application.CutCopyMode = False
    
    ' 关闭并保存 Excel 工作簿
    excelWorkbook.Close SaveChanges:=False
    
    ' 退出 Excel 应用程序
    excelApp.Quit
    
    ' 释放对象
    Set excelWorksheet = Nothing
    Set excelWorkbook = Nothing
    Set excelApp = Nothing
    Set wordDoc = Nothing
    Set wordApp = Nothing
End Sub

请将代码中的 "C:\路径\至\Excel文件.xlsx" 替换为您要导入的 Excel 文件的实际路径。您可以根据需要更改工作表名称。

此代码将打开指定的 Excel 文件，复制工作表中的表格范围。然后，它创建一个新的 Word 应用程序和文档，并将表格粘贴到 Word 文档中。最后，它关闭并保存 Excel 工作簿，退出 Excel 应用程序，并释放对象。

希望对您有所帮助！