excel - 使用表名检查特定表是否存在时的 VBA Excel 错误处理

Question

当使用表格名称检查表格时，有一个线程几乎可以准确地给我我需要的东西。这是这里...
VBA Excel check if a particular table exist using table name

TableExists = False
On Error GoTo Skip
If ActiveSheet.ListObjects("Table123").Name = "Table123" Then TableExists = True
Skip:
    On Error GoTo 0

如果表不存在，它会直接进入错误处理程序，这很好，但是我在函数中有其他代码，当错误最终会使用相同的错误处理程序时。因此，我无法显示特定的 msgbox 说明该表不存在。
如果表不存在，有没有办法显示一个 msgbox，它不使用与函数其他部分相同的错误处理程序。

Answer 1

您可以创建一个单独的函数来检查表是否存在，并且与主程序错误处理程序无关。

Function tableExist(Sht As Worksheet, tblName As String) As Boolean
    On Error Resume Next
    tableExist = Sht.ListObjects(tblName).Name = tblName
    On Error GoTo 0
End Function

Sub test()

    If tableExist(ActiveSheet, "Table1234") Then

    ' write your code here

    End If
End Sub