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已移至工作簿“实例1壅酪认奉78”中，且命名为“被移动的表”。如果未打开实例178.xlsm，则运行程序时将出现错误提示
