怎样使用VBA不同工作簿间移动工作表？

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行

Sub 移动工作表()

 

On Error GoTo err

 

    Sheets("sheet2").Move Before:=Workbooks("实例178.xlsm").Sheets(1)

 

    ActiveSheet.Name="被移动的表"

 

err:

 

MsgBox "工作簿实例178.xlsm未打开！"

 

End Sub

5、用快捷键Alt+F8调出运行宏窗口，然后单击“执行”按钮，当前工作簿的工作表sheet2已移至工作簿“实例178”中，且命名为“被移动的表”。如果未打开实例178.xlsm，则运行程序时将出现错误提示