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

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:\YourPath\Completed 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