Ошибка времени выполнения basic объектная переменная не установлена

Вы пишите макрос в LibreOffice используя синтаксис VBA Excel. Синтаксис немного разный.

Для Excel VBA:

Sub RemoveRow()
    Dim iLastRow As Long
    Dim s1, s2, s3 As String

    s1 = "Вход"
    s2 = "Выход"
    s3 = "Отказ"

    iLastRow = Cells(Rows.Count, 1).End(xlUp).Row

    Do While (iLastRow >= 4)
        If (Cells(iLastRow, 5) <> s1) And (Cells(iLastRow, 5) <> s2) And (Cells(iLastRow, 5) <> s3) Then
            Rows(iLastRow).Delete
        End If
        iLastRow = iLastRow - 1
    Loop
End Sub

Для LibreOffice Basic:

Sub RemoveRow
    Dim iLastRow As Long
    Dim s1, s2, s3 As String
    Dim s As String
    Dim oDoc As Object

    s1 = "Вход"
    s2 = "Выход"
    s3 = "Отказ"

    oDoc = ThisComponent

    Curs = oDoc.Sheets(0).createCursor
    Curs.gotoEndOfUsedArea(True)

    iLastRow = Curs.Rows.Count

    Do While (iLastRow >= 3)
        s = oDoc.Sheets(0).getCellByPosition(4, iLastRow).getString()
        If ((s <> s1) And (s <> s2) And (s <> s3)) Then
            oDoc.Sheets(0).Rows.removeByIndex(iLastRow, 1)
        End If
        iLastRow = iLastRow - 1
    Loop
End Sub

Код конечно примитивный, но работает. И еще, индексы в Excel начинаются с 1, а в LibreOffice c 0.

Im getting the following error:

«Run-time error ’91’; Object variable or With block variable not set»

From this particular code written in method «CreateArray()», when it’s called from within the NewEntry() method:

    With NameStart
    n = Range(.Offset(1, 0), .End(xlDown)).Rows.Count
    End With 

Original Code:

Sub CreateArray()

With NameStart
    n = Range(.Offset(1, 0), .End(xlDown)).Rows.Count
End With

ReDim PhoneName(n)

For i = 1 To n
    PhoneName(i) = NameStart.Offset(i, 0)
    PhoneNumber(i) = NumStart.Offset(i, 0)
Next i
End Sub

Next method:

Sub NewEntry()
Application.ScreenUpdating = False
Worksheets("Phone Data").Activate

NewName = InputBox("Please enter the new entry name using the " _
& "following format: Last, First", "New Name", "Smith, John")
If NewName = "" Then
    MsgBox "Please enter a name."
    Exit Sub
End If

NewNumber = InputBox("Please enter the 10-digit phone number for " _
        & NewName & " usin the following format: 1234567890", _
        "New Number", 1234567890)
        If NewNumber / 10 ^ 10 < 0.1 Or NewNumber / 10 ^ 10 > 1 Then
            MsgBox "Please enter a 10-digit number."
            Exit Sub
        End If
        Call CreateArray
            For i = 1 To n
                If PhoneName(i) = NewName Then
                MsgBox "There is already an entry for this person in the " _
                & "phone book."
                Exit Sub
            End If
        Next i

    NameStart.Offset(n, 0).Value = NewName
    NumStart.Offset(n, 0).Value = NewNumber
    Range(NameStart, NumStart.Offset(n, 0)).Select
        Selection.Sort Key1:=NameStart, Order1:=xlAscending
    Worksheets("Phonebook Welcome").Activate
        Application.ScreenUpdating = True
        MsgBox NewName & " has been added to the phone book."
End Sub

Variable Declaration:

Public i As Integer
Public n As Integer
Private PhoneName() As String
Private PhoneNumber() As Double
Public NewName As String
Public NewNumber As Double
Public NameStart As Range
Public NumStart As Range

Вступление

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

Ошибка времени выполнения «3»: возврат без GoSub

Неверный код

Sub DoSomething()
    GoSub DoThis
DoThis:
    Debug.Print "Hi!"
    Return
