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，则运行程序时将出现错误提示
