word
要将一个文件夹下的所有
word文档中的表格数据读取到
excel中，可以使用
VBA编写一个程序来完成。以下是具体步骤：1. 打开
word文档，并点击开发者选项卡。2. 在开发者选项卡中，选择插入，在插入菜单中找到宏按钮并点击。3. 在弹出的对话框中，输入一个名称给你的宏，并点击确定。4. 在
VBA编辑窗口中，输入以下代码：Sub 取表格数据()'打开第一个
word文档Dim doc As ObjectSet doc = Application.Documents.Open _(mypath & "doc1.docx")'遍历所有文件For Each file In Files'打开当前文件Set filedoc As ObjectSet filedoc = Application.Documents.Open _(file.Path & "" & file.Name)'遍历整个表格For Each cell In filedoc.Content DreplacEnd Sub以上代码中，mypath是你文件所在的路径。这个程序会逐个打开所有文件夹下的
word文档，并遍历每个文档中的所有表格，将每个单元格的数据存放在一个数组中。5. 点击保存按钮，保存代码。6. 最后，在
excel中插入一个模块，并粘贴刚才保存的代码，然后运行即可。注意：以上代码需要在同一个文件夹下才能正常运行。另外，如果文件夹中的文档比较多，程序运行时间会比较长。
