Home >Software Tutorial >Office Software >How to copy the contents of a table object inserted in a word document to Excel using VBA code
1. How to insert a table into a Word document using VBA code?
Inserting a table into a Word document in VBA is very simple. You can use the following code example:
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
This code will create a new Word document and insert a table into it. A table with 3 rows and 4 columns. You can modify the number of rows and columns of the table and further format the table content as needed.
2. How to copy the contents of Word table to Excel with VBA?
In VBA, you can use the following code to copy the table contents in the Word document to the Excel worksheet:
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
This code will open Word under a specific path document (please replace the path with your Word file path), copy the first table in it, and then paste it into the first cell (A1) of Excel. You can change the table index, the location of the target Excel worksheet, etc. as needed.
3. Summary
Using VBA, you can easily insert tables in Word and copy table contents in Word documents to Excel. By creating a Word application object and using the functionality of its object model, you can manipulate tables in a Word document, and then use an Excel application object to copy and paste table contents. These operations can be further extended and modified as required.
The above is the detailed content of How to copy the contents of a table object inserted in a word document to Excel using VBA code. For more information, please follow other related articles on the PHP Chinese website!