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

看板Office作者 (Alice)時間5年前 (2019/01/04 21:45), 5年前編輯推噓0(0014)
留言14則, 2人參與, 5年前最新討論串1/1
軟體: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

01/04 22:53, 5年前 , 1F
可以用vba操作,寫在excel內的話,先設個暫存工作表
01/04 22:53, 1F

01/04 22:53, 5年前 , 2F
新建word引用word.application
01/04 22:53, 2F

01/04 22:54, 5年前 , 3F
迴圈日期2018/1/1到208/12/31
01/04 22:54, 3F

01/04 22:55, 5年前 , 4F
2018/12/31
01/04 22:55, 4F

01/04 22:55, 5年前 , 5F
新增工作表sheets.add,更名以name指定迴圈的變數值
01/04 22:55, 5F

01/04 22:56, 5年前 , 6F
開啟word檔documents.open 完整路徑和完整檔名,
01/04 22:56, 6F

01/04 22:56, 5年前 , 7F
檔名以format迴圈變數值,格式mmdd,連接字串以&
01/04 22:56, 7F

01/04 22:56, 5年前 , 8F
複製document.tables.range.copy
01/04 22:56, 8F

01/04 22:56, 5年前 , 9F
以原文word檔來看,要抓取的table索引值為1
01/04 22:56, 9F

01/04 22:57, 5年前 , 10F
貼上暫存工作表內worksheet.pastespecial
01/04 22:57, 10F

01/04 22:57, 5年前 , 11F
如果貼上的表格都一致的話,就將K:L內指定範圍
01/04 22:57, 11F

01/04 22:57, 5年前 , 12F
range.copy到新增工作表的儲存格a2處
01/04 22:57, 12F

01/04 22:57, 5年前 , 13F
最後document.close
01/04 22:57, 13F

01/06 11:28, 5年前 , 14F
非常感謝!!!希望第一次使用VBA能成功 ><
01/06 11:28, 14F
文章代碼(AID): #1SBsDk5c (Office)