End Sub

Почему это не работает?

Выполнение входит в процедуру DoSomething , переходит на метку DoThis , печатает «Привет!». на выход отладки, возвращается к инструкции сразу после вызова GoSub , печатает «Привет!». снова, а затем встречает оператор Return , но до сих пор некуда возвращаться , потому что мы не попали сюда с инструкцией GoSub .

Правильный код

Sub DoSomething()
    GoSub DoThis
    Exit Sub
DoThis:
    Debug.Print "Hi!"
    Return
End Sub

Почему это работает?

Представляя инструкцию Exit Sub перед DoThis линии DoThis , мы DoThis подпрограмму DoThis от остальной части тела процедуры — единственный способ выполнить подпрограмму DoThis — через прыжок GoSub .

Другие примечания

GoSub / Return устарел, и его следует избегать в пользу фактических вызовов процедур. Процедура не должна содержать подпрограмм, кроме обработчиков ошибок.

Это очень похоже на ошибку времени выполнения «20»: возобновить без ошибок ; в обеих ситуациях решение состоит в том, чтобы гарантировать, что нормальный путь выполнения не может войти в подпрограмму (обозначенную меткой строки) без явного перехода (предполагая, что On Error GoTo считается явным скачком ).

Ошибка времени выполнения «6»: переполнение

неверный код

Sub DoSomething()
    Dim row As Integer
    For row = 1 To 100000
        'do stuff
    Next
End Sub

Почему это не работает?

Тип данных Integer — это 16-разрядное целое число со знаком с максимальным значением 32 767; присваивая его чему-либо большему, чем это приведет к переполнению типа и повышению этой ошибки.

Правильный код

Sub DoSomething()
    Dim row As Long
    For row = 1 To 100000
        'do stuff
    Next
End Sub

Почему это работает?

Вместо этого вместо этого используется Long (32-разрядное) целое число, теперь мы можем создать цикл, который выполняет итерацию более 32 767 раз, не переполняя тип переменной счетчика.

Другие примечания

Дополнительные сведения см. В разделе Типы данных и лимиты .

Ошибка времени выполнения «9»: подстрочный индекс

неверный код

Sub DoSomething()
    Dim foo(1 To 10)
    Dim i As Long
    For i = 1 To 100
        foo(i) = i
    Next
End Sub

Почему это не работает?

foo — массив, содержащий 10 элементов. Когда счетчик циклов i достигает значения 11, foo(i) выходит за пределы диапазона . Эта ошибка возникает всякий раз, когда доступ к массиву или коллекции осуществляется с индексом, который не существует в этом массиве или коллекции.

Правильный код

Sub DoSomething()
    Dim foo(1 To 10)
    Dim i As Long
    For i = LBound(foo) To UBound(foo)
        foo(i) = i
    Next
End Sub

Почему это работает?

Используйте функции LBound и UBound для определения нижней и верхней границ массива, соответственно.

Другие примечания

Когда индекс является строкой, например ThisWorkbook.Worksheets("I don't exist") , эта ошибка означает, что предоставленное имя не существует в запрошенной коллекции.

Фактическая ошибка является специфичной для реализации; Collection будет повышена ошибка во время выполнения 5 «Неверный вызов или аргумент процедуры»:

Sub RaisesRunTimeError5()
    Dim foo As New Collection
    foo.Add "foo", "foo"
    Debug.Print foo("bar")
End Sub

Ошибка времени выполнения «13»: несоответствие типов

неверный код

Public Sub DoSomething()
    DoSomethingElse "42?"
End Sub

Private Sub DoSomethingElse(foo As Date)
'    Debug.Print MonthName(Month(foo))
End Sub

Почему это не работает?

VBA пытается очень тяжело преобразовать "42?" аргумент в значение Date . Когда он терпит неудачу, вызов DoSomethingElse не может быть выполнен, потому что VBA не знает, какую дату передать, поэтому он вызывает несоответствие типа ошибки 13 во время выполнения, поскольку тип аргумента не соответствует ожидаемому типу (и может ‘также неявно преобразуется).

