跨工作簿复制数据有时候取数正确有时候取数错误？

cee1011

用了很笨的方法，直接录制宏，然后修改的。
PS.原 两份文件后面会加月份，为了运行VBA所以将文件名的月份删除了，可否在不改文件名情况下可以运行复制？ 复制.rar (94.54 KB, 下载次数: 9)

2018-9-4 11:06 上传

点击文件名下载附件

abc123281

要干什么也不知道

cee1011

abc123281 发表于 2018-9-4 12:15
要干什么也不知道

就是三个工作簿点开，然后点击运行，将YTD DK Invoice Summary by对应的数据复制到sale and cost那份工作簿里面。

abc123281

唉  算了  那么多表   怎么对应也不知道   表名也不相同  很难找  只有自己弄了

厄尔尼喏

说明你要做到的功能要求，看了附件还是很迷糊，要做到复制两工作簿的内容到另一工作簿，是可以不打开那两个工作簿的。只要指定固定路径或路径位置与目标工作簿相同的地方，做到其一就可以完成。
现在问题是都不知道你要复制什么过去。

cee1011

厄尔尼喏 发表于 2018-9-4 13:50
说明你要做到的功能要求，看了附件还是很迷糊，要做到复制两工作簿的内容到另一工作簿，是可以不打开那两个 ...

谢谢~
复制的话，是从工作簿YTD DK Invoice Summary by复制至sales&cost(复制至最后一个非工单元格下面的空单元格...)。
1.对应的工作表复制：[P - Sale Dept.拆]的区域["B3:V" & [a65536].End(3).Row]至 表[P-export]的C列:W列； [P - Sale Dept.拆] A列复制至[P-export]的BM列;[P - Sale Dept.拆] W列复制至[P-export]的AA列;[P - Sale Dept.拆] DH列复制至[P-export]的AB列;填充表[P-export]有公式的区域(A列：B列，X:Y，AC:AU,BF:BJ;BN:BO。

2.对应的工作表复制表 [T ]的[A3:U]至表 [Tr]的[c:w];填充有公式的 a列;Z:E列。

3.对应的工作表复制 表[M - Sale Dept.]的 [A3:W ][X3:DG]至表[ P-Mould 2015-2018] 的[C:Y] [Z:DI];填充有公式的 a:b;Z:E列。

4.对应的工作表复制表 [DDP运费] 的[a3:V]至表 [T-DDP]的[B:W]；;填充有公式的 a列。

我录制的宏运行的结果存在的问题是：[P - Sale Dept.拆]的数据源有5行,但是运行结果复制过去却只复制了两行而已。


附件有改了一下，我重新上传。

cee1011

abc123281 发表于 2018-9-4 13:43
唉  算了  那么多表   怎么对应也不知道   表名也不相同  很难找  只有自己弄了

谢谢~
复制的话，是从工作簿YTD DK Invoice Summary by复制至sales&cost(复制至最后一个非工单元格下面的空单元格...)。
1.对应的工作表复制：[P - Sale Dept.拆]的区域["B3:V" & [a65536].End(3).Row]至 表[P-export]的C列:W列； [P - Sale Dept.拆] A列复制至[P-export]的BM列;[P - Sale Dept.拆] W列复制至[P-export]的AA列;[P - Sale Dept.拆] DH列复制至[P-export]的AB列;填充表[P-export]有公式的区域(A列：B列，X:Y，AC:AU,BF:BJ;BN:BO。

2.对应的工作表复制表 [T ]的[A3:U]至表 [Tr]的[c:w];填充有公式的 a列;Z:E列。

3.对应的工作表复制 表[M - Sale Dept.]的 [A3:W ][X3:DG]至表[ P-Mould 2015-2018] 的[C:Y] [Z:DI];填充有公式的 a:b;Z:E列。

4.对应的工作表复制表 [DDP运费] 的[a3:V]至表 [T-DDP]的[B:W]；;填充有公式的 a列。

我录制的宏运行的结果存在的问题是：[P - Sale Dept.拆]的数据源有5行,但是运行结果复制过去却只复制了两行而已。


附件有改了一下，我重新上传。

cee1011

abc123281 发表于 2018-9-4 13:43
唉  算了  那么多表   怎么对应也不知道   表名也不相同  很难找  只有自己弄了

不好意思，没说清楚；重新写了一下。确实太多了。。麻烦帮忙看下，是什么问题。
谢谢~
复制的话，是从工作簿YTD DK Invoice Summary by复制至sales&cost(复制至最后一个非工单元格下面的空单元格...)。
1.对应的工作表复制：[P - Sale Dept.拆]的区域["B3:V" & [a65536].End(3).Row]至 表[P-export]的C列:W列； [P - Sale Dept.拆] A列复制至[P-export]的BM列;[P - Sale Dept.拆] W列复制至[P-export]的AA列;[P - Sale Dept.拆] DH列复制至[P-export]的AB列;填充表[P-export]有公式的区域(A列：B列，X:Y，AC:AU,BF:BJ;BN:BO。

2.对应的工作表复制表 [T ]的[A3:U]至表 [Tr]的[c:w];填充有公式的 a列;Z:E列。

3.对应的工作表复制 表[M - Sale Dept.]的 [A3:W ][X3:DG]至表[ P-Mould 2015-2018] 的[C:Y] [Z:DI];填充有公式的 a:b;Z:E列。

4.对应的工作表复制表 [DDP运费] 的[a3:V]至表 [T-DDP]的[B:W]；;填充有公式的 a列。

我录制的宏运行的结果存在的问题是：[P - Sale Dept.拆]的数据源有5行,但是运行结果复制过去却只复制了两行而已。


附件有改了一下，我重新上传在楼上~。

cee1011

abc123281 发表于 2018-9-4 13:43
唉  算了  那么多表   怎么对应也不知道   表名也不相同  很难找  只有自己弄了

表有点多。用我这个笨方法，为毛数据源有5行，复制过去却只有2行。。

但是偶尔几次却可以把5行全部复制过去。

cee1011

~~~~~~~~~~~~~~~~