VBA中代码选择vba操作另一个工作簿簿怎么写

来源：蜘蛛抓取(WebSpider) 时间：2016-07-06 00:58 标签： vba 关闭另一个工作簿
VBA跨工作簿调取数据代码，急求_excel吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：116,591贴子：
VBA跨工作簿调取数据代码，急求收藏
如何将book1工作薄中sheet1工作表中的a1:a10区域中的内容（值）提取或复制到book2工作簿中sheet2工作表中的a1：a10区域。有两种情况：一是book1工作簿是打开的，二是book1工作簿没有打开。求高手讲解啊，急需
下面的代码,没打开会自动打开.Sub test()
Set wb1 = Workbooks.Open("d:\dir\book1.xls")
Workbooks("book2.xls").Sheets("sheet1").Range("a1:a10").Value = wb1.Sheets("sheet1").Range("a1:a10").ValueEnd Sub
运行的时候报错，下标越界
自己把代码写反了，这下能运行了，非常感谢
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或各位大神，如何用vba讲内容剪切粘贴到同个工作簿另一个工作表？_excel吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：116,591贴子：
各位大神，如何用vba讲内容剪切粘贴到同个工作簿另一个工作表？收藏
如图，如何将表中按渠道将内容剪切到不同工作表中，例如将渠道为HKCP大包空邮的内容剪切到sheet1，HKCP大包平邮的内容剪切到sheet2。因为我有几十个这种渠道，所以想用vba来完成这个功能感激不尽啊
有技术才华就上大学仕！
Sub test()
Set dic = CreateObject("scripting.dictionary")
Set sht = ActiveSheet
n = Range("c65536").End(xlUp).Row - 1
arr = Range("c2").Resize(n, 1).Value
For r = 1 To n
dic(arr(r, 1)) = dic(arr(r, 1)) + 1
bt = Range("a1:g1").Value
sn = dic.keys
st = dic.items
On Error GoTo AddSheet
For i = 0 To UBound(sn)
With Sheets(sn(0))
Range("a1:g1").Value = bt
Range("a2").Resize(st(i), 7).Value = sht.Cells(r, 1).Resize(st(i), 7).Value
r = r + st(i)
Set dic = Nothing
Exit SubAddSheet:
Sheets.Add Sheets(1)
Sheets(1).Name = sn(i)
Resume Next
With Sheets(sn(0)) 应该改为
With Sheets(sn(i))另外，做之前要对C列进行排序
试了几次，在With下面的两句前加上点后，又在With前边加一个空的With【With Sheets(sn(i))
End With】（用来判断该表是否存在），然后就不会出错了，不论是否需新增工作表。
其他的差不多，运行代码前，对渠道、状态进行排序把猫吧code中最上面这几行改下应该就行了。Set dic = CreateObject("scripting.dictionary")Set sht = ActiveSheetn = Range("c65536").End(xlUp).Row - 1arr = Range("c2").Resize(n, 5).ValueFor r = 1 To ndic(arr(r, 1)&“,"& arr(r,5)) = dic(arr(r, 1)&“,"& arr(r,5)) + 1Next没测试，你试试看有可以不用排序的，网上有相应的代码，一般是思路是字典取不重复的关键字，然后新建工作表，再从数组一条一条抽取赋 值 ，但这样速度会比猫吧那种慢很多。
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或VBA代码中引用Excel工作表中单元格区域的方式小结_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
VBA代码中引用Excel工作表中单元格区域的方式小结
上传于||文档简介
&&V​B​A​代​码​中​引​用​E​x​c​e​l​工​作​表​中​单​元​格​区​域​的​方​式​小​结
阅读已结束，如果下载本文需要使用0下载券
想免费下载更多文档？
下载文档到电脑，查找使用更方便
还剩8页未读，继续阅读
你可能喜欢

我要回帖

更多关于 vba 关闭另一个工作簿 的文章

 

随机推荐