Excel VBA将行添加到Word文档表中

我试图find一种方法来添加行和信息到Word文档中的预build表。 表格现在只有两行。 标题和一个空行（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 

只要预定义了正确的列数，就可以通过递增DesiredRowvariables继续添加行，Word会自动将这些行附加到表中。