Excel VBA - Как проверить существует ли лист ?
Как проверить существует ли лист ?
Q: А как проверить существует ли лист ?
A: Я бы поступил вот как:
' Function IsWorkSheetExist ' Проверяет, имеется ли в активной рабочей книге лист с именем sSName. ' В случае успеха возвращает True, иначе - False ' Рublic Function IsWorkSheetExist(sSName As String) As Boolean Dim c As Object On Error GoTo errНandle: Set c = sheets(sName) ' Альтернативный вариант : Worksheets(sSName).Cells(1, 1) = Worksheets(sSName).Cells(1, 1) IsWorkSheetExist = True Exit Function errНandle: IsWorkSheetExist = False End Function
Оставить комментарий
Комментарии
1.
23 января 2012, 13:15:40
Почему не работает:
Рublic Function IsWorkSheetExist(sSName As String) As Boolean
Dim c As Object
On Error GoTo errНandle:
Set c = sheets(sSName)
' Альтернативный вариант :
Worksheets(sSName).Cells(1, 1) = Worksheets(sSName).Cells(1, 1)
IsWorkSheetExist = True
Exit Function
errНandle:
IsWorkSheetExist = False
End Function
Рublic Function IsWorkSheetExist(sSName As String) As Boolean
Dim c As Object
On Error GoTo errНandle:
Set c = sheets(sSName)
' Альтернативный вариант :
Worksheets(sSName).Cells(1, 1) = Worksheets(sSName).Cells(1, 1)
IsWorkSheetExist = True
Exit Function
errНandle:
IsWorkSheetExist = False
End Function
2.
+0 / -1
23 января 2012, 13:14:09
Рublic Function IsWorkSheetExist(sSName As String) As Boolean
Dim c As Object
On Error GoTo errНandle:
Set c = sheets(sSName)
' Альтернативный вариант :
Worksheets(sSName).Cells(1, 1) = Worksheets(sSName).Cells(1, 1)
IsWorkSheetExist = True
Exit Function
errНandle:
IsWorkSheetExist = False
End Function
Dim c As Object
On Error GoTo errНandle:
Set c = sheets(sSName)
' Альтернативный вариант :
Worksheets(sSName).Cells(1, 1) = Worksheets(sSName).Cells(1, 1)
IsWorkSheetExist = True
Exit Function
errНandle:
IsWorkSheetExist = False
End Function
3.
Аноним
+1 / -0
5 сентября 2005, 14:10:47
Только вот ошибочка: Set c = sheets(sName) - не правильно правильно: Set c = sheets(sSName). Или следующий код:
' Function IsWorkSheetExist
' Проверяет, имеется ли в активной рабочей книге лист с именем sSName.
' В случае успеха возвращает True, иначе - False
'
Рublic Function IsWorkSheetExist(sSName As String) As Boolean
Dim c As Object
On Error GoTo errНandle:
Set c = sheets(sSName)
' Альтернативный вариант :
Worksheets(sSName).Cells(1, 1) = Worksheets(sSName).Cells(1, 1)
IsWorkSheetExist = True
Exit Function
errНandle:
IsWorkSheetExist = False
End Function
' Function IsWorkSheetExist
' Проверяет, имеется ли в активной рабочей книге лист с именем sSName.
' В случае успеха возвращает True, иначе - False
'
Рublic Function IsWorkSheetExist(sSName As String) As Boolean
Dim c As Object
On Error GoTo errНandle:
Set c = sheets(sSName)
' Альтернативный вариант :
Worksheets(sSName).Cells(1, 1) = Worksheets(sSName).Cells(1, 1)
IsWorkSheetExist = True
Exit Function
errНandle:
IsWorkSheetExist = False
End Function