Vba обработка исключений: Обработка ошибок в коде VBA — Макросы и программы VBA — Excel — Каталог статей

Рано или поздно у пишущих на Visual Basic for Applications возникает проблема — код хоть и облегчает жизнь и делает все автоматически, но очень долго. В этой статье я решил собрать несколько простых рекомендаций, которые помогут ускорить работу кода VBA, при этом в некоторых случаях весьма внушительно — в десятки, а то и больше, раз. Основной упор в статье сделан на начинающих, поэтому в начале статьи приводятся самые простые методы оптимизации. Более «глубокие» решения по оптимизации кода приведены в конце статьи, т.к. для применения данных решений необходим достаточный опыт работы в VB и сходу такие методы оптимизации кому-то могут быть непонятны.

1. Если в коде есть много всяких Activate и Select, тем более в циклах — следует немедленно от них избавиться. Как это сделать я писал в статье: Select и Activate — зачем нужны и нужны ли?
2. Обязательно на время выполнения кода отключить:
   • автоматический пересчет формул. Чтобы формулы не пересчитывались при каждой манипуляции на листе во время выполнения кода — это может дико тормозить код, если формул много:

     Application.Calculation = xlCalculationManual

     Application.Calculation = xlCalculationManual

   • обновление экрана, чтобы действия по изменению значений ячеек и пр. не мелькали. Зачем это надо? Т. к. все эти действия обращаются к графическому процессору и заставляют его трудиться для перерисовки экрана — это может значительно тормозить код:

     Application.ScreenUpdating = False

     Application.ScreenUpdating = False

   • На всякий случай отключаем отслеживание событий. Нужно для того, чтобы Excel не выполнял никаких событийных процедур, которые могут быть в листе, в котором производятся изменения. Как правило это события изменения ячеек, активации листов и пр.:

Элементы обработки ошибок времени выполнения

• 21.09.2018
• Читать 12 минут

В этой статье

Ошибки и обработка ошибок

При программировании приложения необходимо учитывать, что происходит при возникновении ошибки. Ошибка может возникнуть в вашем приложении по одной из двух причин. Во-первых, какое-то условие во время работы приложения приводит к сбою действительного кода.Например, если ваш код пытается открыть таблицу, которую удалил пользователь, возникает ошибка. Во-вторых, ваш код может содержать неправильную логику, которая не позволяет ему делать то, что вы планировали. Например, ошибка возникает, если ваш код пытается разделить значение на ноль.

Если вы не реализовали обработку ошибок, Visual Basic останавливает выполнение и отображает сообщение об ошибке при возникновении ошибки в вашем коде. Пользователь вашего приложения, скорее всего, будет сбит с толку и расстроится, когда это произойдет.Вы можете предотвратить многие проблемы, включив в свой код процедуры тщательной обработки ошибок для обработки любой ошибки, которая может возникнуть.

При добавлении обработки ошибок в процедуру вы должны учитывать, как процедура будет направлять выполнение при возникновении ошибки. Первым шагом в маршрутизации выполнения обработчику ошибок является включение обработчика ошибок путем включения в процедуру некоторой формы оператора On Error . Оператор On Error направляет выполнение в случае ошибки.Если нет оператора On Error , Visual Basic просто останавливает выполнение и отображает сообщение об ошибке при возникновении ошибки.

Когда ошибка возникает в процедуре с включенным обработчиком ошибок, Visual Basic не отображает обычное сообщение об ошибке. Вместо этого он направляет выполнение обработчику ошибок, если он существует. Когда выполнение переходит к включенному обработчику ошибок, этот обработчик ошибок становится активным. В активном обработчике ошибок вы можете определить тип возникшей ошибки и устранить ее выбранным вами способом.Access предоставляет три объекта, которые содержат информацию о произошедших ошибках: объект ошибки ADO , объект ошибки Visual Basic и объект ошибки DAO .

Выполнение маршрутизации при возникновении ошибки

