' 获取指定名称的工作表时使用
' 判断名字为 sWorksheetName 的工作表是否存在
Public Function HasWorksheet(ByVal wb As Workbook, _
ByVal sWorksheetName As String) As Boolean
Dim flag As Boolean
flag = False
If Len(sWorksheetName) = 0 Then
HasWorksheet = flag
Exit Function
End If
Dim wks As Worksheet
For Each wks In wb.Worksheets
If StrConv(sWorksheetName, vbUpperCase + vbWide) = StrConv(wks.Name, vbUpperCase + vbWide) Then ' 忽略字母大小写,忽略全角半角
flag = True
Exit For
End If
Next
HasWorksheet = flag
End Function
在Excel中使用VBA判断指定名称的工作表是否存在
于 2022-11-04 15:27:48 首次发布