Word表格数据批量导入Excel：多表汇总脚本

在Word文档中处理多个表格并将数据汇总到Excel的工作可以通过VBA宏来实现，如上述代码所示。该过程主要涉及以下几个步骤： 1. **宏触发器**： 当用户点击名为"CommandButton1"的控件时（PrivateSubCommandButton1_Click()），宏开始执行。 2. **错误处理**： 使用`OnErrorResumeNext`语句可以设置在遇到错误时继续执行，而不是中断整个过程。 3. **创建Word应用程序对象**： 使用`Dim wApp As New Word.Application`声明并初始化一个新的Word应用程序实例，以便后续操作。 4. **打开Word文档**： 循环遍历指定目录下所有扩展名为`.doc`的文件，通过`wApp.Documents.Open()`打开每个文件，`ThisWorkbook.Path`表示当前工作簿的路径。 5. **遍历表格数据**： 对于每个打开的文档中的每个表格，循环处理数据行。使用`wApp.ActiveDocument.Tables`获取当前文档中的所有表格，然后通过索引访问每一行的数据。 - 表头：`wTable.Cell(1, 5).Range.Text` 获取第1行第5列的数据，将其左移并清除尾部空格后写入Excel的C列。 - 第2行第3列和第5列的数据，分别对应B、D列。 6. **特殊数据处理**： 对于第4行第3列的特殊数据，首先提取数据，然后使用`Instr()`函数找到特定字符的位置，再使用`Mid()`和`Trim()`函数截取并去除多余字符，最后写入E列。 7. **释放资源**： 在处理完每个表格后，使用`SetwTable = Nothing`释放表格对象的内存，然后关闭文档和Word应用程序实例，`wDoc.Close` 和 `SetwDoc = Nothing`。 8. **重复循环**： 直到所有`.doc`文件处理完毕，再更新变量`wf`，进入下一轮循环。 9. **结束宏**： 最后，释放Word应用程序对象，`SetwApp = Nothing`，结束宏的执行。 这段代码通过VBA宏实现了将Word文档中的多张表格数据逐行读取，合并到一个Excel工作表的不同列中，适用于批量数据迁移或整理的需求。在实际应用中，可能需要根据具体需求调整表头、列位置以及特殊数据处理逻辑。