从 Word 文档表填充 Excel 文件 - VBA

Question

我对 VBA 相当陌生，并试图根据 Word 文档填充预先存在的 excel 文档。

Word 文档将包含三个表格，某些单元格将成为 Excel 列。 这个想法是，每天都有新的产品信息表进来，并且需要附加 Excel 表。 我首先查看了之前提出的这个问题。 我是否创建启用宏的 Excel 工作表并从 Excel 中运行它？ 我可以让宏查看 word 文档的目录，并执行迭代宏吗？

Answer 1

这是最简单的解决方案。 在 Excel 中，使用工具、引用在 VB 编辑器中设置对 Word 的引用 - 然后您可以编写代码来从 Excel 中操作 Word。 您可以使用关键字 DIR 在文件夹中查找文件，然后声明一个 Word 对象，打开 Word 文档，遍历文档中的表格并将值复制到 Excel 中的正确单元格。 只需注意 Word 粘贴在单元格中的 ^p 字符 - 我倾向于将单词单元格的内容放入字符串变量中，然后将 Left(s,len(s)-1) 放入 excel 以删除最后一个字符。

Answer 2

这个怎么样？

Sub ImportFromWord()

Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document

Set wrdApp = CreateObject("Word.Application")
wrdApp.Visible = True

Set wrdDoc = wrdApp.Documents.Open(ThisWorkbook.Path & "\My document.doc")
'Use below line if document is already open.
'Set wrdDoc = Documents("My document.doc")

With wrdDoc

    N_Of_tbles = .Tables.Count

    If N_Of_tbles = 0 Then
        MsgBox "There are no tables in word document"
    End If

    Set wrdTbl = .Tables(1)

    ColCount = wrdTbl.Columns.Count
    RowCount = wrdTbl.Rows.Count


    ' Loop through each row of the table
    For i = 1 To RowCount
        'Loop through each column of that row
        For j = 1 To ColCount
            'This gives you the cell contents
            Worksheets("sheet1").Cells(i, j) = wrdTbl.Cell(i, j).Range.Text
        Next j
    Next i
End With

Set wrdDoc = Nothing
Set wrdApp = Nothing

MsgBox "completed"

End Sub