vba操作注册表办法

​Sub testReg()

    Dim vKeys As Variant
   
   '创建注册表项
    SaveSetting "MyAppTest","General", "MyApp_Name", "完美Excel"
    SaveSetting "MyAppTest","General", "MyApp_Ver", "1.0"
    SaveSetting "MyAppTest","General", "MyApp_Date", "2019/10/17"
   '打印注册表项值
    PrintRegSettings
   
   '更新注册表项
    SaveSetting "MyAppTest","General", "MyApp_Ver", "1.1"
    SaveSetting "MyAppTest","General", "MyApp_Date", "2019/10/20"
   '打印注册表项值
    PrintRegSettings
   
   '获取并打印所有注册表项值
    vKeys =GetAllSettings("MyAppTest", "General")
    PrintAllSettings vKeys
   
   '删除所有注册表项
    DeleteSetting "MyAppTest","General", "MyApp_Name"
    DeleteSetting "MyAppTest","General", "MyApp_Ver"
    DeleteSetting "MyAppTest","General", "MyApp_Date"
    PrintRegSettings
End Sub
 
Sub PrintRegSettings()
    Dim str As String
   
    On Error Resume Next
    str = "应用程序名称:" & _
        GetSetting("MyAppTest","General", "MyApp_Name") & _
        vbCrLf & "应用程序版本:" &_
        GetSetting("MyAppTest","General", "MyApp_Ver") & _
        vbCrLf & "更新日期:" &_
        GetSetting("MyAppTest","General", "MyApp_Date")
   
    MsgBox str
End Sub
 
Sub PrintAllSettings(vSettings As Variant)
    Dim i As Integer
    If IsArray(vSettings) Then
        For i = 0 To UBound(vSettings)
            Debug.Print vSettings(i, 0) &": " & _
                vSettings(i, 1)
        Next i
    End If
End Sub