Excel VBA將行添加到word文檔表

Question

我正在嘗試找到一種方法來將行和信息添加到word文檔中的預構建表中。 該表現在只有兩行。 標題和空白行（2列）。 我該如何向該表添加新的數據行。 我嘗試過書簽，但我無法讓代碼工作。

我會給出一個代碼示例但我的代碼失敗了所以我認為它不會有所幫助。

我需要能夠循環遍歷2-D數組，並在每次循環時插入包含2-D數組信息的新行。

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會自動將這些行附加到表中。