Средства разработки приложений

         

Как проверить существует ли лист?


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

 Нint: Отлажено и протестировано в Excel'97.  



Содержание раздела