时间戳

首页 > 解决方案 > 在不使用错误处理程序的情况下处理 Application.Workbooks 的错误

vba - 在不使用错误处理程序的情况下处理 Application.Workbooks 的错误

问题描述

我正在尝试将打开的工作簿分配给工作簿对象。如果该工作簿尚未打开，则会引发错误。我正在使用错误处理程序处理错误。

这对我有用：

On Error GoTo OpenWorkbookError

Set Uwk = Application.Workbooks(WbkName)

OpenWorkbookError:
If Err <> 0 Then
  Err.Clear
  MsgBox ("Please Open the Required Workbook")
  Exit Sub
End If

但是有没有办法避免在这种情况下使用错误处理程序。

标签： vbaexcel

解决方案

一种方法是检查每个工作簿名称，但是@SJR 给出的链接中的函数有什么问题？

在您提供的代码中，您将错误处理程序保留在代码主体中 - 它应该出现在过程末尾的Exit Sub和之间。End Sub

像这样的东西可以在没有错误处理程序的情况下工作，但它需要检查每个工作簿，因此速度较慢： 

Sub Test()

    Dim Uwk As Workbook
    Dim WbkName As String

    WbkName = "PERSONAL.XLSB"

    For Each Uwk In Workbooks
        If Uwk.Name = WbkName Then
            Exit For
        End If
    Next Uwk

    If Not Uwk Is Nothing Then
        MsgBox Uwk.Name & " found!"
    Else
        MsgBox "Not found."
    End If

End Sub

您的代码版本应该在主体之外有错误处理程序： 

Sub Test1()

    Dim WbkName As String
    Dim UWk As Workbook

    WbkName = "PERSONAL1.XLSB"

    On Error GoTo OpenWorkbookError

    Set UWk = Workbooks(WbkName)

TidyExit:
    'Close anything that needs closing and Exit.

Exit Sub  '<< End of main body of procedure.

OpenWorkbookError:
    Select Case Err.Number
        Case 9 'Subscript out of range.
            MsgBox "Please open the required workbook."
            Resume TidyExit
        Case Else
            MsgBox "Error " & Err.Number & vbCr & _
                Err.Description, vbOKOnly + vbCritical
            Resume TidyExit
    End Select

End Sub  '<< End of procedure.

推荐阅读