ActiveX ListBox调用配对工作表的Runtime Error 438问题排查

问题说明 #

使用ActiveX ListBox时，无法通过OLEFormControl.Object或OLEFormat获取控件对象，触发Runtime Error 438：对象不支持该属性或方法。已知直接调用ListBox1.Text能正常激活工作表，但在复杂代码中声明并设置ListBox对象时失败。需求是选中ListBox项后，激活对应的配对工作表并将其移动到"Index"工作表右侧。

错误原因 #

ActiveX控件与Excel表单控件的对象获取方式存在本质区别：

• 表单控件需通过Shapes("控件名").OLEFormControl.Object获取
• ActiveX控件需通过Worksheet.OLEObjects("控件名").Object获取，若代码在控件所在工作表的代码模块中，也可直接使用控件名称（如ListBox1）

修正后的完整代码 #

Sub ActivateSheetFromListBox()
    Dim wsIndex As Worksheet
    Dim wsTarget As Worksheet
    Dim listBox As ListBox
    Dim selectedItem As Integer ' ListIndex为整数类型，需修正变量类型
    
    ' 获取工作表和ActiveX ListBox对象
    Set wsIndex = ThisWorkbook.Worksheets("Index")
    ' 核心修正：通过OLEObjects集合获取ActiveX控件实例
    Set listBox = wsIndex.OLEObjects("ListBox1").Object
    ' 若代码在Index工作表的代码模块中，可简化为：Set listBox = Me.ListBox1
    
    ' 获取选中项的索引
    selectedItem = listBox.ListIndex
    
    ' 定义工作表配对数组（每个元素为一组配对，用|分隔两个工作表名）
    Dim sheetPairs() As Variant
    sheetPairs = Array( _
        "LXXXXXXB-LXXXXXXT|LXXXXXXT-LXXXXXXB", _
        "LXXXXXXB-RXXXXXXH|RXXXXXXH-LXXXXXXB", _
        "LXXXXXXB-SXXXXXXH|SXXXXXXH-LXXXXXXB", _
        "LXXXXXXB-LXXXXXXO|LXXXXXXO-LXXXXXXB" _
    )
    
    ' 激活并移动配对工作表
    If selectedItem >= 0 And selectedItem <= UBound(sheetPairs) Then
        Dim sheetPair() As String
        sheetPair = Split(sheetPairs(selectedItem), "|")
        
        ' 处理第一个工作表
        Set wsTarget = ThisWorkbook.Worksheets(sheetPair(0)) ' 对象赋值必须用Set关键字
        wsTarget.Visible = xlSheetVisible
        wsTarget.Move After:=wsIndex
        wsTarget.Activate
        
        ' 处理配对的第二个工作表
        With ThisWorkbook.Worksheets(sheetPair(1))
            .Visible = xlSheetVisible
            .Move After:=wsTarget
            ' .Activate ' 按需取消注释以激活第二个工作表
        End With
        
        ' 重置ListBox选中状态
        listBox.ListIndex = -1
    End If
End Sub

关键修正点 #

• ListBox对象获取：改用wsIndex.OLEObjects("ListBox1").Object获取ActiveX控件实例，替代错误的OLEFormControl.Object或OLEFormat调用
• 变量类型修正：selectedItem改为Integer类型，因为ListIndex属性返回整数索引而非字符串
• 数组初始化修正：将工作表配对拆分为数组的独立元素，而非单个拼接字符串，确保Split能正确解析每组配对
• 对象赋值修正：工作表对象赋值必须使用Set关键字，否则会触发对象赋值错误
• 逻辑完善：调整数组索引判断条件为selectedItem <= UBound(sheetPairs)，避免遗漏最后一项；增加listBox.ListIndex = -1重置选中状态

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