作者alice1225 (Alice)
看板Office
標題[算表] 批次複製word檔內表格至excel （vba)
時間Fri Jan 4 21:45:14 2019
軟體:excel
版本:2013
各位板友大家好。
我有一年份的word檔，檔名為「值」+日期，
例如107年1月1日的檔案為「值0101」，107年12月1日的檔案為「值1201」，
從「值0101」到「值1231」共365個word檔。
我想要複製最右邊那欄的表格(姓名以及當日假別)至excel製作資料庫，
以便建立每個人的休假紀錄。
因為重複複製貼上要花很多時間 QQ
想請問可以使用VBA操作嗎？
(爬文看到VBA，但是不太懂如何使用 > <)
請高手指點~~~
非常感謝~~~~~~~~
（word檔因當初設計不當，導致格式會跑掉，不知是否會影響匯入excel)
「值1201」檔案連結：
https://www.dropbox.com/s/366xippkzvm85bm/%E5%80%BC1201.docx?dl=0
「值1202」檔案連結：
https://www.dropbox.com/s/vwia9dk3if47jh1/%E5%80%BC1202.docx?dl=0
希望呈現的excel，檔案連結：
https://www.dropbox.com/s/oundcrno3vaimfp/%E5%8C%AF%E5%85%A5excel.xlsx?dl=0
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 223.140.13.119
※ 文章網址: https://webptt.com/m.aspx?n=bbs/Office/M.1546609518.A.166.html
※ 編輯: alice1225 (223.140.13.119), 01/04/2019 21:49:58
1F：→ soyoso: 可以用vba操作，寫在excel內的話，先設個暫存工作表 01/04 22:53
2F：→ soyoso: 新建word引用word.application 01/04 22:53
3F：→ soyoso: 迴圈日期2018/1/1到208/12/31 01/04 22:54
4F：→ soyoso: 2018/12/31 01/04 22:55
5F：→ soyoso: 新增工作表sheets.add，更名以name指定迴圈的變數值 01/04 22:55
6F：→ soyoso: 開啟word檔documents.open 完整路徑和完整檔名， 01/04 22:56
7F：→ soyoso: 檔名以format迴圈變數值，格式mmdd，連接字串以& 01/04 22:56
8F：→ soyoso: 複製document.tables.range.copy 01/04 22:56
9F：→ soyoso: 以原文word檔來看，要抓取的table索引值為1 01/04 22:56
10F：→ soyoso: 貼上暫存工作表內worksheet.pastespecial 01/04 22:57
11F：→ soyoso: 如果貼上的表格都一致的話，就將K:L內指定範圍 01/04 22:57
12F：→ soyoso: range.copy到新增工作表的儲存格a2處 01/04 22:57
13F：→ soyoso: 最後document.close 01/04 22:57
14F：→ alice1225: 非常感謝！！！希望第一次使用VBA能成功 >< 01/06 11:28