Как узнать, в каком модуле выполняется мой код?

Что касается имени проекта, единственный способ, который я могу придумать, — это преднамеренно выдать ошибку где-нибудь в Sub Main() и в коде обработки ошибок сохранить полученный Err.Source в глобальную переменную g_sProjectName. В противном случае, я, кажется, помню, что была бесплатная сторонняя DLL под названием TLBINF32.DLL, которая выполняла COM-отражение, но это кажется слишком большим для того, что вы хотите сделать, и в любом случае, вероятно, есть разница между общедоступным и частным классы. И, наконец, вы можете использовать двоичный редактор для поиска строки имени проекта в вашем EXE-файле, а затем попытаться прочитать строку с позиции. Хотя это расстраивает, что имена каждого проекта и модуля кода встроены в EXE, похоже, нет предсказуемого способа сделать это, поэтому это НЕ рекомендуется.

Здесь есть несколько вопросов.

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

Последняя часть, возможно, должна знать имя EXE (или библиотеки), которая вызвала вашу ActiveX DLL. Чтобы выяснить это, попробуйте следующее:

'API Declarations'
Private Declare Function GetModuleFileName Lib _
    "kernel32" Alias "GetModuleFileNameA" (ByVal _
    hModule As Long, ByVal lpFileName As String, _
    ByVal nSize As Long) As Long

Private Function WhosYourDaddy() As String
    Dim AppPath As String
    Const MAX_PATH = 260

    On Error Resume Next

    'allocate space for the string'
    AppPath = Space$(MAX_PATH)

    If GetModuleFileName(0, AppPath, Len(AppPath)) Then
        'Remove NULLs from the result'
        AppPath = Left$(AppPath, InStr(AppPath, vbNullChar) - 1)
        WhosYourDaddy = AppPath
    Else
        WhosYourDaddy = "Not Found"
    End If
End Function

К сожалению, вам понадобятся отдельные операторы On Error GoTo X для отдельных модулей и процедур. Проект всегда хранится в Err.Source. Обработка ошибок VBA не так уж и хороша в этой области - в конце концов, насколько хорошо имя проекта как источник ошибки, в отличие от процедуры/модуля, не так ли?

Если вы вручную или программно нумеруете свои строки (например, в старой школе BASIC), вы можете использовать ERL для вывода номера строки, в которой произошла ошибка. Имейте в виду, однако, что ошибка, возникающая в строке без числа, заставит ERL выдать свою собственную ошибку, а не вернуть ноль. Дополнительную информацию можно найти в этом блоге. сообщение.

Если вы используете Access 2007 (не уверены в других приложениях/версиях Office), попробуйте этот фрагмент кода, извлеченный из справочной документации:

Sub PrintOpenModuleNames()
    Dim i As Integer
    Dim modOpenModules As Modules

    Set modOpenModules = Application.Modules

    For i = 0 To modOpenModules.Count - 1

        Debug.Print modOpenModules(i).Name

    Next
End Sub

И Microsoft включает эти замечания:

• Все открытые модули включаются в коллекцию Modules независимо от того, не скомпилированы ли они, скомпилированы, находятся в режиме приостановки или содержат исполняемый код.
• Чтобы определить, представляет ли отдельный объект Module стандартный модуль или модуль класса, проверьте свойство Type объекта Module.
• Коллекция модулей принадлежит объекту приложения Microsoft Access.
• Отдельные объекты Module в коллекции Modules индексируются, начиная с нуля.

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

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

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

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