excel - 将特定单词表的内容复制到excel

Question

我正在尝试创建一个 VBA 代码，该代码在 word 文档中获取特定单元格并将其输出到 excel 中。我看到很多关于如何在线将所有表格从 word 转移到 excel 的讨论，但是是否可以有选择地进行呢？

例如，我有一个名为“example.docx”的 word 文档，如下所示：

如何将第二个表格中第二个单元格的内容转移到A1单元格到excel中？

考虑到我的目标是在某个时候循环遍历具有相同结构的文档，因此我认为使用“Selection.Copy”方法进行索引可能不是这种情况下最理想的方式。

非常感谢您的帮助！

标签： excelvbams-word

Answer 1

应该是这样的：

Sub test()
    Dim wsSheet As Worksheet
    Dim WordApp As Object, WordDoc As Object

    Set wsSheet = ThisWorkbook.Worksheets("Sheet1")
    Set WordApp = CreateObject("Word.Application")
    Set WordDoc = WordApp.Documents.Open("C:\Test\example.docx")
    wsSheet.Range("A1").Value = WordDoc.Range.Tables(2).Range.Cells(2).Range.Text
    WordApp.Quit
End Sub