⑴ 如何在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