[算表] 批次复制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