[算表] 批次複製word檔內表格至excel (vba)

作者: alice1225 (Alice)   2019-01-04 21:45:14
軟體: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
作者: soyoso (我是耀宗)   2019-01-04 22:53:00
可以用vba操作,寫在excel內的話,先設個暫存工作表新建word引用word.application迴圈日期2018/1/1到208/12/312018/12/31新增工作表sheets.add,更名以name指定迴圈的變數值開啟word檔documents.open 完整路徑和完整檔名,檔名以format迴圈變數值,格式mmdd,連接字串以&複製document.tables.range.copy以原文word檔來看,要抓取的table索引值為1貼上暫存工作表內worksheet.pastespecial如果貼上的表格都一致的話,就將K:L內指定範圍range.copy到新增工作表的儲存格a2處最後document.close
作者: alice1225 (Alice)   2019-01-06 11:28:00
非常感謝!!!希望第一次使用VBA能成功 ><

Links booklink

Contact Us: admin [ a t ] ucptt.com