Правильный код

Public Sub DoSomething()
    DoSomethingElse Now
End Sub

Private Sub DoSomethingElse(foo As Date)
'    Debug.Print MonthName(Month(foo))
End Sub

Почему это работает?

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

Ошибка времени выполнения ’91’: переменная объекта или с не заданной переменной блока

неверный код

Sub DoSomething()
    Dim foo As Collection
    With foo
        .Add "ABC"
        .Add "XYZ"
    End With
End Sub

Почему это не работает?

Переменные объекта содержат ссылку , а ссылки должны быть заданы с помощью ключевого слова « Set . Эта ошибка возникает , когда вызов элемента выполнен на объекте, ссылка не является Nothing . В этом случае foo является ссылкой Collection , но он не инициализирован, поэтому ссылка содержит Nothing — и мы не можем вызвать .Add on Nothing .

Правильный код

Sub DoSomething()
    Dim foo As Collection
    Set foo = New Collection
    With foo
        .Add "ABC"
        .Add "XYZ"
    End With
End Sub

Почему это работает?

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

Другие примечания

Часто функция или свойство может возвращать ссылку на объект — распространенным примером является метод Excel Range.Find , который возвращает объект Range :

Dim resultRow As Long
resultRow = SomeSheet.Cells.Find("Something").Row

Однако функция может очень хорошо вернуть Nothing (если поисковый .Row не найден), поэтому вполне вероятно, что .Row вызова .Row не выполняется.

Перед вызовом членов объекта убедитесь, что ссылка задана с условием If Not xxxx Is Nothing :

Dim result As Range
Set result = SomeSheet.Cells.Find("Something")

Dim resultRow As Long
If Not result Is Nothing Then resultRow = result.Row

Ошибка времени выполнения «20»: возобновить без ошибок

неверный код

Sub DoSomething()
    On Error GoTo CleanFail
    DoSomethingElse

CleanFail:
    Debug.Print Err.Number
    Resume Next
End Sub

Почему это не работает?

Если процедура DoSomethingElse вызывает ошибку, выполнение переходит к CleanFail линии CleanFail , печатает номер ошибки, а команда Resume Next возвращается к инструкции, которая сразу же следует за строкой, в которой произошла ошибка, которая в этом случае является Debug.Print инструкция: подпрограмма обработки ошибок выполняется без контекста ошибки, и когда достигается команда Resume Next , возникает ошибка 20 времени выполнения, потому что возобновить ее некуда.

Правильный код

Sub DoSomething()
    On Error GoTo CleanFail
    DoSomethingElse

    Exit Sub    
CleanFail:
    Debug.Print Err.Number
    Resume Next
End Sub

Почему это работает?

Представляя инструкцию Exit Sub перед CleanFail линии CleanFail , мы CleanFail подпрограмму обработки ошибок CleanFail от остальной части тела процедуры — единственный способ выполнить подпрограмму обработки ошибок — с помощью скачка On Error ; поэтому путь выполнения не доходит до инструкции Resume за пределами контекста ошибки, что позволяет избежать ошибки времени выполнения 20.

Другие примечания

Это очень похоже на ошибку времени выполнения «3»: возврат без GoSub ; в обеих ситуациях решение состоит в том, чтобы гарантировать, что нормальный путь выполнения не может войти в подпрограмму (обозначенную меткой строки) без явного перехода (предполагая, что On Error GoTo считается явным скачком ).

Error messages in Visual Basic

When you compile or run a Visual Basic application, the following types of errors can occur:

Compile-time errors, which occur when you compile an application.

Run-time errors, which occur when an application is running.

For information about how to troubleshoot a specific error, see Additional Resources for Visual Basic Programmers.

Run-time errors

If a Visual Basic application tries to perform an action that the system can’t execute, a run-time error occurs, and Visual Basic throws an Exception object. Visual Basic can generate custom errors of any data type, including Exception objects, by using the Throw statement. An application can identify the error by displaying the error number and message of a caught exception. If an error isn’t caught, the application ends.