Обработчик ошибок определяет, что происходит в процедуре при возникновении ошибки. Например, вы можете захотеть, чтобы процедура завершилась при возникновении определенной ошибки, или вы можете захотеть исправить условие, вызвавшее ошибку, и возобновить выполнение.Операторы On Error и Resume определяют, как выполняется выполнение в случае ошибки.

Сообщение об ошибке

Оператор On Error включает или отключает процедуру обработки ошибок. Если подпрограмма обработки ошибок включена, выполнение переходит к подпрограмме обработки ошибок при возникновении ошибки.

Существует три формы оператора On Error : On Error GoTo label , On Error GoTo 0 и On Error Resume Next .Оператор On Error GoTo label включает процедуру обработки ошибок, начиная со строки, в которой находится оператор. Вы должны включить процедуру обработки ошибок перед первой строкой, в которой может произойти ошибка. Когда обработчик ошибок активен и возникает ошибка, выполнение переходит к строке, указанной в аргументе label .

Строка, указанная в аргументе label , должна быть началом процедуры обработки ошибок.Например, следующая процедура указывает, что при возникновении ошибки выполнение переходит к строке с меткой:

  Функция MayCauseAnError ()
    'Включить обработчик ошибок.
    При ошибке Перейти к Error_MayCauseAnError
    . 'Включите сюда код, который может вызвать ошибку.
    .
    .
 
Error_MayCauseAnError:
    . 'Включите сюда код для обработки ошибки.
    .
    .
Конечная функция
  

Оператор On Error GoTo 0 отключает обработку ошибок внутри процедуры.Он не указывает строку 0 как начало кода обработки ошибок, даже если процедура содержит строку с номером 0. Если в вашем коде нет оператора On Error GoTo 0 , обработчик ошибок автоматически отключается, когда процедура отработал полностью. Оператор On Error GoTo 0 сбрасывает свойства объекта Err , имея тот же эффект, что и метод Clear объекта Err .

Оператор On Error Resume Resume Next игнорирует строку, вызывающую ошибку, и направляет выполнение на строку, следующую за строкой, вызвавшей ошибку.Исполнение не прерывается. Вы можете использовать оператор On Error Resume Next , если хотите проверить свойства объекта Err сразу после строки, в которой, как вы ожидаете, произойдет ошибка, и обработать ошибку внутри процедуры, а не в обработчике ошибок. .

Резюме

Оператор Resume направляет выполнение обратно в тело процедуры из подпрограммы обработки ошибок. Вы можете включить оператор Resume в подпрограмму обработки ошибок, если хотите, чтобы выполнение продолжалось в определенной точке процедуры.Однако в заявлении Resume нет необходимости; вы также можете завершить процедуру после процедуры обработки ошибок.

Существует три формы заявления Resume . Оператор Resume или Resume 0 возвращает выполнение к строке, в которой произошла ошибка. Оператор Resume Next возвращает выполнение в строку, следующую сразу за строкой, в которой произошла ошибка. Оператор Resume label возвращает выполнение в строку, указанную аргументом label .Аргумент label должен указывать либо метку строки, либо номер строки.

Обычно вы используете оператор Resume или Resume 0 , когда пользователь должен внести исправление. Например, если вы запрашиваете у пользователя имя таблицы для открытия, а пользователь вводит имя таблицы, которая не существует, вы можете снова запросить пользователя и возобновить выполнение с помощью оператора, вызвавшего ошибку.

Вы используете оператор Resume Next , когда ваш код исправляет ошибку в обработчике ошибок, и вы хотите продолжить выполнение без повторного запуска строки, вызвавшей ошибку. Вы используете оператор Resume label , если хотите продолжить выполнение в другой точке процедуры, указанной аргументом label . Например, вы можете захотеть возобновить выполнение процедуры выхода, как описано в следующем разделе.

Выход из процедуры

