Как сделать ошибку в vba

Обновлено: 06.07.2024

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

Инструкции обработки ошибок

Рассмотрим понятие исключительной ситуации и средства VBA для их обработки. Исключительная ситуация или исключение (exception) возникает при выполнении программы и делает ее дальнейшее выполнение невозможным из-за неправильности дальнейшего результата вычислений. Управление исключениями (exception handling) включает специально предусмотренное обнаружение и перехват исключений и передач>' управления специальному разделу программы — обработчику исключения.

В языке VBA обработка ошибок осуществляется на уровне процедуры (функции). В процедуре выделяется охраняемый блок (один или несколько операторов), с которым связывается свой обработчик ошибки. Если во время работы охраняемого блока возникла ошибка (исключение), то выполнение процедуры приостанавливается, управление ее работой перехватывается и передается обработчику ошибки.

Язык VBA предоставляет несколько инструкций обработки ошибок. К этим инструкциям относятся операторы On Error, Resume и объект Err с его свойствами и методами.

Инструкция On Error производит перехват ошибки, устанавливает, что программа должна делать в случае появления ошибки. Следует отметить, что данная инструкция On Error должна быть расположена в программе (обработчике события) перед вызовом блока операторов, выполнение которого может привести к ошибке.

Допустимы три варианта использования On Error.

Вариант 1. Синтаксис данного варианта использования выгладит таким образом:

On Error Goto строка

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

Вариант 2. Синтаксис данного варианта использования выгладит таким образом:

On Error Resume Next

Указывает, что при возникновении ошибки происходит передача управления на инструкцию, непосредственно следующую за инструкцией, где возникла ошибка.

Вариант 3. Синтаксис данного варианта использования выгладит таким образом:

On Error Goto О

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

Инструкция Resume обеспечивает процедуре возможность продолжить работу после обработки ошибки. Допустимы три варианта использования Resume.

Вариант 1. Синтаксис данного варианта использования выгладит таким образом:

После обработки ошибки управление передается той инструкции, в которой произошла ошибка.

Вариант 2. Синтаксис данного варианта использования выгладит таким образом:

Resume строка

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

Вариант 3. Синтаксис данного варианта использования выгладит таким образом:

После обработки ошибки управление передается инструкции, следующей за инструкцией, в которой произошла ошибка.

Рассмотрим более подробно первый вариант инструкции On Error, так как он наиболее часто используется для реализации обработчиков ошибок. В этом случае типичная синтаксическая структура обработчика ошибок следующая:

On Error GoTo метка блок операторов1

блок операторов2

Здесь ON Error GoTo — оператор перехвата ошибки; блок операторов 1 — блок исполняемых операторов программы; метка — ссылка на блок обработки ошибки; блок операторов2 — блок обработки ошибок.

Следует отметить, что рассмотренный оператор (On Error GoTo) должен быть расположен в программе (обработчике события) перед вызовом блока операторов, выполнение которого может привести к ошибке. В противном случае возникающая ошибка обрабатываться не будет, и выполнение программы соответственно будет аварийно прервано. Последним оператором в блоке onepamopoel должен быть выход из процедуры Exit Sub. Это позволяет предотвратить запуск обработчика ошибки в случае нормальной работы программы. Как правило, обработчик ошибок размещается в самом конце программы или обработчика события.

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

'Первый охраняемый блок

On Error GoTo ErrControll ' вызов 1 -го обработчика ошибок

' Первый блок исполняемых операторов процедуры

On Error GoTo 0 'отключение 1-го обработчика ошибок ' Второй охраняемый блок

On Error GoTo ErrControl2 'вызов 2-го обработчика ошибок 'Второй блок исполняемых операторов процедуры

On Error GoTo 0 'отключение 2-го обработчика ошибок ReturnPoint: 'точка возврата из 2-го обработчика ошибок

Exit Sub 'выход из процедуры при отсутствии ошибок ' Обработка Ошибок:

' 1-й обработчик ошибок

Resume 'возврат к оператору, вызвавшему ошибку в 1-й части

'2-й обработчик ошибок

Resume ReturnPoint 'переход к строке, с которой возобновляется ' выполнение после обработки ошибки в 2-й части End Sub

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

Я работаю с VBA уже довольно давно, но я все еще не уверен в обработке ошибок.

однако мне все еще интересно, был ли способ, которым я раньше делал ошибки, / совершенно неправильным: блок 1

предложение if, потому что если это правда, оно будет выполнено, и если это не удастся, Goto перейдет в Else-part, так как Ubound массива никогда не должно быть нуля или меньше, без ошибки, этот метод работал довольно хорошо до сих пор.

