《VBA的注册表读写函数.docx》由会员分享，可在线阅读，更多相关《VBA的注册表读写函数.docx（3页珍藏版）》请在三一文库上搜索。
1、VBA的注册表读写函数2010-12-26 21:15:21| 分类： Office / VBA |标签：|字号大中小 订阅VBA有四个内置函数让我们方便的操作注册表，但它们有一个缺点就是只能处理 注册表的特定部分：【1】SaveSetting,顾名思义，这个函数就是让你在上面的注册表里里保存数值。用法： SaveSetting appname, section, key, settingappname是字符串，表示所设置键的应用程序或工程名称section是字符串，表示所设置键的区域名称，在这个区域里保存注册表项设置key是字符串，表示要保存的注册表项设置的名称setting 是任何类型的表
2、达式，表示要保存的注册表项设置的值例如：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是字符串，表示所设置键的应用程序或工程名称secti
3、on是字符串，表示所设置键的区域名称，在这个区域里保存注册表项设置key是字符串，表示要保存的注册表项设置的名称default是可选的表达式，如果注册表项设置中没有设置值，则返回缺省值。如果省略，则default取值为长度为零的字符串(巧。例如：SaveSetting ThisWorkBook.Name,MySection,MyKey,1973Debug.Print GetSetting(ThisWorkBook.Name,MySection,MyKey,0000)【3】DeleteSetting ,删除所设置键的区域或注册表项设置。取决于是否提供可选项Key。用法： DeleteSettin
4、g appname, section keyappname是字符串，表示所设置键的应用程序或工程名称section是字符串，表示所设置键的区域名称，如果只有appnameffi section，就删除指定的区域连同这个区域下所有的注册表项设置。key是可选字符串，表示要删除的注册表项设置例如：SaveSetting ThisWorkBook.Name,MySection,MyYear,T973”SaveSetting ThisWorkBook.Name,MySection,MyHome,HunanDeleteSetting ThisWorkBook.Name,MySection,MyYear只
5、删除 MyYear项设置。DeleteSetting ThisWorkBook.Name,MySection删除 MySection 区域并且同时删除剩下的MyHom颐设置。【4】GetAllSettings，获取指定区域下所有的注册项设置，返回一个2维Variant数组。如果程序或区域不存在，返回未初始化的 Variant变量。用法：GetAllSettings(appname, section)appname是字符串，表示所设置键的应用程序或工程名称section是字符串，表示所设置键的区域名称例如：dim i as integerdim vResult as VariantSaveSet
6、ting ThisWorkBook.Name,MySection,MyYear,1973SaveSetting ThisWorkBook.Name,MySection,MyHome,HunanvResult=GetAllSettings(ThisWorkbook.name,MySection)for i=LBound(vResult,1) to UBound(vResult,1)Debug.Print vResult(i,0) & : & vResult(i,1)Next iDeleteSetting ThisWorkbook.name,MySection（注：专业文档是经验性极强的领域，无法思考和涵盖全面，素材和资料部分 来自网络，供参考。可复制、编制，期待你的好评与关注）