VSTO Excel，保存组合框文本，打开工作簿时重置组合框？

Question

我的 Excel VSTO 解决方案中有几个组合框。这些组合是窗口形式的组合。

问题是我希望当用户重新打开电子表格时重新填充组合中的选定值。目前，我知道这些值是与电子表格一起保存的，我知道由于在同一台计算机上进行开发和测试，我遇到了 ClickOnce 安装程序问题，我可以看到电子表格打开，安装程序去获取新的版本。在那段时间里，我看到了我想要的组合值。

但是，一旦安装了自定义并且电子表格初始化，组合将重置为默认文本值。我可以想出几种方法来解决这个问题，包括使用缓存数据...有谁知道是否有一种简单的方法可以防止组合在电子表格打开时重置？

Answer 1

我不知道这是否一定是最好的解决方案，但这就是我最终所做的。

我首先将我的组合嵌入到单元格中。

Friend WithEvents cmbType

Private Sub EmbedCombo()
   cmbType = Me.Controls.AddComboBox(Me.Range("A7"), "cmbType")
End Sub

然后我创建了一个子程序来将组合文本的值写回到控件所在的单元格中。

Private Sub SaveComboText()
   Me.Range("A7").Value = Me.cmbType.Text
End Sub

最后一个例程将单元格值写回到组合中。

Private Sub LoadComboText()
   Me.cmbType.Text = Me.Range("A7").Value  
End Sub

为了使其全部正常工作，我使用了 WorkBoook BeforeSave 事件和 WorkSheet.StartUp 事件。

首先

Private Sub ThisWorkbook_BeforeSave() Handles Me.BeforeSave
    Globals.Sheet1.StoreComboValues()
End Sub

然后

Private Sub Sheet1_Startup() Handles Me.Startup
  Call LoadComboText()
End Sub

如果其他人知道避免这种情况的更好方法，请告诉我:)