将用户窗体文本框值中的更改保存为新的默认值

我有一个用户窗体，在文本框中有29个值用作相当长的公式的参数。 我已经input当前设置作为文本框的值和文本属性中的起始值。 我希望用户能够使用表单上的“保存”button将表单参数永久更改为新的启动默认值。 网上有一些文章展示了这一点，并使用了这些例子。 我拼凑了下面的代码。

Private Sub ToggleButton1_Click() ' '----------- Save Button ------------------------------------- ' Dim VBP As VBIDE.VBProject Dim VBC As VBIDE.VBComponent Dim VBD As UserForm Set VBP = ThisWorkbook.VBProject Set VBC = VBP.VBComponents("Calculation_Parameters") Set VBD = VBC.Designer With VBD With .Controls("Textbox1") .Value = 111 .BackColor = vbRed End With End With End Sub 

我已经尝试了至less20个变种，但没有运气。 有了这段代码，我得到了“运行时错误”91：“对象variables或块variables未设置”错误消息。 debugging指向“With .controls（Textbox1”）行作为违规者。我select了“Microsoft Visual Basic For App Extensibility”引用。 任何想法将不胜感激。

Answer 1

使用ADO程序库，并将默认列表保存在Access数据库中，或者您可以简单地创build一个用户表单在Excel中编译的主列表，并且当用户表单中的值发生更改时，它会修改列表中的该项目。