excel - Wordドキュメントテーブルに行を追加するExcel VBA

Question

Word 文書の作成済みの表に行と情報を追加する方法を見つけようとしています。テーブルは現在 2 行のみです。ヘッダーと空白行 (2 列)。このテーブルに新しいデータ行を追加するにはどうすればよいでしょうか。ブックマークを試してみましたが、コードを機能させることができませんでした。

コードのサンプルを提供しますが、私のコードは失敗するだけなので、役に立たないと思います。

2 次元配列をループして、ループするたびに 2 次元配列からの情報を使用して新しい行を挿入できるようにする必要があります。

Answer 1

これは、Excel の VBA から Word の既存のテーブルにデータを挿入するための基本的な構文です。

Dim doc As Word.Document
Set doc = GetObject("path to my word document")

With doc.Tables(IndexNumberOfTableYouWant)
  .Cell(DesiredRow, 1).Range.Text = "my column 1 information"
  .Cell(DesiredRow, 2).Range.Text = "my column 2 information"
End With

適切な列数が事前定義されている限り、変数をインクリメントして行を追加し続けることができDesiredRow、Word はそれらの行をテーブルに自動的に追加します。