Word表格内容转到excel

发布网友 发布时间：2022-05-13 12:13

我来回答

共5个回答

热心网友 时间：2023-08-18 04:43

具体步骤如下：

1、打开Word文档，按住鼠标选中文档中编辑好的表格文档，然后点击【编辑】菜单下的【复制】。

2、打开excel，在表格上面选择一个合适的位置点击一下，然后点击【编辑】菜单下的【粘贴】即可。

最终效果：

热心网友 时间：2023-08-18 04:43

以前写过一段VBA用来实现这个功能
从很多个报名表中(*.doc文档)提取表格中固定位置的内容至一个excel的汇总表中.

因为vba有很强的针对性,所以无法给出具体的代码.
hi我吧,word文档和excel文件发给我.

收到了提问者发给我的示例文档,EXCEL中的VBA代码如下:

Sub 汇总()
Application.ScreenUpdating = False
p = ThisWorkbook.Path & "\"
f = Dir(p & "*.doc")
r = 2
Set wd = CreateObject("word.application")
Do
r = r + 1
Cells(r, 1) = r - 2
Set d = wd.documents.Open(p & f)
With d.tables(1)
Cells(r, 2) = Application.Clean(.cell(1, 2).Range.Text) '将word表格第1行第2列的数据存入当前工作表的B列
Cells(r, 3) = Application.Clean(.cell(1, 4).Range.Text) '将word表格第1行第4列的数据存入当前工作表的C列
Cells(r, 4) = Application.Clean(.cell(2, 4).Range.Text) '将word表格第2行第4列的数据存入当前工作表的D列
Cells(r, 5) = Application.Clean(.cell(8, 2).Range.Text)
Cells(r, 6) = Application.Clean(.cell(6, 4).Range.Text)
Cells(r, 7) = Application.Clean(.cell(1, 6).Range.Text)
Cells(r, 8) = Application.Clean(.cell(3, 2).Range.Text)
Cells(r, 9) = Application.Clean(.cell(3, 4).Range.Text)
Cells(r, 10) = Application.Clean(.cell(10, 2).Range.Text)
Cells(r, 11) = Application.Clean(.cell(13, 4).Range.Text)
Cells(r, 12) = Application.Clean(.cell(13, 5).Range.Text)
End With
d.Close
f = Dir
Loop Until f = ""
wd.Quit
Set wd = Nothing
Application.ScreenUpdating = True
End Sub

热心网友 时间：2023-08-18 04:44

把WORD里的表格直接复制，再在EXCEL里面随便点一个空格粘贴，就可以直接在EXCEL里面任意编辑了。

热心网友 时间：2023-08-18 04:44

在word里面全选表格，excel里面粘贴就行再进行找信息的工作

热心网友 时间：2023-08-18 04:45

直接提取是不行的，建议将WORD里的表格复制到EXCEL里，然后再提取。