如何用vba程式碼將word文件中插入的表格物件內容複製到Excel中

一、如何用VBA程式碼在Word文件中插入表格？

在VBA中向Word文檔中插入表格非常簡單，可以使用下列程式碼範例：

Sub InsertTableInWord()
    Dim wdApp As Object
    Dim wdDoc As Object
    Dim wdTable As Object
    
    ' 创建Word应用程序对象
    Set wdApp = CreateObject("Word.Application")
    wdApp.Visible = True ' 如果需要可见Word应用程序，请设置为True
    
    ' 创建一个新的Word文档
    Set wdDoc = wdApp.Documents.Add
    
    ' 插入一个表格
    Set wdTable = wdDoc.Tables.Add(wdDoc.Range, NumRows:=3, NumColumns:=4)
    ' 更改表格的内容和格式
    ' ...
    
    ' 释放对象
    Set wdTable = Nothing
    Set wdDoc = Nothing
    Set wdApp = Nothing
End Sub

這段程式碼會建立一個新的Word文檔，並向其中插入一個包含3行4列的表格。你可以根據需要修改表格的行數、列數以及進一步格式化表格內容。

二、VBA如何將Word表格內容複製到Excel中？

在VBA中，你可以使用以下程式碼將Word文件中的表格內容複製到Excel工作表中：

Sub CopyTableFromWordToExcel()
    Dim wdApp As Object
    Dim wdDoc As Object
    Dim wdTable As Object
    Dim xlApp As Object
    Dim xlWb As Object
    Dim xlSheet As Object
    
    ' 创建Word应用程序对象
    Set wdApp = CreateObject("Word.Application")
    wdApp.Visible = True ' 如果需要可见Word应用程序，请设置为True
    
    ' 打开Word文档
    Set wdDoc = wdApp.Documents.Open("C:\Path\To\Your\Word\File.docx")
    
    ' 获取Word文档中的表格
    Set wdTable = wdDoc.Tables(1) ' 假设表格在文档中的第一个位置
    
    ' 创建Excel应用程序对象
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = True ' 如果需要可见Excel应用程序，请设置为True
    
    ' 创建一个新的Excel工作簿
    Set xlWb = xlApp.Workbooks.Add
    ' 在Excel工作簿中创建一个工作表
    Set xlSheet = xlWb.Sheets(1)
    
    ' 将Word表格复制到Excel中
    wdTable.Range.Copy
    xlSheet.Range("A1").PasteSpecial
    
    ' 释放对象
    Set xlSheet = Nothing
    Set xlWb = Nothing
    Set xlApp = Nothing
    
    ' 关闭Word文档
    wdDoc.Close False ' False表示不保存更改
    Set wdTable = Nothing
    Set wdDoc = Nothing
    wdApp.Quit
    Set wdApp = Nothing
End Sub

這段程式碼將會開啟一個特定路徑下的Word文件（請替換路徑為你的Word文件路徑），複製其中的第一個表格，然後將其貼上到Excel的第一個單元格（A1）。你可以根據需要更改表格索引、目標Excel工作表的位置等。

三、總結

使用VBA可以輕鬆地在Word中插入表格，以及將Word文件中的表格內容複製到Excel中。透過建立Word應用程式物件並使用其物件模型的功能，可以操作Word文件中的表格，然後使用Excel應用程式物件完成表格內容的複製貼上。這些操作可以根據需求進一步擴展和修改。

以上是如何用vba程式碼將word文件中插入的表格物件內容複製到Excel中的詳細內容。更多資訊請關注PHP中文網其他相關文章！