在Excel中使用VBA判断指定名称的表是否存在

' 重命名工作表时使用

' 判断名字为 sSheetName 的表是否存在
Public Function HasSheet(ByVal wb As Workbook, _
                         ByVal sSheetName As String) As Boolean
    
    Dim flag As Boolean
    flag = False
    
    If Len(sSheetName) = 0 Then
        HasSheet = flag
        Exit Function
    End If
    
    Dim sh As Variant
    For Each sh In wb.Sheets
        If StrConv(sSheetName, vbUpperCase + vbWide) = StrConv(sh.Name, vbUpperCase + vbWide) Then ' 忽略字母大小写，忽略全角半角
            flag = True
            Exit For
        End If
    Next

    HasSheet = flag
End Function