vba - 将设置存储在用户 PC 上

Question

我有一个带有脚本的 Excel 工作表，它保存在每个用户都可以访问的远程位置。该宏将让用户选择一个目标文件夹并在其中创建一些文件。

现在我希望我的脚本记住每个用户最后选择的路径。将来我可能需要存储更多路径(变量)。

我的想法是将这些数据存储在每个用户计算机上的 Environ("AppData") 位置。有点像离线 cookie。

但是创建(如果不存在)读取和更新我想要轻松访问的多个文件的最简单方法是什么？

我尝试过将其保存在记事本中，但索引和解析简直是噩梦。

Answer 1

将设置保存到注册表。

SaveSetting (appname, section ,key ,setting)

SaveSetting "AffectedTerminals", "frmMain", "LastDir", szPathname

然后，您可以在应用程序下次运行时使用 getsetting 检索设置，以便可以使用它。

GetSetting ( appname , section, key [, default ] )

Dim szLastDir As String
szLastDir = GetSetting("AffectedTerminals", "frmMain", "LastDir", "P:\AttEngineering")

编辑:应用程序名称和部分参数解释。
应用程序名称和部分可以是您想要的任何内容。最好能描述一下环境。在上面的代码中，AffectedTerminals 是我的应用程序的名称。因此，如果您有一个处理 IT 发票的电子表格，那么您可以将应用程序名称命名为“ITinvoices”。该部分只是注册表条目的一个子部分(某种子目录)。

设置将保存在此位置

HKEY_CURRENT_USER/Software/VB and VBA Program Settings/appname/Section/key/value/

所以对于我来说它被保存为

保存设置功能

应用程序名称
必需的。包含应用程序或应用设置的项目名称的字符串表达式。

部分
必需的。包含保存 key 设置的部分名称的字符串表达式。

键
必需的。包含正在保存的按键设置名称的字符串表达式。

设置
必需的。包含要设置 Key 的值的表达式。

获取设置函数

应用程序名称
必需的。字符串表达式，包含请求其 key 设置的应用程序或项目的名称。

部分
必需的。包含找到关键设置的部分名称的字符串表达式。

键
必需的。包含要返回的键设置名称的字符串表达式。

默认
选修的。包含在键设置中未设置值时返回的值的表达式。如果省略，默认值被假定为零长度字符串 ("")。