Cara menyalin kandungan objek jadual yang disisipkan dalam dokumen perkataan ke Excel menggunakan kod VBA

1. Bagaimana hendak memasukkan jadual ke dalam dokumen Word menggunakan kod VBA?

Memasukkan jadual ke dalam dokumen Word dalam VBA adalah sangat mudah, anda boleh menggunakan contoh kod berikut:

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

Kod ini akan mencipta dokumen Word baharu dan memasukkan jadual dengan 3 baris dan 4 lajur ke dalamnya. Anda boleh mengubah suai bilangan baris dan lajur jadual dan seterusnya memformat kandungan jadual mengikut keperluan.

2. Bagaimana hendak menyalin kandungan jadual Word ke Excel menggunakan VBA?

Dalam VBA, anda boleh menggunakan kod berikut untuk menyalin kandungan jadual dalam dokumen Word ke lembaran kerja 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

Kod ini akan membuka dokumen Word di bawah laluan tertentu (sila ganti laluan dengan laluan fail Word anda ), salin jadual pertama di dalamnya dan tampalkannya ke dalam sel pertama Excel (A1). Anda boleh menukar indeks jadual, lokasi lembaran kerja Excel sasaran, dsb. mengikut keperluan.

3. Ringkasan

Menggunakan VBA, anda boleh dengan mudah memasukkan jadual dalam Word dan menyalin kandungan jadual dalam dokumen Word ke Excel. Dengan mencipta objek aplikasi Word dan menggunakan kefungsian model objeknya, anda boleh memanipulasi jadual dalam dokumen Word, dan kemudian menggunakan objek aplikasi Excel untuk menyalin dan menampal kandungan jadual. Operasi ini boleh dilanjutkan dan diubah suai mengikut keperluan.

Atas ialah kandungan terperinci Cara menyalin kandungan objek jadual yang disisipkan dalam dokumen perkataan ke Excel menggunakan kod VBA. Untuk maklumat lanjut, sila ikut artikel berkaitan lain di laman web China PHP!