VBA – 名称为“'的文档已经打开

我已经写了一个Excel中的macros，我分配给工作簿中的button。 当按下时，它会要求用户input文件，打开该文件并将其内容复制到原始工作簿的工作表2中，然后将原始工作簿保存为新名称。 然后在工作表上创build一个新的button来运行另一个子程序。 当按下一个窗口时，会popup一个窗口，说：“名称（文档名称）的文档已经打开了。是否有解决这个问题？我假设这是因为我保存原来的工作簿在一个新的名字。

Sub openFile() Dim tempWB As Object, btn As Button, desktopPath As String fileToOpen = Application.GetOpenFilename(Title:="Select transaction history export:") If fileToOpen <> False Then Set tempWB = Workbooks.Open(Filename:=fileToOpen) End If If fileToOpen = False Then End End If ActiveSheet.Cells.Copy Workbooks("Test.xlsm").Sheets("Sheet2").Activate ActiveSheet.Cells.ClearContents ActiveSheet.Cells(1, 1).Select ActiveSheet.Paste tempWB.Close Set btn = ActiveSheet.Buttons.Add(650, 50, 100, 40) With btn .OnAction = "action" End With desktopPath = (MacScript("(path to desktop from user domain as string)") & ":") ActiveWorkbook.SaveAs Filename:=(desktopPath & "Result" & VBA.format(Date, "mm/dd/yy") & ".xlsm") End Sub Sub action() Range("A1:B1").Font.Size = 14 End Sub