The code can trap and examine run-time errors. If you enclose the code that produces the error in a Try block, you can catch any thrown error within a matching Catch block. For information about how to trap errors at run time and respond to them in your code, see Try. Catch. Finally Statement.

Compile-time errors

If the Visual Basic compiler encounters a problem in the code, a compile-time error occurs. In the Visual Studio code editor, you can easily identify which line of code caused the error because a wavy line appears under that line of code. The error message appears if you either point to the wavy underline or open the Error List, which also shows other messages.

If an identifier has a wavy underline and a short underline appears under the rightmost character, you can generate a stub for the class, constructor, method, property, field, or enum. For more information, see Generate From Usage (Visual Studio).

By resolving warnings from the Visual Basic compiler, you might be able to write code that runs faster and has fewer bugs. These warnings identify code that may cause errors when the application is run. For example, the compiler warns you if you try to invoke a member of an unassigned object variable, return from a function without setting the return value, or execute a Try block with errors in the logic to catch exceptions. For more information about warnings, including how to turn them on and off, see Configuring Warnings in Visual Basic.

Источник

Office 2013 Visual Basic for Applications (VBA) errors

Symptoms

When you open a file or try to use macros in Microsoft Office 2013 Click 2 Run (C2R), you may experience one of the following symptoms.

Microsoft Access

Windows Installer window continuously flashes.

When you use Access wizards you get the following error:

«This feature isn’t installed, or has been disabled»

When you open the Visual Basic Editor (VBE) you get the following error:

«Microsoft Access is unable to load the Visual Basic for Applications dynamic-link library (dll) Vbe7»

Microsoft Word

After you click Macros, you get the following error:

«The function you are attempting to run contains macros or content that requires macro language support»

Microsoft Excel

When you open existing workbooks, you get the following error:

«The Visual Basic for Applications (VBA) macros in this workbook are corrupted and have been deleted.» opening existing workbooks

The Visual Basic, Macros, and Record Macro options are disabled under the Developer and View ribbon.

The Visual Basic and Macros options are disabled on the ribbon.

When you open presentations with VBA code you get the following error:

«The document contains macros. Macro language support for this application is disabled. Features requiring VBA are not available. Would you like to open this document read-only?»

Cause

Non-Microsoft registry cleaners and system maintenance applications deleted multiple registry key values that are used for VBA functionality in Microsoft Office 2013 applications.

Resolution

Run an Online Repair of Office. Here’s how:

Click Start> Control Panel> Programs and Features.

Click your Microsoft Office program, and then click Change.

Select Online Repair, and then click Repair.

After Online Repair is complete, you should be able to use your Office 2013 applications.

From the Start screen, type Control Panel in the Search box, and then tap or click Apps.

Tap or click Control Panel > Programs > Programs and Features.

Select your Microsoft Office program, and then click Change.

Select Online Repair, and then click Repair.

After Online Repair is complete, you should be able to use your Office 2013 applications.

To prevent recurrences, contact the provider of the registry cleaner or system-maintenance application.

Источник

Сообщения об ошибках в Visual Basic

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

Ошибки во время компиляции, возникающие при компиляции приложения.

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

Сведения о способах устранения некоторых ошибок можно найти в статье Additional Resources for Visual Basic Programmers (Дополнительные ресурсы для программирования на Visual Basic).

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

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

Код может перехватывать и проверять ошибки времени выполнения. Если вы заключите код, создающий ошибку, в блок Try , вы сможете перехватить любую созданную ошибку в соответствующем блоке Catch . Сведения о том, как в коде отлавливать ошибки во время выполнения и реагировать на них, можно найти в статье Try. Catch. Finally Statement (Оператор Try. Catch. Finally).

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

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

Если идентификатор имеет волнистый подчеркивание и короткое подчеркивание отображается под самым правым символом, можно создать заглушку для класса, конструктора, метода, свойства, поля или перечисления. Дополнительные сведения см. в разделе «Создание из использования» (Visual Studio).