если я правильно понял, это должно быть так: Блок 2

или даже такой: Блок 3

наиболее распространенным способом, который я вижу, является то, что ошибка "Catcher" находится в конце суб, и суб фактически заканчивается до "выхода суб", но, однако, это не немного запутанно, если суб довольно большой, если вы прыгаете вице наоборот, чтобы прочитать код?

блок 4

Должно ли это быть как в блоке 3 ?

Спасибо, что прочитали мой вопрос Приветствия skofgar

Я определенно не буду использовать Block1. Кажется неправильным, что блок ошибок в операторе IF не связан с ошибками.

блоки 2,3 & 4, я думаю, вариации на тему. Я предпочитаю использовать блоки 3 & 4 над 2 только из-за нелюбви к оператору GOTO; я обычно использую метод Block4. Это один из примеров кода, который я использую, чтобы проверить, добавлена ли библиотека Microsoft ActiveX Data Objects 2.8 и если не добавить или использовать более раннюю версию, если 2.8 не доступный.

у вас есть один действительно замечательный ответ от ray023, но ваш комментарий, что это, вероятно, перебор, подходит. Для "более светлой" версии.

Блок 2 похоже на имитацию блока Try / Catch. Это должно быть хорошо, но это не путь VBA. Блок 3 является вариацией на блоке 2.

блок 4 - это голая версия пути VBA. Я бы сильно посоветуйте использовать его или что-то в этом роде, потому что это то, что ожидает любой другой программист VBA, наследующий код. Позвольте представить небольшое расширение, однако:

Что касается вашего возражения против этого формата "прыжки вокруг", а) это то, что программисты VBA ожидают, как указано ранее, & B) ваши подпрограммы должны быть достаточно коротким, чтобы не далеко прыгать.

две основные цели для обработки ошибок:

Итак, как бы вы сделали это?

прежде всего, создайте форму ошибки для отображения при возникновении непредвиденной ошибки.

это может выглядеть примерно так (FYI: мой называется frmErrors):

обратите внимание на следующие надписи:

lblHeadline
lblSource
lblProblem
lblResponse

кроме того, стандартная команда кнопки:

нет ничего впечатляющего в коде для этой формы:

в основном, вы хотите знать, какую кнопку пользователь нажал, когда форма закрывается.

затем создайте модуль обработчика ошибок, который будет использоваться во всем приложении VBA:

