使用vba实现多个WORd文件中的对应数据填写到一个EXcel工作簿中的相应位置

在VBA（Visual Basic for Applications）中，你可以通过循环遍历Word文档并读取内容，然后将这些数据写入Excel工作表中相应的单元格。以下是一个简单的步骤说明：

1. **准备工作**：
- 创建一个Excel工作簿对象 (`Workbook` 对象) 和一个工作表对象 (`Worksheet` 对象)，例如 `wb` 和 `ws`。
- 定义一个数组或者集合来存储Word文档中需要的数据，以及Word文档列表 (`Documents` 集合)。

Dim wb As Workbook
Dim ws As Worksheet
Dim wordDocs As Object ' Word Documents collection
Dim dataArray() As Variant

2. **打开Word文档并读取数据**：
- 初始化 `wordDocs` 集合，遍历每个Word文件路径，并打开它们。
- 在每个文档中找到你需要的数据，将其添加到 `dataArray` 中。这可能涉及到使用Word的对象模型 (`Range` 或 `Document.Content` 属性) 来获取文本。

Set wordDocs = CreateObject("Word.Application").Documents
For Each doc In wordDocs
    Dim textToCopy As String
    ' 从Word文档中获取数据
    textToCopy = doc.Content.Text
    ' 将数据追加到dataArray
    ReDim Preserve dataArray(UBound(dataArray), 1)
    dataArray(LBound(dataArray), 1) = textToCopy
Next doc
wordDocs.Close

3. **将数据写入Excel**：
- 设置Excel的工作表行数足够大，然后使用 `ws.Cells` 的 `Offset` 函数逐行填充数据。

ws.Cells.ClearContents ' 清除已有的内容
LastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row + 1 ' 获取最后一行的索引
For i = LBound(dataArray, 1) To UBound(dataArray, 1)
    ws.Cells(i + LastRow, 1) = dataArray(i, 1) ' 填充到指定列
Next i

4. **保存并关闭Excel**：
最后记得保存 Excel 工作簿并退出 VBA 环境。

wb.Save
Set wb = Nothing
Set ws = Nothing
Set wordDocs = Nothing