作者koking730929 (兰斯洛)
看板Office
标题[算表] Excel VBA 执行合并档案
时间Fri Dec 20 22:37:26 2019
软体: Excel VBA
版本: 2013
请问如想要利用VBA写出如下结果
1. value add 固定栏位 如 range(B2:F152)
2. 打开当月每份档案相加档名一样 只有最後面日期不同
如XXXXX_20190101.xls-XXXXX_20190131.xls
3. 将整个月各栏位加总结果於当月工作日最後一个档案
请问有什麽比较简便的写法呢?
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 114.44.100.233 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1576852649.A.AD0.html
※ 编辑: koking730929 (114.44.100.233 台湾), 12/20/2019 22:38:30
1F:→ soyoso: 1号20190101和最後一日20190131可键於储存格内 12/20 22:51
2F:→ soyoso: 先开启workbooks.open最後当月最後一日的档案(相同档名字 12/20 22:51
3F:→ soyoso: 串&上述最後一日的储存格&.副档名) 12/20 22:51
4F:→ soyoso: 回圈1号(20190101)至当月最後一日前一日 12/20 22:51
5F:→ soyoso: 复制range.copy,选择性贴上range.pastespecial operation 12/20 22:51
6F:→ soyoso: 以xladd加至最後一日的档案 12/20 22:51
7F:→ newton41: 这听起来直接用公式就可以达成,直接把每个日期要被加总 12/20 22:52
8F:→ newton41: 的数字叫到同一个表格加总就行了。 12/20 22:52
9F:→ koking730929: 感激S大回文 想请问如果并不是所有当月日期都有档案 12/21 00:06
10F:→ koking730929: 要怎麽跳过那些不属於工作日或是自动判断资料夹 12/21 00:06
11F:→ koking730929: 内没有该日期档案就跳过的回圈写法呢? 12/21 00:07
12F:→ soyoso: 可判断dir("路径\*" & 回圈变数 & ".xls") 不为空字串<>"" 12/21 08:42
13F:→ soyoso: 时执行动作 12/21 08:42
14F:→ soyoso: 如果资料夹内都为当月档案的话,可回圈於dir是否为空字串 12/21 08:44
15F:→ koking730929: 了解 我会试试 谢谢 有问题再请教 12/21 12:35