[已解决]不同工作薄名的多表复制？

gwfzh · 发表于 2014-5-29 10:21

本帖最后由 gwfzh 于 2014-5-29 15:08 编辑

各位老师：

本"测试"文件夹下有多个工作薄，如何按每2个工作薄将其表格复制到本工作薄相应表“chd、hux、xiey、yur”的二个区域中，如chd（1）表复制到本工作薄“chd”表a:f列区域， chd（2）表复制到本工作薄“chd”表g:n列区域，其他hux、xiey、yur三个表均一样的进行操作（这些工作薄的表头都一样，格式也一样。只是行数不同)。该怎样复制，请各位老师帮助了，谢谢！！！

另程序中代码

Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & nrr(i)(1) & ".xls")怎么出现了“错误13‘类型不匹配’”的错误？这里的工作薄与表名，可以用数组元素表示吗（红色代码）？

测试.rar (52.4 KB, 下载次数: 3)

zjdh · 发表于 2014-5-29 10:52

本帖最后由 zjdh 于 2014-5-29 13:03 编辑

1. 你的许多文件打不开！
2. 数组取数应该是
nrr = Array("chd", "hux", "xiey", "yur") '对数组赋值
For i = 0 To 3
Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & nrr(i) & “(1) .xls")
wb.Sheets(nrr(i) & “(1)" )Range("A2：G16").Copy ThisWorkbook.Sheets(nrr(i)).Range("A2")

gwfzh · 发表于 2014-5-29 11:11

本帖最后由 gwfzh 于 2014-5-29 15:10 编辑

测试.rar (38.28 KB, 下载次数: 5)

2014-5-29 15:10 上传
点击文件名下载附件 zjdh 发表于 2014-5-29 10:52
1. 你的许多文件打不开！
2. 数组取数应该是
nrr = Array("chd", "hux", "xiey", "yur") '对数组赋值 ...

重新传上附件，请老师帮助解决！！！谢谢主

zjdh · 发表于 2014-5-29 13:03

测试.rar (175.03 KB, 下载次数: 21)

gwfzh · 发表于 2014-5-29 14:36

zjdh 发表于 2014-5-29 13:03

谢谢zjdh老师！但为什么在你上传的文件中程序可以运行，在我自己的文件中出现“错误1004‘找不到文件’”的错误呢？

zjdh · 发表于 2014-5-29 15:19

gwfzh 发表于 2014-5-29 14:36
谢谢zjdh老师！但为什么在你上传的文件中程序可以运行，在我自己的文件中出现“错误1004‘找不到文件’ ...

检查一下，你的文件名称，有的用英文括弧，有的用中文括弧，都要改成英文括弧！

wuyuechina · 发表于 2014-6-3 09:30

学习

		自动登录	找回密码
密码			注册

[已解决]不同工作薄名的多表复制？

评分