作者tmac41103 (支持火箭,不离不弃)
看板Office
标题[算表] VBA 将不同资料夹内同档名的工作表合并
时间Sun Jun 4 02:48:22 2017
软体: EXCEL
版本: 2013
不好意思想请教一个问题, 问题如下:
有N个资料夹,里面都存有N个同档名的档案,
这样的话用VBA的语法
要怎麽将不同资料夹内档名一样的档案合并成一个档呢? 谢谢
EX:
有三个资料夹分别为 A B C
而这三个资料夹中分别都存有 AA.xls和BB.xls这两个档案
然後现在要把在A B C三个资料夹中AA.xls内的工作表都合并成一个工作表,
也要把三个资料夹中BB.xls内的工作表都合并成一个工作表,
有办法吗?
问题有点复杂, 如有说明不清楚的地方请见谅, 谢谢
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 111.185.89.93
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1496515709.A.3D0.html
※ 编辑: tmac41103 (111.185.89.93), 06/04/2017 02:49:49
1F：→ soyoso: n个资料夹是於同一个目录下，取得资料夹名称可以 06/04 11:40
2F：→ soyoso: scripting.filesystemobject回圈於getfolder.subfolders 06/04 11:42
3F：→ soyoso: 取以其中一个资料夹下不定数档名为依据合并成一个活页簿的 06/04 11:47
4F：→ soyoso: 话，可以回文取得的资料夹名称，回圈於getfolder.files 06/04 11:48
5F：→ soyoso: 或以取得的资料夹名称，回圈於dir 06/04 11:54
6F：→ soyoso: 其他的动作如开档workbook.open，如档案内又有一个以上工 06/04 11:56
7F：→ soyoso: 作表要复制的话，回圈於sheets或worksheets内 06/04 11:58
8F：→ soyoso: 复制range.copy、定位range.end、贴上worksheets.paste或 06/04 11:59
9F：→ soyoso: range.pastespecial、关档workbook.close 06/04 12:00
10F：→ soyoso: 如为复制值的话可以range = range.value，定位另有range. 06/04 12:08
11F：→ soyoso: find 06/04 12:09
12F：→ tmac41103: 挖赛太猛了... 我再依据您给的提示研究一下, 感谢!! 06/04 22:51