Vba Word从Excel中复制表格后添加表格

Sub CopyTableFromExcelToWord()
    Dim objWord As Object
    Dim objDoc As Object
    Dim objExcel As Object
    Dim objSheet As Object
    Dim objTable As Object
    
    ' 创建一个新的Word应用程序对象
    Set objWord = CreateObject("Word.Application")
    objWord.Visible = True ' 可见性设置为True以便查看操作过程
    
    ' 打开一个现有的Word文档或创建一个新的文档
    Set objDoc = objWord.Documents.Add
    
    ' 创建一个新的Excel应用程序对象
    Set objExcel = CreateObject("Excel.Application")
    objExcel.Visible = True ' 可见性设置为True以便查看操作过程
    
    ' 打开一个现有的Excel工作簿
    Set objWorkbook = objExcel.Workbooks.Open("C:\Path\To\Your\Excel\File.xlsx")
    
    ' 获取Excel工作簿中的第一个工作表
    Set objSheet = objWorkbook.Sheets(1)
    
    ' 复制Excel工作表中的表格
    objSheet.Range("A1:D10").Copy
    
    ' 在Word文档中粘贴表格
    objDoc.Range.PasteExcelTable LinkedToExcel:=False, WordFormatting:=False, RTF:=False
    
    ' 关闭Excel工作簿和应用程序对象
    objWorkbook.Close SaveChanges:=False
    objExcel.Quit
    
    ' 释放对象变量
    Set objTable = Nothing
    Set objSheet = Nothing
    Set objWorkbook = Nothing
    Set objExcel = Nothing
    Set objDoc = Nothing
    Set objWord = Nothing
End Sub