Если вы будете правильно учитывать предупреждения компилятора Visual Basic, ваш код будет работать быстрее и с меньшим количеством ошибок. Эти предупреждения сообщают о том, что в коде могут возникнуть ошибки при запуске приложения. Например, компилятор предупреждает о вызове члена неопределенной объектной переменной, о возврате из функции без задания возвращаемого значения, а также о выполнении блока Try с ошибками в логике перехвата исключений. Дополнительные сведения о предупреждениях, в том числе о возможности включать и отключать их, см. в статье Configuring Warnings in Visual Basic (Настройка предупреждений в Visual Basic).

Источник

Office 2013 Visual Basic для приложений (VBA) ошибки

Симптомы

При открытии файла или попробуйте использовать макросы в Microsoft Office 2013 2 нажмите кнопку Run (C2R) возможно возникновение следующих проблем.

Microsoft Access

Постоянно мигает, окно установщика Windows.

При использовании мастера Access появляется следующее сообщение об ошибке:

«Это средство не установлено или была отключена»

При открытии редактора Visual Basic (VBE) появляется следующее сообщение об ошибке:

«Microsoft Access не удалось загрузить Visual Basic для приложений библиотеки динамической компоновки (dll) Vbe7»

Microsoft Word

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

«Функция, которую вы пытаетесь запустить, содержит макросы или содержимое требует поддержки языка создания макросов»

Microsoft Excel

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

«Visual Basic для приложений (VBA) макросов в данной книге повреждены и были удалены.» Открытие существующей книги

Параметры Visual Basic, макросыи Записи макросов отключены в группе разработчиков и просмотр ленты.

Параметры Visual Basic и макросы отключаются на ленте.

При открытии презентаций с VBA-кодом возникает следующая ошибка:

«Документ содержит макросы. Для этого приложения поддержка макроязыка отключена. Компоненты, которым требуется VBA не доступны. Вы хотите открыть этот документ только для чтения?»

Причина

Очистители реестра сторонних разработчиков и обслуживание приложений системы удалены несколько разделов реестра, используемых для выполнения функций VBA в приложениях Microsoft Office 2013.

Решение

Запустите интерактивный ремонт пакета Office. Вот как:

Нажмите кнопку Пуск> Панель управления> программы и компоненты.

Выберите приложение Microsoft Office и нажмите кнопку Изменить.

Выберите Восстановление по сети и затем нажмите кнопку Восстановить.

После завершения восстановления сети следует использовать приложения Office 2013.

На начальном экране введите в поле поиска Панели управления и затем коснитесь или щелкните приложения.

Нажмите кнопку или выберите Панель управления > программы > программы и компоненты.

Выберите программу Microsoft Office и нажмите кнопку Изменить.

Выберите Восстановление по сети и затем нажмите кнопку Восстановить.

После завершения восстановления сети следует использовать приложения Office 2013.

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

Источник

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

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

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

Типы ошибок

Существуют три типа ошибок в программе:

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

Инструкция On Error

Ошибки времени выполнения можно перехватывать внутри подпрограммы. Для этого используется инструкция On Error , которая имеет три формата:

• On Error GoTo — при возникновении ошибки управление передается инструкции, помеченной меткой . Метка должна быть допустимым идентификатором, к которому предъявляются такие же требования как и к переменным. Внутри подпрограммы метка указывается в самом начале помечаемой строки и после метки ставится двоеточие. В качестве примера создадим функцию для деления двух целых чисел. Внутри функции предусмотрим обработку ошибки деления на 0 :

Если при вызове функции во втором параметре передать значение 0 , то управление будет передано в строку, помеченную с помощью метки ПриОшибке . Обратите внимание на то, что метка расположена после инструкции Exit Function . В этом случае код после инструкции Exit Function будет выполнен только в том случае, если возникнет ошибка;

• On Error Resume Next — при возникновении ошибки управление передается следующей инструкции;
• On Error GoTo 0 — отключает перехват ошибок.

Если внутри подпрограммы не предусмотрен перехват ошибки, то при возникновении ошибки работа программы прерывается и выводится стандартное окно с описанием и несколькими кнопками: Continue (продолжить), End (завершить выполнение программы), Debug (перейти в режим отладки) и Help (вывод справки).