Когда вы включаете в процедуру подпрограмму обработки ошибок, вы должны также включать подпрограмму выхода, чтобы подпрограмма обработки ошибок запускалась только в случае возникновения ошибки.Вы можете указать процедуру выхода с меткой строки так же, как вы указываете процедуру обработки ошибок.

Например, вы можете добавить процедуру выхода к примеру в предыдущем разделе. Если ошибки не происходит, процедура выхода запускается после тела процедуры. Если возникает ошибка, выполнение переходит к подпрограмме выхода после того, как был выполнен код подпрограммы обработки ошибок. Программа выхода содержит оператор Exit .

  Функция MayCauseAnError ()
    'Включить обработчик ошибок. При ошибке Перейти к Error_MayCauseAnError
    . 'Включите сюда код, который может вызвать ошибку.
    .
    .
 
Exit_MayCauseAnError:
    Функция выхода
 
Error_MayCauseAnError:
    . 'Включите код для обработки ошибки.
    .
    .
    'Продолжить выполнение с процедурой выхода для выхода из функции.
    Возобновить Exit_MayCauseAnError
Конечная функция
  

Обработка ошибок во вложенных процедурах

Когда ошибка возникает во вложенной процедуре, у которой нет включенного обработчика ошибок, Visual Basic выполняет обратный поиск в списке вызовов в поисках включенного обработчика ошибок в другой процедуре, а не просто останавливает выполнение.Это дает вашему коду возможность исправить ошибку в другой процедуре. Например, предположим, что процедура A вызывает процедуру B, а процедура B вызывает процедуру C. Если в процедуре C возникает ошибка и нет включенного обработчика ошибок, Visual Basic проверяет процедуру B, а затем процедуру A на наличие включенного обработчика ошибок. Если он существует, выполнение переходит к этому обработчику ошибок. В противном случае выполнение останавливается и отображается сообщение об ошибке.

Visual Basic также выполняет обратный поиск в списке вызовов включенного обработчика ошибок, когда ошибка возникает в активном обработчике ошибок.Вы можете заставить Visual Basic выполнять поиск в обратном направлении по списку вызовов, вызывая ошибку в активном обработчике ошибок с помощью метода Raise объекта Err . Это полезно для обработки ошибок, которых вы не ожидаете в обработчике ошибок. Если возникает непредвиденная ошибка, и вы повторно создаете эту ошибку в обработчике ошибок, то выполнение передает резервную копию списка вызовов, чтобы найти другой обработчик ошибок, который может быть настроен для обработки ошибки.

Например, предположим, что процедура C имеет активированный обработчик ошибок, но обработчик ошибок не исправляет возникшую ошибку.Как только обработчик ошибок проверит все ожидаемые вами ошибки, он может восстановить исходную ошибку. Затем выполнение передает обратно список вызовов обработчику ошибок в процедуре B, если таковой существует, предоставляя этому обработчику ошибок возможность исправить ошибку. Если в процедуре B нет обработчика ошибок или если он не может исправить ошибку и повторно создать ее, то выполнение переходит к обработчику ошибок в процедуре A, если он существует.

Чтобы проиллюстрировать эту концепцию другим способом, предположим, что у вас есть вложенная процедура, которая включает в себя обработку ошибок несоответствия типа, ошибки, которую вы ожидали.В какой-то момент в процедуре C возникает ошибка деления на ноль, которую вы не ожидали. Если вы включили оператор для восстановления исходной ошибки, выполнение передает резервную копию списка вызовов другому включенному обработчику ошибок. , если таковой существует. Если вы исправили ошибку деления на ноль в другой процедуре в списке вызовов, то ошибка будет исправлена. Если ваш код не генерирует ошибку повторно, процедура продолжает выполняться без исправления ошибки деления на ноль. Это, в свою очередь, может вызвать другие ошибки в наборе вложенных процедур.

Таким образом, Visual Basic выполняет поиск включенного обработчика ошибок в резервной копии списка вызовов, если:

