Excel中VBA编程学习笔记（十三）--注册表操作

使用函数GetAllSettings(aooName,section)可以获取程序或者工程appName下的section区域的所有注册表项及值；

使用函数SaveSetting appName,section,key,value为注册表项设置值；

GetSetting(appName,section,key [,default])返回指定注册表项的值；

DeleteSetting appName,section [,key]删除注册表项，如果不带key参数则删除整个区域的注册表项。

【例1】

Sub test()

    Const appName = "ExcelBookA"

    Const section = "UsedInformation"

    Const key1 = "第一次打开时间"

    Const key2 = "上次打开时间"

    Const key3 = "打开总次数"

    Dim i%

    Dim arr As Variant

    Dim str