Excel VBA如果存在WorkSheet（“ wsName”）

Question

我想知道是否存在干净的功能，如果工作簿中的工作表存在，则返回True或False？如果可以在不跳过错误处理的情况下做到这一点，那将是很好，但不是必须的。我发现的唯一东西并没有真正起作用：On Error Resume NextIf (Worksheets("wsName").Name <> "") Then    Debug.Print "Worksheet exists!"Else    Debug.Print "Worksheet doesn't exist!"End IfOn Error GoTo ErrHandler

Answer 1

没有内置功能。

Function SheetExists(SheetName As String, Optional wb As Excel.Workbook)

   Dim s As Excel.Worksheet

   If wb Is Nothing Then Set wb = ThisWorkbook

   On Error Resume Next

   Set s = wb.Sheets(SheetName)

   On Error GoTo 0

   SheetExists = Not s Is Nothing

End Function