• Ошибка возникает в процедуре, которая не включает включенный обработчик ошибок.

• Ошибка в активном обработчике ошибок. Если вы используете метод Raise объекта Err , чтобы вызвать ошибку, вы можете заставить Visual Basic выполнить обратный поиск по списку вызовов для включенного обработчика ошибок.

Получение информации об ошибке

После того, как выполнение перешло к подпрограмме обработки ошибок, ваш код должен определить, какая ошибка произошла, и устранить ее. Visual Basic и Access предоставляют несколько языковых элементов, которые можно использовать для получения информации о конкретной ошибке. Каждый подходит для разных типов ошибок. Поскольку ошибки могут возникать в разных частях вашего приложения, вам необходимо определить, какие из них использовать в своем коде, исходя из ожидаемых ошибок.

Элементы языка, доступные для обработки ошибок, включают:

• Err объект

• ADO Ошибка объекта и ошибки Коллекция

• DAO Ошибка объекта и ошибки Коллекция

• AccessError Метод

• Ошибка , событие

Err объект

Объект Err предоставляется Visual Basic.Когда возникает ошибка Visual Basic, информация об этой ошибке сохраняется в объекте Err . Объект Err поддерживает информацию только об одной ошибке за раз. Когда возникает новая ошибка, объект Err обновляется, чтобы вместо этого включать информацию об этой ошибке.

Чтобы получить информацию о конкретной ошибке, вы можете использовать свойства и методы объекта Err :

• Свойство Number является свойством по умолчанию для объекта Err ; он возвращает идентификационный номер возникшей ошибки.
• Свойство Description объекта Err возвращает описательную строку, связанную с ошибкой Visual Basic.
• Метод Clear очищает текущую информацию об ошибке из объекта Err .
• Метод Raise генерирует определенную ошибку и заполняет свойства объекта Err информацией об этой ошибке.

В следующем примере показано, как использовать объект Err в процедуре, которая может вызвать ошибку несоответствия типа:

  Функция MayCauseAnError ()
    'Объявите константу для представления вероятной ошибки.Константа conTypeMismatch как целое число = 13
 
    При ошибке Перейти к Error_MayCauseAnError
        . 'Включите сюда код, который может вызвать ошибку.
        .
        .
 
Exit_MayCauseAnError:
    Функция выхода
 
Error_MayCauseAnError:
    'Проверить свойства объекта Err.
    Если Err = conTypeMismatch Тогда
        .  'Включите код для обработки ошибки.
        .
        .
    Еще
        'Восстановить исходную ошибку.
        Dim intErrNum As Integer
        intErrNum = Err
        Err.Очистить
        Err.Raise intErrNum
    Конец, если
    'Продолжить выполнение с процедурой выхода для выхода из функции.
    Возобновить Exit_MayCauseAnError
Конечная функция
  

Обратите внимание, что в предыдущем примере метод Raise используется для восстановления исходной ошибки. Если возникает ошибка, отличная от ошибки несоответствия типа, выполнение будет передано обратно из списка вызовов другому включенному обработчику ошибок, если таковой существует.

Объект Err предоставляет всю необходимую информацию об ошибках Visual Basic.Однако он не дает вам полной информации об ошибках Access или ошибках ядра СУБД Access. Доступ и объекты доступа к данным (DAO) предоставляют дополнительные языковые элементы, чтобы помочь вам с этими ошибками.

Объект ошибки и коллекция ошибок

Объект Error и коллекция Errors предоставляются ADO и DAO. Ошибка Объект представляет ошибку ADO или DAO. Одна операция ADO или DAO может вызвать несколько ошибок, особенно если вы выполняете операции DAO ODBC.Каждая ошибка, возникающая во время определенной операции доступа к данным, имеет связанный объект Error . Все объекты Error , связанные с конкретной операцией ADO или DAO, хранятся в коллекции Errors , причем ошибка самого низкого уровня является первым объектом в коллекции, а ошибка самого высокого уровня — последним объектом в коллекции.

