Excel VBA判断是否存在表名

判断Sheet是否已存在

Public Function IsSheetExists(sheetName As String)
    Dim ws As Worksheet
    
    On Error Resume Next
    Set ws = Worksheets(sheetName)
    IsSheetExists = IIf(ws Is Nothing, False, True)
    Err.Clear
    On Error GoTo 0

End Function