推荐这篇日记的豆列
&&&&&&&&&&&&查看: 3248|回复: 6
如何跨工作簿复制数据
阅读权限20
在线时间 小时
& & & & & & & &
本帖最后由 wuwalo 于
20:23 编辑
我想达到的目的：
1、点击 A工作簿中的控件按钮，就可以把A工作簿的内容整行整行地复制到B工作簿那里，每次点击，B工作簿的数据会相应往下推移。就是B工作簿中的数据是往下累加，不是覆盖。
2、在数据过去B工作簿的过程中，空单元格以及错误值都不会复制过去
下图是A工作簿中的数据，
QQ截图11.png (1.78 KB, 下载次数: 4)
20:22 上传
下面是复制到B工作簿中的结果
QQ图片19.png (1.34 KB, 下载次数: 5)
20:22 上传
file:///C:/Users/lololuan/Documents/Tencent%20Files//Image/C2C/_35FL8XUFE%7DNCB(GU33XHTL.gif
file:///C:/Users/lololuan/Documents/Tencent%20Files//Image/C2C/_35FL8XUFE%7DNCB(GU33XHTL.gif
这是之前别人写的在模块里的代码，但这个代码只能在同一个工作簿中转移，不能跨工作簿，
这个代码里的数据源在A工作簿中的sheet1，而“快递追踪”这个工作表也在A工作簿。但现在““快递追踪”这个工作表已经不在A工作簿里了，放在B工作簿了。
我把Sheets(&快递追踪&) 改成Workbooks.(&B&.xlsx).Sheets(&快递追踪&) 运行错误，不知道这个代码应该怎么修改，或者各位有没有其他更好的代码。（代码复制过来时排版打乱了）
感谢各位！
Sub test(sht As Worksheet)
&&Dim ar, i, j, rw, mar = sht.UsedRange
If UBound(ar) & 1
Then& &ReDim br(1 To UBound(ar), 1 To UBound(ar, 2))& &
For i = 2 To UBound(ar)& &
If ar(i, 1) && 0 And ar(i, 1) && && Then& && && &m = m + 1& && && &For j = 1 To UBound(ar, 2)& && && &&&br(m, j) = ar(i, j)& && &
&&Next& && && &
br(m, 4) = Replace(br(m, 4), &*&, &&)& && &
& & rw = Sheets(&快递追踪&).[a65536].End(3).Row + 1& && && && && && && && && &&&
& &If m & 0 Then Sheets(&快递追踪&).Range(&a& & rw).Resize(m, UBound(br, 2)) = br& & MsgBox sht.Name & &已复制&
阅读权限70
在线时间 小时
改成Workbooks(&B.xlsx&).Sheets(&快递追踪&) 看看。
阅读权限20
在线时间 小时
本帖最后由 wuwalo 于
10:02 编辑
改成Workbooks(&B.xlsx&).Sheets(&快递追踪&) 看看。
好像可以了，原来这么简单，我应该多想想的，呵呵
不过，我试着把这个按钮复制到一个新的宏工作簿里，把按钮click的代码和模块里的代码都复制过去，
但按了按钮却一点反应都没有，为什么会这样呢
楼下有附件
阅读权限100
在线时间 小时
楼主，上传一下附件
阅读权限20
在线时间 小时
本帖最后由 wuwalo 于
10:31 编辑
附件已上传，压缩包里有两个文件，跨工作簿转移数据的问题已经解决，但我把按钮以及按钮的click代码和模块代码都复制到新工作簿里去，
但新工作簿里的代码却不能执行，请问这是为何？
10:31 上传
点击文件名下载附件
44.54 KB, 下载次数: 109
阅读权限20
在线时间 小时
本帖最后由 wuwalo 于
10:15 编辑
如果在原有的工作簿里修改代码，已经可以实现跨工作簿复制了
但是我把按钮以及按钮的click代码和模块代码都复制到一个新的工作簿里，但新的工作簿中这个按钮却按了没反应，这是为什么呢
阅读权限20
在线时间 小时
楼主，上传一下附件
附件已上传，原来的问题已解决，现在有新问题，麻烦看一下，谢谢啦
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师vba excel如何跨工作簿拷贝内容_百度知道
vba excel如何跨工作簿拷贝内容
我有更好的答案求助知道网友
B2 复制到 表2 的C1 开始的区域;)，可以用下面的代码，其他的变通一下就可以Sheets(&表1&).[a1:b2].Copy&Sheets(&表2&quot比如：表1 的A1
不是工作表与工作表之间的拷贝。是文件与文件之间的拷贝，另外我额外需要的是内容全拷贝
Option&ExplicitSub&DsheetCopy()&&&&Dim&sht&As&Workbook,&rng&As&Range&&&&Set&sht&=&Application.Workbooks.Open(&d:\1.xlsx&)'要复制目标表路径&&&&Set&rng&=&sht.Sheets(&Sheet1&).UsedRange'要复制的区域，这里是全部已用区域&&&&rng.Copy&&&&ThisWorkbook.Sheets(&Sheet1&).Range(&a1&).PasteSpecial'要粘贴到的表&&&&sht.Close&0&&&&Set&rng&=&Nothing&&&&Set&sht&=&NothingEnd&Sub
我是想将其它表格里面的内容复制到这个表格中（宏所在的表格）
我是想将其它表格里面的内容复制到这个表格中（宏所在的表格）
滚你 妈 的，你在逗老子，一会儿 工作簿之间复制，一会儿工作表间复制，就尼玛10分 你是故意不采纳，骗老子免费给你写代码的哈，我TM 好几万财富没东西兑换憋着火呢，你爱求要不要，傻X
你既然不愿意回答就一开始就不要回答呀
Sheet1.range(&a1&)=sheet2;c1&quot.range(&quot.range(&)拷贝一个单元格 Sheet1例如
本回答被提问者和网友采纳
1条折叠回答
为您推荐：
其他类似问题
excel的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。查看: 8638|回复: 6
[Excel VBA]
把某一工作簿中某个工作表复制到其他工作簿中能否只复制表而不复制vba代码
初级三, 积分 333, 距离下一级还需 167 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
免费注册成为本站会员，享用更多功能，结识更多Office办公高手！
才可以下载或查看，没有帐号？
各位前辈，下午好：叨扰了，小弟在工作中有时遇到打开2个独立工作不得情况，此时我要把某个工作簿中名称为“abc”的工作表，复制到另外一个独立的工作簿中去（前提另外一个工作簿中没有名称为“abc”的工作表），小弟通常用的办法是单机需要复制工作表的工作表标签的右键弹出移动或者复制工作表的单击窗口，随后单机移动或者复制工作表选择另外一个工作簿在复制过去，但是这样有一个问题就是把原来“abc”的工作表的代码一起复制过去了，小弟想要请教如何应vba的办法，在复制工作表到另外一个工作簿中的时候不把原工作表中的代码一起复制过去，请各位前辈们赐教，谢谢！
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
在目标工作簿新建个表，然后复制源工作簿的指定工作表的已使用区域到目标工作簿指定工作表的对应区域，然后重新命名就行了
非常感谢两位前辈的指导，小弟还有2个问题如 ...
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
另外一个办法，如果楼主用的是07以上版本，在使用“移动或复制”将工作表复制到新工作簿后，将新工作簿保存为xlsx格式，也就是不带宏的格式。如果需要xls，再另存xls即可。也就是新工作簿用一次保存、一次另存操作。
非常感谢两位前辈的指导，小弟还有2个问题如 ...
初级三, 积分 333, 距离下一级还需 167 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
非常感谢两位前辈的指导，小弟还有2个问题如下：
1、kevinchengcw版主的思路小弟明白，但是有一个小问题，就是小弟在实际工作中遇到需要复制过去的那个工作簿的名称每天是不同的，即把已有的工作表添加到新的工作簿中，等于在另一个工作簿中新增了一个工作表，但是另一个工作簿的名称一直是变化的，这个的话代码等于一直要修改，能否有更简单的办法（能否请您给出修改代码）；
2、wjc2090742 版主的办法确实解决的非常巧妙，但是我们公司到目前还在用2003版本的office，无奈我在公司内部发给别人时只能用2003样式的，不过这个思路确实不错，非常感谢！
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
如果目标工作簿是一个新建的工作簿，那么表移动过去后，Alt+F11，双击表名打开代码编辑窗口，把代码全部删掉，这样应该也是可以的吧？
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
非常感谢两位前辈的指导，小弟还有2个问题如下：
1、kevinchengcw版主的思路小弟明白，但是有一个小问题，就是小弟在实际工作中遇到需要复制过去的那个工作簿的名称每天是不同的，即把已有的工作表添加到新的工作簿 ...
yumin 发表于
利用在程序中手动选择文件的方式就可以了，手动选择的方式以前写给你的代码中好像就有，你参考一下。
好的，谢谢kevinchengcw版主，让我看一下以 ...
初级三, 积分 333, 距离下一级还需 167 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
好的，谢谢kevinchengcw版主，让我看一下以前已经解决的问题，应该有利于弹出选择窗口选择工作簿的代码，有问题再来请教您，谢谢！
站长推荐 /1
40集公式入门动画教程，一天带你打好公式的基础。
Excel技巧网的会员探讨问题仅代表其个人意见，与网站的立场无关。任何违反国家和地方相关法律法规的言论，本站有义务协助政府相关部门追究发言者的责任！
本站中非注明转载文章与案例的版权为作者与Excel技巧网共有。若非原文作者，本站之外任何单位或个人未经允许，不得将其用于商业用途。
若非原文作者，任何形式的非商业性转载必须获得Excel技巧网或作者允许，并注明作者和出处。
会员发表的帖子如涉及版权纠纷，须自行负责。详情请参考注册时的网站服务条款。
本站特聘法律顾问：沈学律师
Powered by查看: 1113|回复: 16
跨工作表复制黏贴请教
阅读权限10
在线时间 小时
跨工作表复制黏贴，即一个文件夹中有5个XLS文件和&模板.xls&（每个文件均包含封面和签字页），现在需将&模板.xls&文件中的封面和签字页复制至这5个XLS文件的封面和签字页，保存并自动关闭模板外的5个excel，
效果.png (63.28 KB, 下载次数: 0)
13:32 上传
(784.96 KB, 下载次数: 5)
13:33 上传
点击文件名下载附件
在线时间 小时
头像被屏蔽
& & & & & & & &
提示: 作者被禁止或删除 内容自动屏蔽
阅读权限100
在线时间 小时
留个记号，晚上看具体需求。
阅读权限10
在线时间 小时
& & & & & & & &
好!!!!我自己高了好久，没有研究出来1
阅读权限30
在线时间 小时
留个记号，晚上回去看看！！！
阅读权限10
在线时间 小时
大神门可有解决的代码？，我感觉主要是在打开后，黏贴和关闭这一块麻烦，我是菜鸟，不会
阅读权限100
在线时间 小时
多簿操作不太熟悉，关注。
阅读权限30
在线时间 小时
弄好了，在附件里面，在项目表里面点击插入就好了。
22:43 上传
点击文件名下载附件
1.25 MB, 下载次数: 59
阅读权限10
在线时间 小时
感谢老师的指点！功能已能实现，代码也看懂了，不过个小疑问，请老师解答，这个代码中 With Workbooks(1)， With Workbooks(2)系统是如何判定的，在代码编写时怎么处理，，在测试过程重，如果打开有第三个表格或者更多的时候，就会出现错误，超越下标，该如何处理呢
阅读权限95
在线时间 小时
xx274843 发表于
感谢老师的指点！功能已能实现，代码也看懂了，不过个小疑问，请老师解答，这个代码中 With Workbooks(1)， ...
说明了代码还是没看懂啊！！！
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师