求指教！下标越界怎么解决。

七彩爆炸鸡发布于 2022-12-11 15:03， 1231 次点击

把表格2中的工作簿B移动
移动到表格1中

写的代码：

Private Sub CommandButton1_Click()

    Windows("表格2.xlsm").Activate
    Sheets("工作簿B").Select
    Sheets("工作簿B").Move Before:=Workbooks("表格1.xlsm").Sheets(1)

End Sub

运行显示下标越界，求各位大佬看看怎么解决。

只有本站会员才能查看附件，请登录

5 回复

风吹过b2022-12-11 17:46

代码测试没问题
需要：
1、打开表格2.xlsm 和表格1.xlsm 二个文件
2、表格2.xlsm 最少二个工作表，其中一个工作表的名字为：工作簿B 。
3、表格1.xlsm 最少一个工作表，名字不限
--------------
如果没打开表格2.xlsm ，第一行报下标越界。
如果表格2.xlsm 中没工作簿B ，第二行报下标越界。
如果没打开表格1.xlsm ，第三行报下标越界。

你是遇到了啥问题？

约定的童话2022-12-11 18:45

文件名确定对不、？

mrexcel2022-12-11 23:01

Private Sub CommandButton1_Click()
Workbooks("表格1.xlsm").Sheets("工作簿B").Move Before:=Workbooks("表格2.xlsm").Sheets("工作簿A")
End Sub

[此贴子已经被作者于2022-12-11 23:03编辑过]

mrexcel2022-12-11 23:04

貌似你的表“工作簿B”开始有个空格

七彩爆炸鸡2022-12-14 09:17

回复楼主七彩爆炸鸡

对的，发现时这问题了，谢谢大佬指点