Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
564to568
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
564to568
564to568
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Regedit

Regedit
13.02.2005 12:26:23
Peter
hallo VBA Freunde,
weiß jemand wie man Einträge aus der Regedit(W2k) auslesen kann ?
Danke im voraus
Peter

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Regedit
Ramses
Hallo
aus der Regedit kannst du gar nichts auslesen :-)
Nur aus der Registry, ... und das geht aus der gesamten Registry NUR mit dem WSH.

Sub Create_Specific_RegKey()
'by Ramses
Dim myWSH As Object, myNewRegKey As String
Dim myRegResKey As String, myRegToWriteKey As String
Set myWSH = CreateObject("WScript.Shell")
'Es wird ein spezifischer Schlüssel angelegt, der normalerweise
'von EXCEL aus mit Get- und SaveSetting erreicht werden kann
'Mit WSH kann jedoch die gesamte Registry beschrieben,
'verändert und gelesen werden
'Hier wird der Unterschlüssel DemoWSH Script mit Unterschlüssel Setting
'und dem Wert "Wert1" erstellt
myNewRegKey = "HKEY_CURRENT_USER\Software\VB and VBA Program Settings\DemoWSH Script\Setting\Wert1"
'Dem zu erstellen Schlüssel wird der Wert 100 zugewiesen
myWSH.regWrite myNewRegKey, "100"
End Sub


Sub Read_Specific_RegKey()
Dim myWSH As Object, myReadRegKey As String
Dim myRegResKey As String
Set myWSH = CreateObject("WScript.Shell")
'Es muss auch der Unter-Eintrag im Key angegeben werden
'hier die 1
myReadRegKey = "HKEY_CURRENT_USER\Software\VB and VBA Program Settings\TestAnw\StartUp\1"
myRegResKey = myWSH.regread(myReadRegKey)
MsgBox "Aktueller Wert:" & myRegResKey
End Sub


Sub Change_Specific_RegKey()
Dim myWSH As Object, myReadRegKey As String
Dim myRegResKey As String, myRegToWriteKey As String
Set myWSH = CreateObject("WScript.Shell")
'Es muss auch der Unter-Eintrag im Key angegeben werden
'hier die 1
myReadRegKey = "HKEY_CURRENT_USER\Software\VB and VBA Program Settings\TestAnw\StartUp\1"
myRegResKey = myWSH.regread(myReadRegKey)
MsgBox "Aktueller Wert:" & myRegResKey
myRegToWriteKey = InputBox("Neuen Wert bitte eintragen:", "Registry Wert ändern", myRegResKey + 10)
If Not IsNumeric(CDbl(myRegToWriteKey)) Then
MsgBox "Der Wert muss eine Zahl sein"
Exit Sub
End If
myWSH.regWrite myReadRegKey, myRegToWriteKey
End Sub

Gruss Rainer
Anzeige
AW: Regedit
13.02.2005 14:51:56
Peter
Danke Rainer,
ich werde das mal in aller Ruhe abarbeiten.
regedit klar :-( ,...... ich meine natürlich die Registry
Gruß Peter

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige