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

[alice1225 (Alice)]

軟體: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://www.ptt.cc/bbs/Office/M.1546609518.A.166.html
※ 編輯: alice1225 (223.140.13.119), 01/04/2019 21:49:58
→ soyoso: 可以用vba操作，寫在excel內的話，先設個暫存工作表
→ soyoso: 新建word引用word.application
→ soyoso: 迴圈日期2018/1/1到208/12/31
→ soyoso:                   2018/12/31
→ soyoso: 新增工作表sheets.add，更名以name指定迴圈的變數值
→ soyoso: 開啟word檔documents.open 完整路徑和完整檔名，
→ soyoso: 檔名以format迴圈變數值，格式mmdd，連接字串以&
→ soyoso: 複製document.tables.range.copy
→ soyoso: 以原文word檔來看，要抓取的table索引值為1
→ soyoso: 貼上暫存工作表內worksheet.pastespecial
→ soyoso: 如果貼上的表格都一致的話，就將K:L內指定範圍
→ soyoso: range.copy到新增工作表的儲存格a2處
→ soyoso: 最後document.close
→ alice1225: 非常感謝！！！希望第一次使用VBA能成功 ><