作者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/cn.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