VBA的注册表读写函数

halqj

VBA有四个内置函数让我们方便的操作注册表，但它们有一个缺点就是只能处理注册表的特定部分HKEY_CURRENT_USERSoftwareVB and VBA Program Setting.

【1】SaveSetting,顾名思义，这个函数就是让你在上面的注册表里里保存数值。
用法： SaveSetting appname, section, key, setting
appname是字符串，表示所设置键的应用程序或工程名称
section是字符串，表示所设置键的区域名称，在这个区域里保存注册表项设置
key是字符串，表示要保存的注册表项设置的名称
setting是任何类型的表达式，表示要保存的注册表项设置的值
例如：SaveSetting ThisWorkBook.Name,"MySection","MyKey","1973"
也可以：SaveSetting appname:=Thisworkbook.name,section="MySection",key:="MyKey",setting:=1973

【2】GetSetting，就是从上面的注册表里获取字符串值，如果注册表项设置不存在或为空的话，返回由default参数指定的值。
用法： GetSetting(appname, section, key[, default])
appname是字符串，表示所设置键的应用程序或工程名称
section是字符串，表示所设置键的区域名称，在这个区域里保存注册表项设置
key是字符串，表示要保存的注册表项设置的名称
default是可选的表达式，如果注册表项设置中没有设置值，则返回缺省值。如果省略，则 default 取值为长度为零的字符串 ("")。
例如：SaveSetting ThisWorkBook.Name,"MySection","MyKey","1973"
      Debug.Print GetSetting(ThisWorkBook.Name,"MySection","MyKey","0000")

【3】DeleteSetting，删除所设置键的区域或注册表项设置。取决于是否提供可选项Key。
用法： DeleteSetting appname, section[, key]
appname是字符串，表示所设置键的应用程序或工程名称
section是字符串，表示所设置键的区域名称，如果只有appname和section，就删除指定的区域连同这个区域下所有的注册表项设置。
key是可选字符串，表示要删除的注册表项设置
例如：SaveSetting ThisWorkBook.Name,"MySection","MyYear","1973"
      SaveSetting ThisWorkBook.Name,"MySection","MyHome","Hunan"
      DeleteSetting ThisWorkBook.Name,"MySection","MyYear"  只删除MyYear项设置。
      DeleteSetting ThisWorkBook.Name,"MySection"  删除MySection区域并且同时删除剩下的MyHome项设置。 

【4】GetAllSettings，获取指定区域下所有的注册项设置，返回一个2维Variant数组。如果程序或区域不存在，返回未初始化的Variant变量。
用法： GetAllSettings(appname, section)
appname是字符串，表示所设置键的应用程序或工程名称
section是字符串，表示所设置键的区域名称
例如：
 dim i as integer
 dim vResult as Variant
 SaveSetting ThisWorkBook.Name,"MySection","MyYear","1973"
       SaveSetting ThisWorkBook.Name,"MySection","MyHome","Hunan"
 vResult=GetAllSettings(ThisWorkbook.name,"MySection")
 for i=LBound(vResult,1) to UBound(vResult,1)
  Debug.Print vResult(i,0) & ": " & vResult(i,1)
 Next i
 DeleteSetting ThisWorkbook.name,"MySection"

sgyzzz

学习一下，关注的内容。

gfp12345678

学习一下

gfp12345678

学习学习一下

zyqn518

学习，多谢