当前位置:首页经验技巧Office经验office图文

如何从word里导出内容到excel表格

2024-07-07 08:36:48

1.怎么从word里导出内容到excel表格

方法如下: 1、首先,打开媒介工具“记事本”,将word文件里需要导入的数据,复制粘贴到记事本当中,然后保存成为txt文件,本例中将txt文件取名为“1.txt”。

2、打开excel表格,点击“数据”选项卡,在“获取外部数据”当中,找到“自文本”。 3、点击“自文本”,弹出下一窗口,选择刚才保存的名为1的txt类型文件,点击“导入”。

因“自文本”方式数据导入默认的只有三种文件类型txt、csv、prn,所以需要事先将word转变为txt。 4、弹出文本导入对话框,选择默认的固定宽度,意思就是数据与单元格一一对应。

如果选择分隔符号,则导入的所有数据将会在一个单元格当中,接着,点击下一步。 5、设置分行线,其实就是导入数据列数的控制,单击鼠标,可以在任意位置增加分行线。

双击任意分行线,就会删除。完成设定后,点击下一步。

6、设置输出数据的格式,一般不需要进行任何设置,选择常规即可,点击“完成”。 7、导入完成。

2.如何提取WORD中的特定内容制成excel表格

用宏命令。

Sub abc() Dim App, WrdDoc, Mypath As String, StrA As String, StrB As String Mypath = ThisWorkbook.Path & "\aaa.doc" '请修改实际储存路径! Set App = CreateObject("Word.Application") '用Set关键字创建Word应用成序对象! App.Visible = True'根据实际情况修改是否可见 Set WrdDoc = App.Documents.Open(Mypath) '打开这个Word文件! StrA = WrdDoc.Tables(1).Cell(1, 2).Range.Text ' 你要的第一个内容:第一行,第二列 StrB = WrdDoc.Tables(1).Cell(2, 2).Range.Text ' 你要的第一个内容:第二行,第二列 WrdDoc.Close ' 关闭文件 Set App = Nothing Debug.Print StrA Debug.Print StrBEnd Sub。


电脑版

免责声明:本站信息来自网络收集及网友投稿,仅供参考,如果有错误请反馈给我们更正,对文中内容的真实性和完整性本站不提供任何保证,不承但任何责任,谢谢您的合作。
版权所有:五学知识网 Copyright © 2015-2024 All Rights Reserved .