当我打开多个文件时，如何在Workbook_Open事件中关闭Excel文件？

Question

在Workbook_Open事件中，我正在运行代码以检查序列号，以确保它与我从另一个数据源提取的数据匹配。 然后，我尝试关闭不匹配的文件。

当只打开一个文件时，该文件将按照我希望的方式关闭。 但是，当打开多个文件时，该文件不会关闭。

这是我正在使用的代码。 我只遇到一个问题，如果打开了其他文件，则文件不会关闭。

Private Sub Workbook_Open()

Dim wb As Workbook: Set wb = ThisWorkbook

Application.ScreenUpdating = False

'Pull User_Name
    Range("U_Nm").Value = Application.UserName

'Pull Serial Number from Computer
    Dim fsObj   As Object
    Dim drv     As Object
    Set fsObj = CreateObject("Scripting.FileSystemObject")
    Set drv = fsObj.Drives("C")

    Range("SN").Value = Left(Hex(drv.SerialNumber), 4) _
         & "-" & Right(Hex(drv.SerialNumber), 4)

'Sheets("Security").Visible = xlSheetVeryHidden
Sheets("Security").Visible = True


If Range("Full_Validation").Value <> "Valid" Then

    'you must be connected to the internet to proceed

    Sheets("Security").Range("A1").ListObject.QueryTable.Refresh BackgroundQuery:=False

    If Range("User_Validation").Value <> "Valid" Then

        MsgBox "Not a Valid User!"


        '*******THIS LINE OF CODE IS NOT WORK WHEN I HAVE A SECOND FILE OPEN AT THE SAME TIME********
        wb.Close SaveChanges:=False

    ElseIf Range("Expiry_Validation").Value <> "Valid" Then

        Set objShell = CreateObject("Wscript.Shell")

        intMessage = MsgBox("Your Investment Calculator Subscription has Expired!" & vbCr _
            & vbCr _
            & "You will need to renew your subscription to the Investment Calculator." & vbCr _
            & vbCr _
            & "Would you like to renew your subscription?", _
            vbYesNo, "There is a problem...")

        If intMessage = vbYes Then
            objShell.Run ("https://google.com")
        Else
            'Wscript.Quit
        End If

        ThisWorkbook.Close SaveChanges:=False

    ElseIf Range("SN_Validation").Value <> "Valid" Then

        MsgBox "You must first register your computer with Doug & Mark!"
        ThisWorkbook.Close SaveChanges:=False

    End If

    'Sheets("Security").VeryHidden = True
    Application.ScreenUpdating = True

End If

Range("U_Nm").ClearContents
Range("SN").ClearContents

结束子

我希望文件关闭，无论当时有1个或多个文件都打开。

Answer 1

通常，您首先需要了解ThisWorkbook和ActiveWorkbook之间的区别。

使用ThisWorkbook是一个好习惯，因为它指的是明确的工作簿（恰好是编写代码的工作簿）。 尽管使用ThisWorkbook是一种非常安全的方法，但在大多数情况下，使用ActiveWorkbook是^*（1）的一种不好的做法，因为它指的是代码运行时着眼于焦点的工作簿。 这可以是用户单击的任何工作簿（将其显示在顶部），因此不是很可靠，实际上您永远无法说出它到底是哪一个。 您知道的唯一事实是，它是最重要的工作簿，每个人都可以轻松更改该工作簿。

^{（1）实际上，在一种情况下， ActiveWorkbook 变得很方便，这是在为Excel（或类似功能的插件）编码时。}

因此，使用ThisWorkbook.Close SaveChanges:=False将始终关闭正在运行此代码的工作簿。

如果您处理多个工作簿，则最好使用VBA打开它们并为其引用一个变量，您以后可以使用该变量直接访问不同的工作簿（例如，无需对其文件名进行硬编码）。

例如：

Dim SourceWorkbook As Workbook
Set SourceWorkbook = Workbooks.Open(Filename:="C:\My\Path\source.xlsx")

现在，您可以在过程中使用SourceWorkbook来访问工作簿及其工作表，例如

SourceWorkbook.Worksheets("SheetName").Range("A1").Value

如果您需要关闭它，可以使用以下命令轻松完成：

SourceWorkbook.Close SaveChanges:=False

Answer 2

通常，在处理多个工作簿时，请避免使用ActiveWorkbook。 将它们分配给变量，然后通过引用变量名称将其关闭。