WScript.Shell



Public Sub GetRegistry_Values() 
Dim WshShell As Object
Set WshShell = CreateObject("WScript.Shell")
    
Dim Path As String
    Path = "HKEY_CURRENT_USER\software\microsoft\office\16.0\excel\options\open1"

    MsgBox WshShell.RegRead(Path)
End Sub


© 2020 Better Solutions Limited. All Rights Reserved. © 2020 Better Solutions Limited TopPrevNext