CoderNotes - заметки программиста

Публикации  »  VBA, Excel
Скидка 65% на Skillbox

Получите скидку 65% на любой курс программирования на популярной образовательной платформе Skillbox!

Подробнее
Бесплатный хостинг + SSL-сертификат

Зарегистрируйте домен и получите 2 месяца бесплатного хостинга и SSL-сертификат на 1 год в подарок

Подробнее

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

Чтобы проверить существует ли лист 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
Категория: VBA, Excel

Книги по теме:

Виктор Долженков

Microsoft Office Excel 2010

Андрей Ветров

Excel 2013-2016

Лада Рудикова

Microsoft Office Excel 2016

Посмотреть все книги по программированию

Комментарии к статье:

15.07.18   Гость Всё просто. Спасибо.

Добавить комментарий: