Excel工作表OLEObject ComboBox状态无法持久化保存问题求助

你遇到的核心问题是填充ComboBox选项时意外触发了Change事件，导致之前保存的选中状态被覆盖成-1，而且看似设置了Application.EnableEvents = False却没起作用——大概率是代码里的小疏漏或者控件获取方式的问题，我给你梳理几个靠谱的解决方案：

先搞清楚问题根源 #

当你调用obj.AddItem给ComboBox添加选项时，控件的内容变化会自动触发Change事件；哪怕你写了Application.EnableEvents = False，如果控件的获取方式（比如你用的CallByName）存在上下文问题，或者sht_tool变量没正确定义，都会导致事件关闭的设置没生效。再加上你是先填充选项再恢复选中状态，这时候Change事件已经把保存的值改成-1了，自然恢复不了。

方案1：确保事件关闭生效，调整代码逻辑 #

首先要明确指定工具工作表，避免控件获取出错，然后全程关闭事件再操作ComboBox：

Private Sub Workbook_Open()
    Dim obj As ComboBox
    Dim s As Variant
    Dim col As Integer, row As Integer
    Dim sht_tool As Worksheet
    
    ' 先明确绑定工具工作表，避免后续获取控件出错
    Set sht_tool = ThisWorkbook.Worksheets("tool")
    
    ' 全局关闭事件，确保AddItem不会触发Change
    Application.EnableEvents = False
    
    With ThisWorkbook.Worksheets("formdata")
        col = 1
        For Each s In Array("ComboBox1", "ComboBox2")
            ' 换一种更直观的方式获取ComboBox控件，替代CallByName
            Set obj = sht_tool.OLEObjects(s).Object
            obj.Clear ' 先清空原有选项，避免重复添加
            
            ' 填充选项列表
            row = 2
            While Not IsEmpty(.Cells(row, col))
                obj.AddItem .Cells(row, col).Value
                row = row + 1
            Wend
            
            ' 最后恢复之前保存的选中状态
            obj.ListIndex = .Cells(1, col + 1).Value
            
            col = col + 2
        Next s
    End With
    
    ' 操作完成后重新开启事件
    Application.EnableEvents = True
End Sub

方案2：给Change事件加判断，避免误触发 #

如果还是担心事件关闭的设置不稳定，可以在ComboBox的Change事件里加个过滤条件，只有当控件有有效选项且选中状态合法时才保存：

Private Sub ComboBox1_Change()
    With ThisWorkbook.Worksheets("tool").ComboBox1
        ' 只有当选项数量>0，且选中索引有效时才保存
        If .ListCount > 0 And .ListIndex >= 0 Then
            ThisWorkbook.Worksheets("formdata").Cells(1, 2).Value = .ListIndex
        End If
    End With
End Sub

' ComboBox2的Change事件同理
Private Sub ComboBox2_Change()
    With ThisWorkbook.Worksheets("tool").ComboBox2
        If .ListCount > 0 And .ListIndex >= 0 Then
            ThisWorkbook.Worksheets("formdata").Cells(1, 4).Value = .ListIndex
        End If
    End With
End Sub

这样哪怕AddItem触发了Change事件，因为此时ListIndex还是-1，不会执行保存操作，也就不会覆盖之前的存档值。

额外优化建议 #

• 比起保存ListIndex，更建议保存选中的文本值，这样哪怕选项顺序后续有变化，也能精准恢复选中状态。比如在Change事件里保存.Value，在Workbook_Open时用obj.Value = .Cells(1, col + 1).Value来恢复。
• 给隐藏工作表formdata设置保护，防止意外修改或删除存档数据。

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