把表格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

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

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

你是遇到了啥问题？

文件名确定对不、？

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

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

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

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