保存 OLEObject ComboBox 的状态

Question

我的 Excel 工作表中有一些组合框。 当用户在这些框中选择选项，保存文档并再次打开它时，选定的项目就消失了。 没有可用的选项，也没有选择任何内容。

我通过Workbook.Open中的宏填充框的选择。通过从隐藏的工作表“formdata”中读取设置来打开。 我还尝试将用户选择的值保存在ComboBox.Change上，并在Workbook.Open上读回它们。 但是，一旦将第一项添加到选项中，这就会触发ComboBox.Change ，从而有效地删除保存的值（设置为-1 ）。

Private Sub Workbook_Open()
    Dim obj As ComboBox
    Dim s As Variant
    Dim col As Integer, row As Integer

    Application.EnableEvents = False  ' <-- this doesn't help
    
    With ThisWorkbook.Worksheets("formdata")
        col = 1
        For Each s In Array("ComboBox1", "ComboBox2")
            Set obj = CallByName(ThisWorkbook.Worksheets(sht_tool), s, VbGet)
            row = 2
            While Not IsEmpty(.Cells(row, col))
                obj.AddItem .Cells(row, col).Value  ' This already triggers ComboBox.Change and writes -1 to "formdata", overwriting the saved value
                row = row + 1
            Wend
            obj.ListIndex = .Cells(1, col + 1).Value  ' At this point the saved value was already set back to -1
            col = col + 2
        Next s
    End With
    
    Application.EnableEvents = True
End Sub

我的ComboBox.Change回调如下所示：

Private Sub ComboBox1_Change()
    ThisWorkbook.Worksheets("formdata").Cells(1, 2).Value = _
    ThisWorkbook.Worksheets("tool").ComboBox1.ListIndex
End Sub