Когда возникает ошибка ADO или DAO, объект Visual Basic Err содержит номер ошибки для первого объекта в коллекции Errors .Чтобы определить, возникли ли дополнительные ошибки ADO или DAO, проверьте коллекцию Errors . Значения свойств ADO Number или DAO Number и свойств ADO Description или DAO Description первого объекта Error в коллекции Errors должны соответствовать значениям Number и Описание свойств объекта Visual Basic Err .

Метод AccessError

Вы можете использовать метод Raise объекта Err , чтобы сгенерировать ошибку Visual Basic, которая на самом деле не произошла, и определить описательную строку, связанную с этой ошибкой.Однако вы не можете использовать метод Raise для генерации ошибки доступа, ошибки ADO или ошибки DAO. Чтобы определить описательную строку, связанную с ошибкой доступа, ошибкой ADO или ошибкой DAO, которая на самом деле не произошла, используйте метод AccessError .

Событие ошибки

Событие Error можно использовать для перехвата ошибок, возникающих в форме или отчете Access. Например, если пользователь пытается ввести текст в поле с типом данных «Дата / время», возникает событие «Ошибка».Если вы добавляете процедуру обработки события «Ошибка» в форму «Сотрудники», а затем пытаетесь ввести текстовое значение в поле HireDate, запускается процедура обработки события «Ошибка».

Процедура обработки события Error принимает целочисленный аргумент DataErr. Когда выполняется процедура обработки события Error, аргумент DataErr содержит номер возникшей ошибки доступа. Проверка значения аргумента DataErr в процедуре обработки события — единственный способ определить номер возникшей ошибки. Объект Err не заполняется сведениями об ошибке после возникновения события Error.Вы можете использовать значение аргумента DataErr вместе с методом AccessError , чтобы определить номер ошибки и ее описательную строку.

Примечание

Оператор Error и функция Error предназначены только для обратной совместимости. При написании нового кода используйте объекты Err и Error , функцию AccessError и событие Error для получения информации об ошибке.

Об авторах

Ссылка предоставлена ​​ сообществом UtterAccess.

UtterAccess — это ведущая вики-страница и справочный форум Microsoft Access.

См. Также

Поддержка и отзывы

Есть вопросы или отзывы об Office VBA или этой документации? См. Раздел Поддержка и отзывы Office VBA, чтобы узнать, как получить поддержку и оставить отзыв.

Microsoft Visual Basic: обработка исключений

 Система импорта.
Импортирует System.Windows.Forms

Модульное упражнение

    Начинающий общественный класс
        Наследует форму

        Частный LblNumber как метка
        Частный TxtNumber как текстовое поле
        Друг WithEvents BtnCalculate As Button
        Private LblResult As Label
        Частный TxtResult как TextBox

        Компоненты Dim As System. ComponentModel.Container

        Публичная подписка Новое ()
            InitializeComponent ()
        Конец подписки

        Открытый Sub InitializeComponent ()
            Text = "Исключительное поведение"

            LblNumber = Новый ярлык
            LblNumber.Location = Новая точка (17, 23)
            LblNumber.Text = "Число:"
            LblNumber.AutoSize = True

            TxtNumber = Новое текстовое поле
            TxtNumber.Location = Новая точка (78, 20)
            TxtNumber.Size = Новый размер (83, 20)

            BtnCalculate = Новая кнопка
            BtnCalculate.Местоположение = Новая точка (78, 45)
            BtnCalculate.Text = "Рассчитать"
            BtnCalculate.Size = Новый размер (83, 23)

            LblResult = Новый ярлык
            LblResult.Location = Новая точка (17, 75)
            LblResult.Text = "Результат:"
            LblResult.AutoSize = True

            TxtResult = Новое текстовое поле
            TxtResult.Location = Новая точка (76, 72)
            TxtResult. Size = Новый размер (83, 20)

            Controls.Add (LblNumber)
            Controls.Add (TxtNumber)
            Элементы управления.Добавить (BtnCalculate)
            Controls.Add (LblResult)
            Controls.Add (TxtResult)

        Конец подписки

        Частная подпрограмма CalculateClicked (отправитель ByVal как объект,
                                     ByVal и как EventArgs)
                                     Обрабатывает BtnCalculate.Click
            Тусклый номер как двойной
            Тусклый результат как двойной

            Пытаться
                Число = CDbl (TxtNumber.Text)
                Результат = Число * 12,48
                TxtResult.Текст = CStr (Результат)
            Поймать
                MsgBox («Произошло что-то плохое»)
            Конец попытки
        Конец подписки
    Конец класса

    Функция Main () как целое число

        Dim frmStart As Starter = Новый стартер

        Application.Run (frmStart)

        Возврат 0
    Конечная функция

