从包含宏的当前工作簿访问另一个工作簿

Question

我有一个以宏的形式为一个Excel工作表编写的代码。在这个宏中，我正在生成一个当前工作簿的副本到另一个位置。现在，我需要访问这个复制的excel工作簿，从宏中删除它的一些工作表。 谁能告诉我如何从当前的Excel工作表宏访问新复制的工作表？

Answer 1

以下代码允许您编辑工作簿的副本：

Sub test()
    Dim wb As Workbook
    Dim strName as String

    strName = "" & ActiveWorkbook.Name
    ActiveWorkbook.SaveCopyAs Filename:=strName
    Set wb = Workbooks.Open(strName)

    Application.DisplayAlerts = False 'Prevents that user is asked when sheets are deleted
    wb.Worksheets("Sheet1").Delete
    Application.DisplayAlerts = True

    wb.Close SaveChanges:=True
End Sub