有没有宏可以放在命令按钮上，将当前工作表移动到另一个已关闭的工作簿

Question

我有两本部门的工作簿。"训练单"&"已完成的训练单"工单"是其他部门在任务请求中放入的共享书籍。部门里的人，完成任务后填写。每个工作表都使用任务编号ID进行重命名，因此工作表的名称永远不会相同。"训练单"这本书需要成为主要书籍。那么，有没有一种方法可以让他们有一个命令按钮"完成"，将他们在"训练单"中填写的活动表移动到"完成的训练单"簿中。要么让它在后台打开，这样他们就永远看不到它，要么如果它可以打开，移动工作表，然后关闭。

谢谢你的帮助，我希望这是可能的。

Answer 1

在工作簿上插入一个按钮并将此代码分配给该按钮，确保将文件名路径更改为您的：

Private Sub CommandButton1_Click()
On Error Resume Next
Dim sheetIndex As Integer
sheetIndex = 1
Application.ScreenUpdating = False
Workbooks.Open Filename:="C:YourPathCompleted Workorders.xlsm"
Windows("Workorders.xlsm").Activate
ActiveSheet.Select
ActiveSheet.Copy Before:=Workbooks("Completed Workorders.xlsm").Sheets(sheetIndex)
sheetIndex = sheetIndex + 1
ActiveWorkbook.Save
Windows("Completed Workorders.xlsm").Close
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub