Working with the Registry Using the VBA Registry Functions : Registry « Windows API « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. Windows API
  3. Registry

Working with the Registry Using the VBA Registry Functions

 
Sub ExperimentWithRegistry() 
    Dim vaKeys As Variant 
    ' create new registry entries  
    SaveSetting "XLTest", "General", "App_Name", "XLTest" 
    SaveSetting "XLTest", "General", "App_Version", "1.0.0" 
    SaveSetting "XLTest", "General", "App_Date", "10/11/2003" 

    PrintRegistrySettings 
    SaveSetting "XLTest", "General", "App_Version", "1.0.1" 
    PrintRegistrySettings 
    vaKeys = GetAllSettings("XLTest", "General") 
    PrintAllSettings vaKeys 
    DeleteSetting "XLTest", "General", "App_Name" 
    DeleteSetting "XLTest", "General", "App_Version" 
    DeleteSetting "XLTest", "General", "App_Date" 
    PrintRegistrySettings 
End Sub 
Sub PrintRegistrySettings() 
    On Error Resume Next 
    Debug.Print "Application Name: " & GetSetting("XLTest", "General", "App_Name") 
    Debug.Print "Application Version: " & GetSetting("XLTest", "General", "App_Version") 
    Debug.Print "Application Date: " & GetSetting("XLTest", "General", "App_Date") 
End Sub 
Sub PrintAllSettings(vaSettings As Variant) 
    Dim nItem As Integer 

    If IsArray(vaSettings) Then 
        For nItem = 0 To UBound(vaSettings) 
            Debug.Print vaSettings(nItem, 0) & ": " & _ 
                vaSettings(nItem, 1) 
        Next 
    End If 
End Sub








Related examples in the same category

1.Reads a value from the Windows Registry
2.Write a value from the Windows Registry
3.Using RegQueryValueEx to Read Registry Information
4.Using RegSetValueEx to Write Information to the Registry