VBA按模块名行号选中目标宏 运行异常未定位目标位置报91错误

项目当前开发进度 #

• 开发一款本地轻量级代码对比工具，实现跨文件相同宏的Diff对比能力，对标GitHub的本地代码对比体验
• 已完成第一阶段功能模块：
  • 搭建按代码类型分组展示所有模块的TreeView组件
  • 点击TreeView节点时，在右侧ListView加载对应模块下的所有宏条目，同步展示每个宏的起始行、结束行、总行数信息
• 预期实现的交互逻辑：传入宏的行号、所属模块名两个参数，激活目标模块对应的代码窗格，直接选中指定宏的完整行范围

现有功能异常表现 #

• 代码运行后未跳转到目标宏位置，反而错误选中了窗体相关模块的代码行
• 临时注释掉On Error Resume Next错误捕获后，直接抛出91：Object variable or With block variable not set错误

异常根源定位 #

原问题代码如下：

Public Sub VBA_SelectMacro(lLine As Long, Optional moduleName As String)

    Dim lActiveLine  As Long
    Dim sProc As String
    Dim ProcType As Long
    Dim vbaModule As CodeModule
    Dim vbaPane As CodePane
    Dim startLine As Long
    
    Dim VBEProj As VBIDE.VBProject
    Dim vbComp As VBIDE.VBComponent
    Dim VBProj As VBIDE.VBProject
    
    'On Error Resume Next

    If moduleName <> "" Then
        Set VBProj = ActiveWorkbook.VBProject
        Set vbComp = VBProj.VBComponents(moduleName)
        Set vbaModule = vbComp.CodeModule
        VBProj.VBComponents(moduleName).Activate
        ' 移除错误捕获后，该行直接触发91号空对象错误
        vbaPane.SetSelection lLine, 1, lLine + 1, 1
    End If
    
    Set vbaPane = Application.VBE.ActiveCodePane
    Set vbaModule = vbaPane.CodeModule

    If lLine > 0 Then
        vbaPane.GetSelection lActiveLine, 0, 0, 0
        sProc = vbaModule.ProcOfLine(lActiveLine, vbext_pk_Proc)

        With vbaModule
            startLine = .ProcStartLine(sProc, ProcType)
            .CodePane.SetSelection startLine + lLine, 1, startLine + lLine + 1, 1
        End With
    End If
End Sub

逐条拆解核心逻辑缺陷：

• 空对象直接调用方法触发91错误
  在If moduleName <> ""分支中，仅执行了VBComponent的激活操作，从未给提前声明的vbaPane对象赋值。直接调用vbaPane.SetSelection时，对象处于未绑定的空状态，必然触发91号错误。之前靠On Error Resume Next吞掉该错误后，代码会继续向下执行，被Set vbaPane = Application.VBE.ActiveCodePane一行绑定到当前系统激活的、往往是之前打开的窗体模块代码窗格，最终出现选中位置偏移的问题。
• 行号定位逻辑重复偏移
  前端ListView传递的lLine本身就是对应宏的模块全局行号，后续代码又额外叠加ProcStartLine的计算结果作为偏移量，会直接选中完全不相关的代码行。
• ProcOfLine参数引用错误
  代码中获取ProcOfLine时传入的是当前窗格的光标位置行lActiveLine，而非目标定位的行号，完全脱离了传入参数的定位目标，所有计算都基于当前光标的状态，和预期的宏位置无关联。

修正后的可运行实现 #

Public Sub VBA_SelectMacro(lLine As Long, Optional moduleName As String)
    Dim vbComp As VBIDE.VBComponent
    Dim vbaPane As VBIDE.CodePane
    
    ' 传入模块名时，定位目标组件并激活对应代码窗格
    If moduleName <> "" Then
        Set vbComp = ActiveWorkbook.VBProject.VBComponents(moduleName)
        vbComp.Activate
        ' 直接绑定目标组件的CodePane，不依赖系统当前激活窗格的状态
        Set vbaPane = vbComp.CodePane
    Else
        ' 未传模块名时，兜底取当前激活的代码窗格
        Set vbaPane = Application.VBE.ActiveCodePane
    End If
    
    ' 直接选中对应行号范围（行号为模块全局行号，无需额外偏移）
    If lLine > 0 Then
        vbaPane.SetSelection lLine, 1, lLine, 1
    End If
End Sub

内容的提问来源于stack exchange，提问作者Dumitru Daniel