Инструкция Resume

Инструкция Resume позволяет указать куда следует переходить после обработки ошибки. Инструкция имеет несколько форматов:

• Resume [0] — управление передается инструкции, вызвавшей ошибку;
• Resume Next — управление передается инструкции, следующей за инструкцией, вызвавшей ошибку;
• Resume — управление передается инструкции, помеченной меткой .

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

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

Вся информация о последней ошибке доступна через объект Err . Объект содержит следующие свойства:

• Number — код ошибки, например, код 11 для ошибки деления на 0 . Если ошибки не произошло, то свойство содержит значение 0 ;
• Description — описание ошибки, например, строка «Division by zero» для ошибки деления на 0 . Пример вывода кода и описания ошибки:

• Source — название текущего проекта;
• HelpFile — путь к файлу справки;
• HelpContext — идентификатор раздела в справочном файле;
• LastDLLError — системный код ошибки при работе с DLL.

Объект Err содержит следующие методы:

• Clear() — очищает всю информацию о последней ошибке. Этот метод следует вызвать после успешной обработки ошибки. Информация об ошибке автоматически очищается при выходе из подпрограммы и ряде других случаев;
• Raise() — позволяет сгенерировать ошибку в программе. Формат метода:

В параметре Number указывается код генерируемой ошибки (целое число от 0 до 65 535 ). Коды от 0 до 512 зарезервированы под системные ошибки, а остальные коды можно использовать под пользовательские ошибки. Чтобы сгенерировать ошибку с пользовательским кодом необходимо сложить код с константой vbObjectError . Остальные параметры являются необязательными и полностью аналогичны одноименным свойствам объекта Err . Пример генерации и обработки пользовательской ошибки:

Способы поиска ошибок в программе

В предыдущих разделах мы научились обрабатывать ошибки времени выполнения. Однако, наибольшее количество времени программист затрачивает на другой тип ошибок — логические ошибки. В этом случае программа компилируется без ошибок, но результат выполнения программы не соответствует ожидаемому результату. Ситуация еще более осложняется, когда неверный результат проявляется лишь периодически, а не постоянно. Инсценировать такую же ситуацию, чтобы получить этот же неверный результат, бывает крайне сложно и занимает очень много времени. В этом разделе мы рассмотрим лишь «дедовские» (но по прежнему актуальные) способы поиска ошибок, а современные способы отладки приложений, доступные в VBA, изучим в следующем разделе.

Первое, на что следует обратить внимание, — на объявления переменных. Например, рассмотрим простой пример:

Как вы думаете, какое значение отобразится в окне Immediate после выполнения этого кода? Думаете, что число 10? Не факт! Вот тут-то и кроется проблема не видная на первый взгляд. В первой инструкции присваивается значение переменной x , имя которой набрано на английской раскладке клавиатуры, а вот во второй инструкции выводится значение переменной x , имя которой набрано на русской раскладке клавиатуры. В результате значение присваивается одной переменной, а выводится значение другой переменной. Такие ситуации очень часто встречаются в программах на языке VBA, так как объявлять переменную не обязательно. Чтобы избежать такой ситуации следует обязательно объявлять переменные явным образом. Контроль за соблюдением этого правила можно возложить на компилятор, добавив в начале модуля следующую инструкцию:

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

Далее следует обратить внимание на форматирование кода. Начинающие программисты обычно не обращают на это никакого внимания, считая этот процесс лишним. А на самом деле зря! Компилятору абсолютно все равно, разместите вы все инструкции на одной строке или выполните форматирование кода. Однако, при поиске ошибок форматирование кода позволит найти ошибку гораздо быстрее.

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

Листинг 11.1. Пример форматирования вложенных блоков

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

Если программа слишком большая, то следует задуматься о разделении программы на отдельные подпрограммы или классы, которые выполняют логически законченные действия. Помните, что отлаживать отдельную подпрограмму гораздо легче, чем «спагетти»-код. Причем прежде чем вставить подпрограмму (или класс) в основную программу ее следует протестировать в отдельном проекте, передавая подпрограмме различные значения и проверяя результат ее выполнения.

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

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

