Excel VBA二次创建ActiveX ComboBox时出现无法识别错误

问题分析 #

你的代码在创建前两个工作表的ComboBox时正常，后续设置.Name属性报错，即使删除所有控件重新运行仍出现问题，大概率是名称冲突、不必要的工作表激活或错误处理不严谨导致的。

解决方案 #

1. 移除冗余的工作表激活操作

ws.Activate完全不需要，操作OLE控件无需激活工作表，反而可能引发上下文切换问题，直接删除该行代码。

2. 全面检查名称冲突

确保cmbName参数没有和工作表内的其他对象（命名区域、表单控件、单元格名称）重名。修改函数，在创建控件前增加对命名区域的检查。

3. 优化错误处理，精准捕获命名错误

在设置.Name属性时添加针对性错误捕获，快速定位出错的控件名称，并自动清理创建失败的控件。

修改后的完整函数代码 #

Public Function GetOrCreateComboBox(wsName As String, rngAddress As String, cmbName As String) As OLEObject
    Dim ws As Worksheet
    Dim cmb As OLEObject
    Dim objExists As Boolean
    
    ' 检查目标工作表是否存在
    On Error Resume Next
    Set ws = ThisWorkbook.Worksheets(wsName)
    On Error GoTo 0
    
    If ws Is Nothing Then Exit Function
    
    ' 检查是否存在同名OLE对象或命名区域
    On Error Resume Next
    Set cmb = ws.OLEObjects(cmbName)
    objExists = Not cmb Is Nothing
    If Not objExists Then
        objExists = Not ws.Names(cmbName) Is Nothing
    End If
    On Error GoTo 0
    
    If Not objExists Then
        ' 创建ActiveX ComboBox，直接绑定到目标区域位置
        Set cmb = ws.OLEObjects.Add(ClassType:="Forms.ComboBox.1", _
                                   Left:=ws.Range(rngAddress).Left, _
                                   Top:=ws.Range(rngAddress).Top, _
                                   Width:=ws.Range(rngAddress).Width, _
                                   Height:=ws.Range(rngAddress).Height)
        
        ' 设置名称时捕获错误，避免程序崩溃并提示问题
        On Error Resume Next
        cmb.Name = cmbName
        If Err.Number <> 0 Then
            MsgBox "设置控件名称 '" & cmbName & "' 失败: " & Err.Description, vbCritical
            cmb.Delete ' 清理创建失败的控件
            Set cmb = Nothing
        End If
        On Error GoTo 0
    End If
    
    Set GetOrCreateComboBox = cmb
End Function

额外排查步骤 #

• 分步测试定位问题：暂时注释掉后续的ComboBox创建代码，逐个添加测试，找到具体引发错误的控件名称，检查对应工作表是否有同名对象。
• 修复控件注册：如果是ActiveX控件本身的问题，以管理员身份打开命令提示符，执行对应命令重新注册MSForms控件：
  • 32位系统：regsvr32.exe C:\Windows\System32\MSForms.ocx
  • 64位系统：regsvr32.exe C:\Windows\SysWOW64\MSForms.ocx

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