VBA コードを使用して Word 文書に挿入されたテーブル オブジェクトの内容を Excel にコピーする方法

1. 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 文書を作成し、表を Word 文書に挿入します。 3 行 4 列のテーブル。必要に応じて、テーブルの行と列の数を変更し、テーブルの内容をさらに書式設定することができます。

2. 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 ファイルのパスに置き換えてください)、その中の最初のテーブルをコピーして、Excel の最初のセル (A1) に貼り付けます。必要に応じて、テーブルのインデックスや対象の Excel ワークシートの場所などを変更できます。

3. 概要

VBA を使用すると、Word に表を簡単に挿入したり、Word 文書の表の内容を Excel にコピーしたりできます。 Word アプリケーション オブジェクトを作成し、そのオブジェクト モデルの機能を使用すると、Word 文書内の表を操作し、Excel アプリケーション オブジェクトを使用して表の内容をコピーして貼り付けることができます。これらの操作は、必要に応じてさらに拡張および変更できます。

以上がVBA コードを使用して Word 文書に挿入されたテーブル オブジェクトの内容を Excel にコピーする方法の詳細内容です。詳細については、PHP 中国語 Web サイトの他の関連記事を参照してください。