资源描述：
《VBA的注册表读写函数.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、VBA的注册表读写函数2010-12-2621:15:21
2、 分类：Office/VBA
3、 标签：
4、字号大中小 订阅VBA有四个内置函数让我们方便的操作注册表，但它们有一个缺点就是只能处理注册表的特定部分：HKEY_CURRENT_USERSoftwareVBandVBAProgramSetting【1】SaveSetting,顾名思义，这个函数就是让你在上面的注册表里里保存数值。用法：SaveSettingappname,section,key,settingappname是字符串，表示所设置键的应用程序或工程名称section是字符串，表示所设置键的区域名称
5、，在这个区域里保存注册表项设置key是字符串，表示要保存的注册表项设置的名称setting是任何类型的表达式，表示要保存的注册表项设置的值例如：SaveSettingThisWorkBook.Name,"MySection","MyKey","1973"也可以：SaveSettingappname:=Thisworkbook.name,section="MySection",key:="MyKey",setting:=1973【2】GetSetting，就是从上面的注册表里获取字符串值，如果注册表项设置不存在或为空的话，返回由default参数指定的值。用法：GetSett
6、ing(appname,section,key[,default])appname是字符串，表示所设置键的应用程序或工程名称section是字符串，表示所设置键的区域名称，在这个区域里保存注册表项设置key是字符串，表示要保存的注册表项设置的名称default是可选的表达式，如果注册表项设置中没有设置值，则返回缺省值。如果省略，则default取值为长度为零的字符串("")。例如：SaveSettingThisWorkBook.Name,"MySection","MyKey","1973" Debug.PrintGetSetting(ThisWorkBook.Nam
7、e,"MySection","MyKey","0000")【3】DeleteSetting，删除所设置键的区域或注册表项设置。取决于是否提供可选项Key。用法：DeleteSettingappname,section[,key]appname是字符串，表示所设置键的应用程序或工程名称section是字符串，表示所设置键的区域名称，如果只有appname和section，就删除指定的区域连同这个区域下所有的注册表项设置。key是可选字符串，表示要删除的注册表项设置例如：SaveSettingThisWorkBook.Name,"MySection","MyYear","197
8、3" SaveSettingThisWorkBook.Name,"MySection","MyHome","Hunan" DeleteSettingThisWorkBook.Name,"MySection","MyYear" 只删除MyYear项设置。 DeleteSettingThisWorkBook.Name,"MySection" 删除MySection区域并且同时删除剩下的MyHome项设置。 【4】GetAllSettings，获取指定区域下所有的注册项设置，返回一个2维Variant数组。如果程序或区域不存在，返回未初始化的Variant
9、变量。用法：GetAllSettings(appname,section)appname是字符串，表示所设置键的应用程序或工程名称section是字符串，表示所设置键的区域名称例如： dimiasinteger dimvResultasVariant SaveSettingThisWorkBook.Name,"MySection","MyYear","1973" SaveSettingThisWorkBook.Name,"MySection","MyHome","Hunan" vResult=GetAllSettings(ThisWorkbook.name,"My
10、Section") fori=LBound(vResult,1)toUBound(vResult,1) Debug.PrintvResult(i,0)&":"&vResult(i,1) Nexti DeleteSettingThisWorkbook.name,"MySection"
