将word中表格批量导入到Excel

   如果是一个word中的，复制粘贴。

    如果是多个word中的，需要写个代码（如下），或者在网上找一下相关的工具。 此方法适用于多个word文档里面的所有表格：     1、将多个含有表格的word文档放入一个目录；        2、在该目录中新建一个空的excel表格；      3、在excel表格中运行以下宏命令，即可。

Sub WordTabletoExcel()

Dim WordApp As Object, DOC, mTable, Fn$, Str$

On Error Resume Next '设置容错代码

CreateObject("wscript.shell").Run "cmd.exe /c dir """ & ThisWorkbook.Path & "\*.doc"" /s/b>""" & ThisWorkbook.Path & "\list.txt""", False, True '取得指定目录下的word文档清单

Set WordApp = CreateObject("word.application") '创建word程序项目（用于操作word文档）

WordApp.Visible = True '设定word程序项目可见

Open ThisWorkbook.Path & "\list.txt" For Input As #1 '打开清单文件并读取内容

While Not EOF(1) '循环读取清单文件各行内容

Input #1, Str '输入一行文本到变量str中

If Trim(Str) <> "" Then '如果文本有效则

Set DOC = WordApp.Documents.Open(Trim(Str)) '利用word程序项目打开对应的word文档

With DOC

For Each mTable In .Tables '循环文档中的各个表格

If Mid(mTable.Cell(1, 1).Range.Text, 1, 4) = "水库名称" and Mid(mTable.Cell(1, 1).Range.Text, 1, 4) <> "水库名称" Then '判断第一行第一列的名称

'整个表格复制

WordApp.Activate '激活word程序，使之窗体前置

mTable.Range.Copy '复制表格区域

With Windows(1) '激活excel程序窗体，使之前置

.Activate

With ThisWorkbook.ActiveSheet '选中当前使用区A列下面的第一个单元格，并粘贴复制的word中的表格数据

.Cells(.Cells.SpecialCells(xlCellTypeLastCell).Row + 1, 1).Select

.Paste

End With

'获取某个关键字值

For Each MyRng In MyTable.Range.Cells

With MyRng.Range.Find

.Text = "关键字"
.Execute
If .Found Then
Sheets(1).[b65536].End(3).Offset(1) = Replace(MyRng.Next.Range, Chr(7), "")
End If
End With
Next MyRng

End If

Next mTable

.Close False '关闭word文档

End With

End If

Wend

Close #1 '关闭清单文件

If Dir(ThisWorkbook.Path & "\list.txt") <> "" Then Kill ThisWorkbook.Path & "\list.txt" '删除清单文件

WordApp.Quit 'word程序项目关闭

Set DOC = Nothing '清空对应项目变量

Set WordApp = Nothing

End Sub

将word中表格批量导入到Excel相关推荐

Excel导入多个HTML,网页表格批量导入到excel表格数据-如何将多个网页上的数据批量导入EXCEL...
怎么将网页中的表格数据导入Excel 看看这个程序 htt==ps://it365.gitlab.io/zh-cn/table-to-excel/?d59568 上面的链点问题,你先复制了,粘浏览器地 ...
避免word中表格导入excel表格中变形的问题
1.word中序号自动递增选中你要添加"单元格",选择"开始"-"编号",定制自己的格式,选中后,自动添加序号 2.把word中表格数据存 ...
Python 批量提取 Word 中表格内容，一键写入 Excel
关注公众号:[小张Python],为你准备了 50+ 本Python 精品电子书籍与 50G + 优质视频学习资料,后台回复关键字:1024 即可获取:如果对博文内容有什么疑问,后台添加作者[个人微 ...
如何在MATLAB中把变量填到Word中,matlab数据写入现有excel表格-如何将matlab中变量写入excel...
如何将matlab 中的数据写入现有的word 表格中? 你可以这样做: (1)先在matlab里面,把相关数据导出.保存成csv格式的文件:比如说,你可以在workspace视图底下,把相关的变量直 ...
如何在ex表格导入php_怎么使用php把表格中的数据导入到excel中,php如何快速导入excel表格数据...
php怎么导入大量数据的excel php导出数据的Excel: PHP从数据库分多次读取100万行记录,和分将100万入文本文件都没问题 Excel可以支100万行记录,Excel 2003最大支持 ...
python中读取word信息_Python实现批量读取word中表格信息的方法
本文实例讲述了Python实现批量读取word中表格信息的方法.分享给大家供大家参考.具体如下: 单位收集了很多word格式的调查表,领导需要收集表单里的信息,我就把所有调查表放一个文件里,写了个py ...
Excel表格拖入Word中表格格式保持不变
一.Excel表格拖入Word中表格格式保持不变 1.选中Excel中的表格,按住Ctrl键,拖动到word中即可. 二.word中的表格复制到Excel中表格格式保持不变 1.将word另存为网页格 ...
word 解放双手，使用宏批量添加word中表格边框以及自适应
Sub 宏2() ' ' 宏2 宏 ' ' For Each aTable In ActiveDocument.TablesWith aTableaTable.SelectWith .Borders( ...
怎么把html数据导入excel,将网页表格数据导入到Excel中的两种方法
将网页表格数据导入到Excel中的第一种方法: 第一步,将包括所需表格的网页打开,并按CTRL+C把网址复制到剪贴板,以备下一步使用. 第二步,打开运行Excel软件,单击菜单栏中的"数据→ ...

将word中表格批量导入到Excel

将word中表格批量导入到Excel相关推荐

最新文章

热门文章