能否通过单条命令批量保存多TextBox的设置？

很遗憾，VBA原生并没有提供单条命令就能批量保存所有设置的功能——SaveSetting函数本身就是设计用来单次保存一个键值对的。不过你可以自己封装一个自定义过程，把重复的调用逻辑打包起来，这样只需要执行一次调用就能完成所有保存操作。

实现方法：自定义批量保存过程 #

你可以把所有需要保存的TextBox参数整理到一个数组里，然后通过循环自动调用SaveSetting，代码示例如下：

Sub SaveAllSettings()
    ' 用数组存储每个设置的四组参数：应用名、节名称、键名称、对应TextBox的文本内容
    Dim settingsBatch As Variant
    settingsBatch = Array( _
        Array("Vertrag1", "setting", "Deckblatt", VertragsNrBox.Text), _
        Array("Vertrag1.1", "setting", "Deckblatt", DatumBox.Text), _
        Array("Vertrag1.2", "setting", "Deckblatt", ThemaBox.Text), _
        Array("Präambel1", "setting", "Präambel", TextBox1.Text), _
        Array("Vertrag2.2", "setting", "Präambel", TextBox2.Text) ' 继续添加你需要保存的其他TextBox
    )
    
    Dim item As Variant
    For Each item In settingsBatch
        SaveSetting item(0), item(1), item(2), item(3)
    Next item
End Sub

使用方式 #

之后你只需要在代码里调用一次：

Call SaveAllSettings

就能一次性完成所有TextBox的设置保存了。如果后续需要新增要保存的TextBox，只需要在settingsBatch数组里添加一行对应的参数即可，非常方便。

额外提示 #

如果你的TextBox命名和设置的键名有规律（比如TextBox的Name属性就是键名），还可以通过遍历窗体控件的方式自动收集参数，进一步减少手动维护数组的工作量。不过如果每个TextBox对应的应用名、节名称都不一样，上面的数组方案会更灵活可控。

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