财务合并底稿怎么根据文件名和里面的表名取数

凌空一羽

buger007 发表于 2017-7-23 16:04
ts.[d4] = Split(Mf, ".")(0)呢，这个0又是什么.如果我是取该表A3的值填到D4中，
用ts.[d4] = .Range("A ...

这句
ts.[d4] = Split(Mf, ".")(0)呢，这个0又是什么.如果我是取该表A3的值填到D4中

split 是生成一个从0为上限的一维数组，而Mf得到的是工作簿名，以.来划分会得到两部分，取0 就是截取第1个，即表名，来看例子
工作簿名：我来自.xls  
mf=我来自.xls
split(mf,".")  =  {"我来自","xls"}
split(mf,".")(0)="我来自"
这么说，楼主，明白了吧？
-----------------------------------------------------
ts.[d4] = .Range("a3").Value  这句是没有问题的，我还没有留意到分表的A3单元格有个名字，这些写也行。

buger007

凌空一羽 发表于 2017-7-23 10:13
Sub lkyy()
Dim Mp$, Mf, wb As Workbook, ts As Worksheet
Mp = ThisWorkbook.Path & "\"

有一个很大问题：宏再执行一次，这表就错了，应该是替换而不是增加吧

凌空一羽

buger007 发表于 2017-7-23 17:17
有一个很大问题：宏再执行一次，这表就错了，应该是替换而不是增加吧

本附件里的代码没错，如果你不是只做一次提取的话，可以先判断汇总表的D列，如果已经添加了，就删除，再汇总；否则，直接汇总。送花，楼主。

jjmysjg

留个记号，这个实用