VBA: 判断某张工作表是否存在

Exploring

发布于 2022-09-20 14:42:55

2.6K0

发布于 2022-09-20 14:42:55

文章背景：在操作Excel文件时，有时需要判断指定的工作表是否存在，根据判断结果进行后续操作。下面提供两种自定义函数。

（1）遍历法

Function IsExistsSheetName1(strPath As String, SheetName As String) As Boolean

    '如果目标工作表存在，返回TRUE；否则，返回FALSE

    'strPath：指定文件的全路径（Full path）
  
    Dim tempSheet As Worksheet
    
    Workbooks.Open strPath
    
    IsExistsSheetName1 = False
    
    For Each tempSheet In ActiveWorkbook.Worksheets
    
        If tempSheet.name = SheetName Then
                
            IsExistsSheetName1 = True
            
            Exit For
    
        End If
    
    Next tempSheet
                
    ActiveWorkbook.Close SaveChanges:=False
  
End Function

如果Excel文件内有很多张工作表，则遍历法比较费时间，下面介绍试错法。

（2）试错法

Function IsExistsSheetName2(strPath As String, SheetName As String) As Boolean

    '如果目标工作表存在，返回TRUE；否则，返回FALSE

    'strPath：指定文件的全路径（Full path）
   
    Dim tempSheet As Worksheet
    
    Workbooks.Open strPath
    
    IsExistsSheetName2 = False
    
    On Error Resume Next
    Set tempSheet = ActiveWorkbook.Sheets(SheetName)
    
    If Err.Number = 0 Then
        
        IsExistsSheetName2 = True
    
    End If
    
    On Error GoTo 0
               
    ActiveWorkbook.Close SaveChanges:=False
    
End Function

注意：需要确保指定路径（strPath）的文件已存在；否则，程序会报错。

参考资料：

[1] vba判断sheet是否存在（https://blog.csdn.net/jyh_jack/article/details/103456259）

[2] 快速判断工作簿中是否存在指定工作表（https://blog.csdn.net/taller_2000/article/details/104111477）

本文参与腾讯云自媒体同步曝光计划，分享自微信公众号。

原始发表：2021-12-25，如有侵权请联系 cloudcommunity@tencent.com 删除

https