⑴ 如何在EXECL中用VBa打开word,并输出数据到WORD中,保存,关闭
1、首先打开EXECL表格,然后在工作表中,点击菜单栏【开发工具】。
⑵ 怎么用VBA代码批量提取word中的特定数据到EXCEL
从你的图片,旅历可以看出,数据是在WORD文件的表格中的,编个小程序可以解决,思路如下:
1、程序遍历指定文件下的所有DOC类文档,
2、打开找到的第一个文档,遍历文档中的每一个表格,
3、遍历表格中的每一个格子,与关键字进行比较袭穗,找出目标,其右侧的单元格中就是你要的字符串
4、程序新建EXCEL表格(这一步可以事先进行)
5、将拆禅搜找到的字符,输出到EXCEL表格中适当位置
6、循环直至文档未
7、循环直至文件夹中所有DOC文档全部处理完成
8----欢迎一起探讨(说明,我用的是C++,调用WORD,与EXCEL用的是ACTIVEX方法)
⑶ 怎么是用VBA批量提取word文档指定内容到Excel
Sub abc()
Dim App, WrdDoc, MyPath, MyFile, BM, Str
Mypath = "文件实际路径\*.doc" '请修改实际储存路径!
Set App = CreateObject("Word.Application") '用Set关键字创建Word应用成序对象!
MyFile = Dir(Mypath) ' 获得第一个WORD文档
do while MyFile <> "" ' 遍历Mypath下面的所有WORD文档
App.Visible = True
Set WrdDoc = App.Documents.Open(MyFile) '打开这个Word文件!
for each BM in WrdDoc.Bookmarks ' 遍历文档中的所有书签
Str = BM.Range ' 读取书签内容
next BM
WrdDoc.Close ' 关闭文件
MyFile = Dir ' 下一个WORD文档
Loop
Set App = Nothing
End Sub