wps中用vba将一个wps表格无法将工作表表中的数据一键保存到别一个wps表格无法将工作表表中，代码出现下标越界错误，求教

来源：蜘蛛抓取(WebSpider) 时间：2018-04-25 07:52 标签： vba跨工作表引用数据
拒绝访问 | www.excelpx.com | 百度云加速
请打开cookies.
此网站 (www.excelpx.com) 的管理员禁止了您的访问。原因是您的访问包含了非浏览器特征(410f4b7a43d03a7c-ua98).
重新安装浏览器，或使用别的浏览器09-0909-0509-1608-08
03-0109-2804-1102-17
◇本站云标签
◇热点推荐如何把excel中的Sheet1插入到另一个工作表中作为Sheet2？_百度知道
如何把excel中的Sheet1插入到另一个工作表中作为Sheet2？
我有更好的答案
　　对指定工作表进行“移动或复制”操作即可，方法如下：打开工作簿，然后从文件菜单中的打开打开另一个工作簿在你需要复制的工作表名称处点击鼠标右键在弹出的菜单中点击“移动或复制”此时弹出“移动或复制工作表”窗口，在里面点击工作簿，选择你要复制到的目标文件点击确定按钮
采纳率：63%
来自团队：
把两个工作表都打开，在你需要移走的这个SHEET1处右键，选择移动或复制工作表，然后如下图。在下拉列表中选择你要移动到哪个表，建立副本处打上勾。我这里是把“中值计算”中的一个sheet移动到“例子”这个表中。然后如图，选择要移动到的位置 ，确定就OK。
刚刚试过了，可是不行呢。我是想把第一个表中的“政府文件”移动到第二个表中的Sheet2中
你把你现在这个表和另一个表一起打开……鼠标放在“政府文件”这个标签上。右键，选择移动或复制工作薄。
本回答被提问者采纳
请把2个工作表格都打开，然后在sheet1中点击右键”移动或复制工作表（M)“-&在工作簿地方选择你的另外个工作文件，”下拉选定工作表之前“这里选择”移动到最后“即可
为您推荐：
其他类似问题
excel的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。EXCEL VBA 从一个工作簿中复制多个sheet到另一个工作簿，下标越界错误_百度知道
EXCEL VBA 从一个工作簿中复制多个sheet到另一个工作簿，下标越界错误
我录制了一个宏，想将源工作簿SrcWorkBook中的3个sheet（例）复制到一个新建的工作簿中，并删除新建工作簿中的原3个sheet，老出现下标越界错误，请指点我一下，谢谢
宏录制步骤：
1、新建工作簿
2、在SrcWorkBook中选择指定的几张工作表，右键选择“移动或...
我有更好的答案
我试过了，我可以的。你确定下你的workbook是不是有Sheet1&, &Sheet2&, &Sheet3 这三张表。或者你把你的全部代码贴出来，帮你看看。你就发这个一句，怎么找问题呢。。。
采纳率：20%
为您推荐：
其他类似问题
下标越界的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。查看: 1421|回复: 6
VBA汇总数据时下标越界错误，实际工作中求助
阅读权限20
在线时间 小时
各位朋友大家好，本人不懂VBA，现实工作中需要涉及许多数据汇总，目前面临老下标越界错误9，很无奈无法解决，特来这里高手求助，我的附件是有是一个汇总表，还有西安、成都两表，其中西安、成都每个表下有若干表，我的目的是想把西安、成都俩表中的“费用执行总表”汇总到“汇总”表中，第一个sheet1 是两地方的汇总，后面sheet 分别是 西安、成都，最好是SHEET1 中可以自动求和。
Sub copypaste()
Workbooks.Open &F:\报表\西安.xls&
& & '激活工作簿西安，并选中西安工作表的A1到o149单元格复制
& & Windows(&西安&).Activate
& & Sheets(&费用执行总表&).Select
& & Sheets(&费用执行总表&).Range(&A1:o149&).Select
& & Selection.Copy
& & '激活工作簿汇总，并将复制好的内容粘贴到当前表的A1到o149单元格
& & Windows(&汇总.xls&).Activate
& & Sheets(&费用执行总表&).Select
& & Sheets(&费用执行总表&).Range(&A1:o149&).Select& &
& &ActiveSheet.Paste
& & Workbooks(&.xls&).Close False
每次运行到标红地方就下标越届，确实不知道怎么修改，求高手指点下，多谢{:soso_e154:}
阅读权限20
在线时间 小时
忘了上附件，多谢各位阿
14:25 上传
点击文件名下载附件
55.23 KB, 下载次数: 14
阅读权限100
在线时间 小时
& & & & & & & &
三个工作簿都打开后，点击按钮。
请见附件。
13:27 上传
点击文件名下载附件
18.23 KB, 下载次数: 22
阅读权限100
在线时间 小时
Sub ConsolidateWorkbook()
& & Dim RangeArray() As String, Arr, Brr, Crr(1 To 200, 1 To 20)
& & Dim bk As Workbook, nm$
& & Dim sht As Worksheet
& & Dim WbCount As Integer
& & WbCount = Workbooks.Count
& & ReDim RangeArray(1 To WbCount - 1)
& & For Each bk In Workbooks '在所有工作簿中循环
& && &&&If Not bk Is ThisWorkbook Then '非代码所在工作簿
& && && && &Set sht = bk.Worksheets(&费用执行总表&) '引用工作簿的指定工作表
& && && && &Arr = sht.Range(&A1&).CurrentRegion
& && && && &Brr = sht.[d4].Resize(UBound(Arr) - 3, UBound(Arr, 2) - 3)
& && && && &For i = 1 To UBound(Brr)
& && && && && & For j = 1 To UBound(Brr, 2)
& && && && && && &&&Crr(i, j) = Crr(i, j) + Brr(i, j)
& && && && && & Next
& && && && &Next
& && && && &sht.Range(&A1&).CurrentRegion.Copy
& && && && &Sheets.Add after:=Sheets(Sheets.Count)
& && && && &ActiveSheet.[a1].Select
& && && && &Selection.PasteSpecial Paste:=xlPasteColumnWidths
& && && && &Selection.PasteSpecial Paste:=xlPasteValues
& && && && &Selection.PasteSpecial Paste:=xlPasteFormats
& && && && &nm = Left(bk.Name, Len(bk.Name) - 4)
& && && && &ActiveSheet.Name = nm
& && &&&End If
& & Next
& & Sheet1.Activate
& & [d4].Resize(UBound(Brr), UBound(Brr, 2)) = Crr
End Sub
在线时间 小时
头像被屏蔽
提示: 作者被禁止或删除 内容自动屏蔽
阅读权限100
在线时间 小时
用的是哪个版本的？？
是用我的附件测试的吗？
在线时间 小时
头像被屏蔽
提示: 作者被禁止或删除 内容自动屏蔽
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师

我要回帖

更多关于 vba跨工作表引用数据 的文章

 

随机推荐