Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 5836|回复: 3

[已解决]vba中用数组实现跨工作簿的复制问题

[复制链接]
发表于 2017-4-24 17:14 | 显示全部楼层 |阅读模式
本人初学vba,现想用数组实现不同工作簿之间的复制,但发现数组只能应用于同一工作簿中,求大神指教,如何解决?Sub CommandButton1_Click()
    Dim a, d, zt()
    a = "C:\Users\admin\Desktop\vba自动化专用\总体.xlsx"
    d = "C:\Users\admin\Desktop\vba自动化专用\模板.xlsx"

    Workbooks.Open (a)
    zt() = ActiveWorkbook.Sheets(1).Range("A5:E35").Value
    ActiveWorkbook.Save
    ActiveWorkbook.Close


    Workbooks.Open (d)
    ActiveWorkbook.Sheets(4).Range("b11:f41") = zt()

end sub
最佳答案
2017-4-24 18:31
本帖最后由 327718098 于 2017-4-24 18:33 编辑

多工作簿,不建议用activeworkbook,还是用workbooks(),比较好
同样sheets(1),也最好使用名称
发表于 2017-4-24 18:31 | 显示全部楼层    本楼为最佳答案   
本帖最后由 327718098 于 2017-4-24 18:33 编辑

多工作簿,不建议用activeworkbook,还是用workbooks(),比较好
同样sheets(1),也最好使用名称
回复

使用道具 举报

 楼主| 发表于 2017-4-25 16:58 | 显示全部楼层
327718098 发表于 2017-4-24 18:31
多工作簿,不建议用activeworkbook,还是用workbooks(),比较好
同样sheets(1),也最好使用名称

谢谢啦~~~~~~么么
回复

使用道具 举报

发表于 2017-4-25 17:20 | 显示全部楼层
zt(),改为zt试试
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 22:17 , Processed in 0.522867 second(s), 12 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表