Метод Print() объекта Debug удобно использовать для вывода промежуточных значений. В этом случае значения переменных вначале выводятся в самом начале программы и производится проверка соответствия значений. Если значения соответствуют, то инструкция с методом Print() перемещается на следующую строку программы и опять производится проверка и т. д. Если значения не совпали, то ошибка возникает в инструкции, расположенной перед инструкцией с методом Print() . Если это пользовательская подпрограмма, то проверку значений производят внутри подпрограммы, каждый раз перемещая инструкцию с выводом значений. На одном из этих многочисленных этапов ошибка обычно обнаруживается. В больших программах можно логически догадаться о примерном расположении инструкции с ошибкой и начать поиск ошибки оттуда, а не с самого начала программы.

Инструкции для вывода промежуточных значений можно расставить уже при написании программы, не дожидаясь возникновения ошибки. В этом случае в начале программы объявляется константа с помощью инструкции #Const , а внутри программы производится проверка значения константы:

Проверить значение константы позволяет следующая конструкция:

Таким образом, меняя значение константы MY_DEBUG с 1 на 0 , можно отлючать вывод всех промежуточных значений.

Отладка программы в VBA

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

Прежде чем начать отладку необходимо пометить строки внутри программы с помощью точек останова. Для добавления точки останова делаем строку активной, а затем из меню Debug выбираем пункт Toggle Breakpoint. Слева от строки появится кружок, обозначающий точку останова. Добавить точку останова можно еще быстрее. Для этого достаточно щелкнуть слева от строки левой кнопкой мыши. Повторный щелчок позволяет удалить точку останова. Кроме того, для добавления или удаления точки отстанова можно воспользоваться клавишей . Чтобы удалить все точки останова следует из меню View выбрать пункт Clear All Breakpoints.

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

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

При отладке можно контролировать значения отдельных переменных, а не всех сразу. Для этого следует выделить название переменной и из меню Debug выбрать пункт Add Watch. Можно также выделить название переменной и из контектного меню выбрать пункт Add Watch. В открывшемся окне устанавливаем флажок Watch Expression и нажимаем кнопку OK. Значение переменной будет отображаться в окне Watches. Чтобы отобразить окно Watches из меню View выбираем пункт Watch Window. Чтобы отменить отслеживание нужно выделить строку в окне Watches и нажать клавишу .

Для пошагового выполнения программы предназначены следующие пункты в меню Debug или соответствующие кнопки на панели инструментов Debug ( View | Toolbars | Debug):

• Step Into (клавиша ) — выполняет переход к следующей инструкции;
• Step Over — выполняет одну инструкцию. Если в этой инструкции производится вызов подпрограммы, то подпрограмма выполняется за один шаг и отладчик переходит в режим ожидания после выхода из подпрограммы;
• Step Out — при заходе в подпрограмму этот пункт позволяет выполнить подпрограмму за один шаг и выйти из нее. Отладчик переходит в режим прерывания после выхода из подпрограммы;
• Run To Cursor — выполняет переход к инструкции, в которой расположен курсор.

Если необходимо посмотреть последовательность вызова подпрограмм, то следует открыть окно Call Stack, выбрав в меню View пункт Call Stack.

Подача звукового сигнала

При возникновении ошибки или при неправильном вводе данных имеет смысл привлечь внимание пользователя звуковым сигналом. Сгенерировать звуковой сигнал позволяет инструкция Beep . Пример:

Статьи по Visual Basic for Applications (VBA)

Помощь сайту

ПАО Сбербанк:
Счет: 40817810855006152256
Реквизиты банка:
Наименование: СЕВЕРО-ЗАПАДНЫЙ БАНК ПАО СБЕРБАНК
Корреспондентский счет: 30101810500000000653
БИК: 044030653
КПП: 784243001
ОКПО: 09171401
ОКОНХ: 96130
Скриншот реквизитов

Источник