excel - Excel VBA向word文档表格添加行

Question

我正在尝试找到一种将行和信息添加到 word 文档中的预建表的方法。该表现在只有两行。标题和一个空行（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 会自动将这些行附加到表中。