Программная проверка существования листа в книге Excel

[dmitry_serov]

Подскажите пожалуйста, есть ли какая-нибудь функция для проверки существования листа с данным именем в книге excel - чтобы не перебирать каждый раз все листы

[RayShade]

Код: Выделить всё

function listexists(name as string) as boolean
dim obj as object
on error resume next
set obj = sheets(name)
listexists = (err.number=0)
end function

[Дмитрий_Потапов]

Еще один вариант:

Dim Листы As Object
Dim x As Integer
x = 0
For Each Листы In Worksheets
If Листы.name = "Отчет" Then x = 1
Next Листы

далее

if x=1 then
Sheets("Отчет").Select
else
Sheets.Add
ActiveSheet.name = "Отчет"
end if

[alibek]

Зачем так?

Код: Выделить всё

For Each Sh In Worksheets
  If Sh.Name = "..." Then Exit For
Next Sh
If Sh Is Nothing Then
  Set Sh = Worksheets.Add()
  Sh.Name = "..."
End If

[uhm]

Year(Дата первого сообщения)=2004...