利用VBA的SaveSetting方法在注册表保存信息

lss001

'注册表保存信息位置：
'HKEY_CURRENT_USER\Software\VB and VBA Program Settings

Sub saves() '保存信息到注册表
  k = Sheet1.Range("A1").Value '单元格信息：值
  VBA.SaveSetting "myapp", "myprogram", "value", k
End Sub

Sub gets() '从注册表获取信息
  '获取全部
  'arr = VBA.GetAllSetting("myapp", "myprogram")
  '获取单项
  x = VBA.GetSetting("myapp", "myprogram", "value")
End Sub

Sub dels() '从注册表删除信息
  On Error Resume Next
  '删除全部
  'VBA.DeleteSetting "myapp", "myprogram"
  '删除单项
  VBA.DeleteSetting "myapp", "myprogram",
  "value"
End Sub


参考以下Vba帮助链接：

https://learn.microsoft.com/zh-cn/office/vba/Language/Reference/User-Interface-Help/savesetting-statement

f8b1987

这个方法确实很方便

cidanji

从以前笔记整理的，借楼主帖子，分享下说明

写入注册表作用：注册表中创建键名和对应键值，即键值对形式存储参数
值类型：文本
时效性：随系统

1 保存值到注册表

1. SaveSetting 程序名, 节名, 键名, 键值

复制代码

执行后，所设 "键值" 将被保存在 "HKEY_CURRENT_USER\Software\VB and VBA Program Settings\程序名\键名" 下
有则覆盖，无则创建，不会报错
四参"键值"，可写各种数据类型，最终以字符串保存

2.1 读取单项 (键)

1. GetSetting(程序名, 节名, 键名)

复制代码

返回类型为字符串
无注册表项时，则返回空字符串""，不会报错
2.2 读取全部 (节)  

1. GetAllSettings(程序名, 节名)

复制代码

返回(0 to n, 0 to 1)字符串二维数组
无注册表项时，则返回空字符串""，不会报错

3.1 删除单项 (键)

1. DeleteSetting 程序名, 节名, 键名

复制代码

无注册表项时删除会报错

其他
"存储参数" 除利用注册表，如果不存单元格，
网友也可考虑去用 name名称、宏4.0名称、文档属性等等等
值类型分别为：文本、多种类型、多种类型
时效性分别为：随文件、随application生命周期、随文件
隐秘性分别为：不可见、不可见、简单不可见
都相当于"键值对"的存储


(如有错误纰漏铁子们指正补充)

gnefnuy

cidanji 发表于 2024-7-4 12:35
从以前笔记整理的，借楼主帖子，分享下说明

写入注册表作用：注册表中创建键名和对应键值，即键值对 ...

大哥，分享一下 name名称、宏4.0名称的实现方法吧
文档属性是这样的吗？

1. ThisWorkbook.CustomDocumentProperties.Add Name:="MyParam", _
   
2.     Description:="My Parameter", Value:="MyValue", Type:=msoPropertyTypeString
   
3. Dim myParam As String
   
4. myParam = ThisWorkbook.CustomDocumentProperties("MyParam").Value

复制代码