у вас могут быть ошибки, которые будут настроены только для вашего приложения. Это, как правило, будет краткий список ошибок специально только для вашего приложения. Если у вас еще нет модуля констант, создайте модуль, который будет содержать перечисление пользовательских ошибок. (Примечание: Office ' 97 не поддерживает перечисления.). Перечисление должно выглядеть примерно так:

создайте модуль, который выдаст ваши пользовательские ошибки.

теперь вы хорошо оснащены, чтобы ловить ошибки в вашей программе. Вы sub (или функция), должны выглядеть примерно так:

копия / вставка кода выше может не работать прямо из ворот, но определенно должна дать вам суть.

Я держу вещи простыми:
На уровне модуля я определяю две переменные и устанавливаю одну в имя самого модуля.

в каждой под / функции модуля я определяю локальную переменную

Я установил ThisRoutineName в имя sub или функции

затем я отправляю все ошибки в ERR_RTN: когда они происходят, но сначала я устанавливаю sLocalErrorMsg, чтобы определить, что такое ошибка, и обеспечить некоторую отладку информация.

в нижней части каждой под / функции я направляю логический поток следующим образом

затем у меня есть отдельный модуль, который я помещаю во все проекты под названием "mod_Error_Handler".

Блок 2 не работает, потому что он не сбрасывает обработчик ошибок, потенциально вызывая бесконечный цикл. Для правильной работы обработки ошибок в VBA вам нужно Resume инструкция для очистки обработчика ошибок. The Resume также активирует предыдущий обработчик ошибок. Блок 2 терпит неудачу, потому что новая ошибка возвращается к предыдущему обработчику ошибок, вызывая бесконечный цикл.

Блок 3 терпит неудачу, потому что нет Resume оператор, поэтому любая попытка обработки ошибок после этого будет неудача.

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

ключ к этой работе-использовать Resume заявление сразу за другим On Error заявление. The Resume это в обработчике ошибок и отвлекает код EndTry1 метки. Вы должны немедленно установить другой On Error оператор, чтобы избежать проблем, как предыдущий обработчик ошибок будет "возобновить". То есть он будет активен и готов к обработке очередной ошибки. Это может привести к повторению ошибки и вводу бесконечного цикла.

чтобы избежать использования предыдущего обработчика ошибок снова, вам нужно установить On Error для нового обработчика ошибок или просто используйте On Error Goto 0 отменить всю обработку ошибок.

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

Если вы ищете конкретную тему по обработке ошибок VBA, ознакомьтесь с приведенным ниже содержанием.

Если вы новичок в VBA, то вы можете прочитать пост от начала до конца, так как он выложен в логическом порядке.

Краткое руководство по обработке ошибок

Введение

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

Если мы считаем, что ошибка может произойти в какой-то момент, рекомендуется написать специальный код для обработки ошибки, если она возникнет, и устранить ее.

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

Чтобы понять обработку ошибок, мы должны сначала понять различные типы ошибок в VBA.

Ошибки VBA

В VBA есть три типа ошибок

Синтаксис
Компиляция
Время выполнения

Мы используем обработку ошибок для устранения ошибок во время выполнения. Давайте посмотрим на каждый из этих типов ошибок, чтобы было ясно, что такое ошибка во время выполнения.

Синтаксические ошибки

Некоторые примеры синтаксических ошибок

Синтаксические ошибки относятся только к одной строке. Они возникают, когда синтаксис одной строки неверен.

Ошибки компиляции

Ошибки компиляции происходят более чем в одной строке. Синтаксис в одной строке правильный, но неверный, если учесть весь код проекта.

Примеры ошибок компиляции:

Оператор If без соответствующего оператора End If
For без Next
Select без End Select
Вызов Sub или Function, которые не существуют
Вызов Sub или Function с неверными параметрами
Присвоение Sub или Function того же имени, что и для модуля
Переменные не объявлены (Option Explicit должен присутствовать в верхней части модуля)

На следующем снимке экрана показана ошибка компиляции, которая возникает, когда цикл For не имеет соответствующего оператора Next.

Использование Debug-> Compile

Чтобы найти ошибки компиляции, мы используем Debug-> Compile VBA Project из меню Visual Basic.

Когда вы выбираете Debug-> Compile, VBA отображает первую обнаруженную ошибку.

Когда эта ошибка исправлена, вы можете снова запустить Compile, и VBA найдет следующую ошибку.

Debug-> Compile также будет включать синтаксические ошибки в поиск, что очень полезно.

Debug->Compile Error Summary

Debug-> Compile находит ошибки компиляции (проекта).

Он также найдет синтаксические ошибки.

Он находит одну ошибку каждый раз, когда вы ее используете.

Если нет ошибок компиляции, оставленная опция Компиляция будет отображаться серым цветом в меню.

Debug-> Compile Usage

Вы должны всегда использовать Debug-> Compile, прежде чем запускать свой код. Это гарантирует, что ваш код не будет иметь ошибок компиляции при запуске.

Если вы не запускаете Debug-> Compile, то VBA может обнаружить ошибки компиляции при запуске. Их не следует путать с ошибками времени выполнения.

Ошибки во время выполнения

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

Например, представьте, что ваше приложение читает из внешней рабочей книги. Если этот файл будет удален, то VBA отобразит ошибку, когда ваш код попытается открыть его.

Другие примеры ошибок времени выполнения

база данных недоступна
пользователь вводит неверные данные
ячейка, содержащая текст вместо числа

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

Ожидаемые и неожиданные ошибки

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

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

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

Ошибки времени выполнения, которые не являются ошибками VBA

Прежде чем мы рассмотрим VBA Handling, мы должны упомянуть один тип ошибок. Некоторые ошибки во время выполнения не рассматриваются как ошибки VBA, а только пользователем.

Позвольте мне объяснить это на примере. Представьте, что у вас есть приложение, которое требует, чтобы вы добавили значения в переменные a и b

Допустим, вы по ошибке используете звездочку вместо знака плюс

Это не ошибка VBA. Ваш синтаксис кода является совершенно законным. Однако, с вашей точки зрения, это ошибка.

Заявление об ошибке

Как мы видели, есть два способа обработки ошибок во время выполнения

Ожидаемые ошибки — напишите конкретный код для их обработки.
Неожиданные ошибки — используйте операторы обработки ошибок VBA для их обработки.

Оператор VBA On Error используется для обработки ошибок. Этот оператор выполняет некоторые действия при возникновении ошибки во время выполнения.

Есть четыре различных способа использовать это утверждение

Давайте посмотрим на каждое из этих утверждений по очереди.

On Error Goto 0

Это поведение по умолчанию VBA. Другими словами, если вы не используете On Error, это поведение вы увидите.

Давайте посмотрим на пример. В следующем коде мы не использовали строку On Error, поэтому VBA будет использовать поведение On Error Goto 0 по умолчанию.

Когда появляется ошибка, вы можете выбрать End или Debug

Если вы выберете Конец, то приложение просто остановится.

Если вы выберете Отладить, приложение остановится на строке ошибки, как показано на скриншоте ниже.

Это нормально, когда вы пишете код VBA, поскольку он показывает вам точную строку с ошибкой.

Это поведение не подходит для приложения, которое вы передаете пользователю. Эти ошибки выглядят непрофессионально и делают приложение нестабильным.

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

On Error Resume Next

Использование On Error Resume Next указывает VBA игнорировать ошибку и продолжать работу.

Есть конкретные случаи, когда это полезно. Большую часть времени вы должны избегать его использования.

Если мы добавим Resume Next к нашему примеру Sub, то VBA проигнорирует ошибку деления на ноль

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

Приведенный ниже код является примером использования Resume Next.

В этом коде мы проверяем, доступен ли Microsoft Outlook на компьютере. Все, что мы хотим знать — это доступно или нет. Нас не интересует конкретная ошибка.

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

Это пример того, когда Резюме может быть полезным. Дело в том, что, хотя мы используем Resume, мы все равно проверяем наличие ошибки. Подавляющее большинство времени вам не нужно будет использовать Resume.

On Error Goto [label]

При возникновении ошибки вы отправляете ошибку на определенный ярлык. Обычно это внизу саба.

Давайте применим это к подводной лодке, которую мы использовали

Снимок экрана ниже показывает, что происходит при возникновении ошибки.

Примечание 1: Метка, которую мы используем в операторе On… Goto, должна быть в текущей Sub / Function. Если нет, вы получите ошибку компиляции.

On Error Goto -1

Это утверждение отличается от других трех. Он используется для очистки текущей ошибки, а не для настройки конкретного поведения.

При возникновении ошибки с помощью функции On Error Goto [label] поведение обработки ошибки возвращается к поведению по умолчанию, т.е. On Error Goto 0 . Это означает, что если произойдет другая ошибка, код остановится на текущей строке.

Это поведение относится только к текущей подпрограмме. Как только мы выйдем из саба, ошибка будет очищена автоматически.

Посмотрите на код ниже. Первая ошибка приведет к переходу кода на метку eh. Вторая ошибка остановится на строке с ошибкой 1034.

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

В коде ниже мы добавили строку

после того как мы поймаем первую ошибку.

Для устранения ошибки мы используем On Error Goto -1. Думайте об этом как об установке ловушки для мыши. Когда ловушка сработает, вам нужно установить ее снова.

В приведенном ниже коде мы добавляем эту строку, и вторая ошибка теперь приведет к переходу кода на метку eh_other.

Примечание 1. Вероятно, в редких случаях полезно использовать On Error Goto -1. Мне лично никогда не приходилось пользоваться этой линией. Помните, что как только вы выйдете из Sub, ошибка все равно будет очищена.

Примечание 2. у объекта Err есть член Clear. Использование Clear очищает текст и цифры в объекте Err, но НЕ сбрасывает ошибку.

Использование On Error

Как мы уже видели, VBA будет делать одну из трех вещей при возникновении ошибки:

Остановитесь и отобразите ошибку.
Игнорируйте ошибку и продолжайте.
Перейти к определенной строке.

VBA всегда будет настроен на одно из этих действий. Когда вы используете On Error, VBA изменит ваше поведение и забудет о любом предыдущем.

В следующем подпункте VBA изменяет поведение ошибки каждый раз, когда мы используем оператор On Error

Err объект

При возникновении ошибки вы можете просмотреть детали ошибки, используя объект Err.

При возникновении ошибки времени выполнения VBA автоматически заполняет объект Err деталями.

Свойство Err.Source кажется отличной идеей, но оно не работает при ошибке VBA. Источник вернет имя проекта, которое вряд ли сузит место возникновения ошибки. Однако, если вы создаете ошибку с помощью Err.Raise, вы можете установить источник самостоятельно, и это может быть очень полезно.

Получение номера строки

Функция Erl используется для возврата номера строки, где произошла ошибка.

Это часто вызывает путаницу. В следующем коде Erl вернет ноль.

Это потому, что нет номеров строк. Большинство людей не понимают этого, но VBA позволяет вам иметь номера строк.

Если мы изменим подпрограмму, указав номер строки, она теперь выведет 20.

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

Когда вы закончите работу над проектом и передадите его пользователю, в этот момент может быть полезно добавить номера строк. Если вы используете стратегию обработки ошибок в последнем разделе этого поста, то VBA сообщит строку, где произошла ошибка.

Использование Err.Raise

Когда мы создаем ошибку, используя Err.Raise, нам нужно присвоить ей номер. Мы можем использовать любое число от 513 до 65535 для нашей ошибки. Мы должны использовать vbObjectError с номером, например

Использование Err.Clear

Err.Clear используется для очистки текста и чисел из объекта Err.Object. Другими словами, он очищает описание и номер.

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

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

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

Примечание: Err.Clear сбрасывает текст и цифры в объекте ошибки, но не очищает ошибку — см. On Error Goto -1 для получения дополнительной информации об очистке фактической ошибки.

Логирование

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

Код ниже показывает очень простую процедуру регистрации

Вы можете использовать это так:

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

Ниже приведен пример регистрации. То, как вы реализуете журналирование, зависит от характера приложения и его полезности.

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

Другие элементы, связанные с ошибками

В этом разделе рассматриваются некоторые другие инструменты обработки ошибок, которые есть в VBA. Эти элементы считаются устаревшими, но я включил их, поскольку они могут существовать в устаревшем коде.

Функция ошибки

Функция Error используется для печати описания ошибки с заданным номером ошибки. Он включен в VBA для обеспечения обратной совместимости и не нужен, поскольку вместо него можно использовать описание Err.Description.

Ниже приведены некоторые примеры

Заявление об ошибке

Заявление об ошибке позволяет имитировать ошибку. Он включен в VBA для обратной совместимости. Вместо этого вы должны использовать Err.Raise.

Это утверждение включено в VBA для обратной совместимости. Вместо этого вы должны использовать Err.Raise.

Простая стратегия обработки ошибок

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

Основная реализация

Это простой обзор нашей стратегии

Поместите строку On Error Goto Label в начале нашего верхнего Sub.
Поместите Label у обработки ошибок в конце нашего верхнего
Sub.
Если происходит ожидаемая ошибка, обработайте ее и продолжайте.
Если приложение не может продолжить работу, используйте Err.Raise для перехода к метке обработки ошибок.
В случае непредвиденной ошибки код автоматически перейдет к метке обработки ошибок.

На следующем рисунке показан обзор того, как это выглядит

Следующий код показывает простую реализацию этой стратегии

Это хороший способ реализации обработки ошибок, потому что

Нам не нужно добавлять код обработки ошибок в каждую подпрограмму.
Если возникает ошибка, то VBA корректно завершает работу приложения.

Полная стратегия обработки ошибок

Стратегия выше имеет один недостаток. Он не сообщает вам, где произошла ошибка. VBA не наполняет Err.Source чем-либо полезным, поэтому мы должны сделать это сами.

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

Целью этой стратегии является предоставление вам стека * и номера строки в случае возникновения ошибки.

* Стек — это список вспомогательных функций, которые использовались в данный момент при возникновении ошибки.

Это наша стратегия

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

Единственная грязная часть этого — правильное форматирование строк. Я написал две подводные лодки, которые справляются с этим, поэтому он позаботится о вас.

Это две вспомогательные подводные лодки

Пример использования этой стратегии

Вот простое кодирование, которое использует эти Sub. В этой стратегии мы не размещаем какой-либо код в верхнем подпрограмме. Мы только вызываем подводные лодки.

Результат выглядит так

Если в вашем проекте есть номера строк, результат будет содержать номер строки ошибки.

Примечание: вы можете получить следующую ошибку при использовании этого кода:

В каждую функция или процедуру следует включать обработку ошибок. Без нее пользователь может оказаться глядящим на дефектный код в открытом редактороме VBA в полной версии Аксесс, а в рантайм версии приложение просто падает.. Более подробно обработка ошибок изложена в статье FMS Error Handling and Debugging.

Для задач, где есть возможность нескольких ошибок, строки 7-8 нужно заменить более подробным вариантом:

Ветка Case Else в этом примере вызывает пользовательскую функцию записи деталей ошибки в таблицу. Это позволит подробнее разобраться уже после того, как ошибка будет очищена. Таблицу можно назвать "tLogError" и состоять она будет из следующих полей:

Below is a procedure for writing to this table. It optionally allows recording the value of any variables/parameters at the time the error occurred. You can also opt to suppress the display of information about the error.

Ниже процедура для записи в эту таблицу. Она опционально позволяет записывать значения переменных/параметров во время возникновения ошибки. Можно также подавить вывод информации об ошибке на экран.

Замечания по функции:

Примечание переводчика: использование описанной и других подобных функций особенно удобно в сочетании с применением инструмента разработчика MZ_Tools, позволяющего (в числе прочего) настраивать шаблон обработчика ошибок с автогенерируемыми названиями текущей процедуры и модуля.

Читайте также: