【vba】【excel】vba 判断一个excel 文件中，某一个sheet 有没有

Sub CheckSheetExists()
    Dim wb As Workbook
    Dim sheetName As String
    Dim sheetExists As Boolean
    
    ' 设置文件路径和名称
    Dim filePath As String
    filePath = "C:\Path\To\YourFile.xlsx"
    
    ' 设置要检查的工作表名称
    sheetName = "Sheet1"
    
    ' 打开文件
    Set wb = Workbooks.Open(filePath)
    
    ' 判断工作表是否存在
    sheetExists = SheetExistsInWorkbook(wb, sheetName)
    
    ' 关闭文件
    wb.Close SaveChanges:=False
    
    ' 显示结果
    If sheetExists Then
        MsgBox "工作表存在。"
    Else
        MsgBox "工作表不存在。"
    End If
End Sub

Function SheetExistsInWorkbook(wb As Workbook, sheetName As String) As Boolean
    Dim ws As Worksheet
    SheetExistsInWorkbook = False
    
    ' 遍历工作表，查找指定的工作表名称
    For Each ws In wb.Worksheets
        If ws.Name = sheetName Then
            SheetExistsInWorkbook = True
            Exit Function
        End If
    Next ws
End Function