Концевой модуль 

 Частная подпрограмма CalculateClicked (отправитель ByVal как объект,
                                     ByVal и как EventArgs)
                                     Обрабатывает BtnCalculate.Click
            Тусклый номер как двойной
            Тусклый результат как двойной

            Пытаться

                'Здесь можно обработать обычный ход программы

            Поймать ex как исключение

                'Сделайте здесь исключение

            Конец попытки

Концевой переводник 

 Частная подпрограмма CalculateClicked (отправитель ByVal как объект,
                                     ByVal и как EventArgs)
                                     Обрабатывает BtnCalculate.Нажмите
            Тусклый номер как двойной
            Тусклый результат как двойной

            Пытаться
                Число = CDbl (TxtNumber.Text)
                Результат = Число * 12,48
                TxtResult.Text = CStr (Результат)
            Поймать ex как исключение
                MsgBox (например, сообщение)
            Конец попытки
Концевой переводник 

 Частная подпрограмма CalculateClicked (отправитель ByVal как объект,
                                     ByVal и как EventArgs)
                                     Обрабатывает BtnCalculate.Нажмите
            Тусклый номер как двойной
            Тусклый результат как двойной

            Пытаться
                Число = CDbl (TxtNumber.Text)
                Результат = Число * 12,48
                TxtResult.Text = CStr (Результат)
            Поймать ex как исключение
                MsgBox ("Операция не может быть выполнена, потому что" &
                             "введенный вами номер недействителен")
            Конец попытки
Концевой переводник 

 Частная подпрограмма CalculateClicked (отправитель ByVal как объект,
                                     ByVal и как EventArgs)
                                     Обрабатывает BtnCalculate.Нажмите
            Тусклый номер как двойной
            Тусклый результат как двойной

            Пытаться
                Число = CDbl (TxtNumber.Text)
                Результат = Число * 12,48
                TxtResult.Text = CStr (Результат)
            Поймать ex как исключение
                MsgBox (например, сообщение и
                       vbCrLf & "Операция не может быть выполнена, потому что" &
                       "введенный вами номер недействителен")
            Конец попытки
Концевой переводник 

Обработка ошибок в Excel VBA

Ниже мы рассмотрим две программы в Excel VBA .Одна программа просто игнорирует ошибки . Другая программа продолжает выполнение в указанной строке после обнаружения ошибки.

ситуация:

Обе программы вычисляют квадратный корень из чисел.

Квадратный корень 1

Добавьте следующие строки кода к командной кнопке «Квадратный корень 1».

1. Сначала мы объявляем два объекта Range.Мы называем объекты Range rng и cell.

Dim rng As Range, cell as Range

2. Инициализируем объект Range rng с выбранным диапазоном.

Установить rng = Выбор

3. Мы хотим вычислить квадратный корень из каждой ячейки в случайно выбранном диапазоне (этот диапазон может быть любого размера). В Excel VBA для этого можно использовать цикл For Each Next. Добавьте следующие строки кода: