Чтобы проверить существует ли лист Excel, нужно перебрать все листы в книге и сравнить их название с искомым. Для упрощения, я написал функцию для выполнения этой задачи.
Функция, проверяющая существование листа Excel
Function SheetExists(CurWorkbook As Variant, ShName As String) As Boolean Dim Sh As Worksheet SheetExists = False For Each Sh In CurWorkbook.Sheets If Sh.Name Like ShName Then SheetExists = True Set Sh = Nothing Exit Function End If Next Sh End Function
Пример использования функции:
If Not SheetExists(Application.ActiveWorkbook, "Расчеты") Then MsgBox "Лист ""Расчеты"" не найден !" Exit Sub End If
Комментарии к статье:
Добавить комментарий: