Sub WShExist()
Dim xSh As Worksheet
On Error Resume Next
Set xSh = Worksheets("Листик")
If xSh Is Nothing Then
MsgBox "Нет такого рабочего листа"
Else
MsgBox "Есть такой рабочий лист."
End If
End Sub
Проверка на наличие рабочего листа
Товарищи, а как проверить, есть ли в моей рабочей книге лист с именем, к примеру "Листик" ??
Цитата:
Originally posted by iq13
Товарищи, а как проверить, есть ли в моей рабочей книге лист с именем, к примеру "Листик" ??
Товарищи, а как проверить, есть ли в моей рабочей книге лист с именем, к примеру "Листик" ??
Вот один из возможных вариантов:
Код:
Вот ещё один из возможных вариантов :
Код:
Option Compare Text
...
iNewName = "НовыйЛист"
For Each iSheet In Sheets
If iSheet.Name = iNewName Then
MsgBox "Лист с таким именем существует", , ""
Exit For
End If
Next
...
iNewName = "НовыйЛист"
For Each iSheet In Sheets
If iSheet.Name = iNewName Then
MsgBox "Лист с таким именем существует", , ""
Exit For
End If
Next