(1条消息) 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 strInfo$

arr = GetAllSettings(appName, section)

If Not IsArray(arr) Then       '如果注册表项存在则返回一个数组

SaveSetting appName, section, key1, Now()

SaveSetting appName, section, key2, "没有记录"

SaveSetting appName, section, key3, 0

End If

i = GetSetting(appName, section, key3)

SaveSetting appName, section, key3, i + 1

arr = GetAllSettings(appName, section)

strInfo = "以下是当前工作薄的使用情况:" & vbCr

For i = LBound(arr) To UBound(arr)

strInfo = strInfo & vbCr & arr(i, 0) & ":" & arr(i, 1)

Next

strInfo = strInfo & vbCr & vbCr & "要清除记录信息吗?"

If MsgBox(strInfo, vbDefaultButton1 + vbYesNo) = vbYes Then

DeleteSetting appName

Else

SaveSetting appName, section, key2, Now

End If

End Sub

打开注册表可以看到写入的注册表信息