Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Registry-Einträge schreiben, lesen, löschen

Gruppe

Wsh

Problem

Excel/VBA-Beispiel: Registry-Einträge schreiben, lesen, löschen

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: Modul1

Sub RegWrite()
   Dim wsh As New IWshShell_Class
   With wsh
      .RegWrite "HKCU\Software\HWH\", "Dies ist eine Voreinstellung"
      .RegWrite "HKCU\Software\HWH\MyString", "Eine Zeichenfolge"
      .RegWrite "HKCU\Software\HWH\MyNumString", 12345
      .RegWrite "HKCU\Software\HWH\MyDwordValue", 12345, "REG_DWORD"
      .RegWrite "HKCU\Software\HWH\MyBinaryValue", 12345, "REG_BINARY"
   End With
   Set wsh = Nothing
End Sub

Sub RegRead()
   Dim wsh As New IWshShell_Class
   With wsh
   MsgBox .RegRead("HKCU\Software\HWH\") & vbLf & _
      .RegRead("HKCU\Software\HWH\MyString") & vbLf & _
      .RegRead("HKCU\Software\HWH\MyNumString") & vbLf & _
      .RegRead("HKCU\Software\HWH\MyDwordValue")
   End With
   Set wsh = Nothing
End Sub

Sub RegDelete()
   Dim wsh As New IWshShell_Class
   wsh.RegDelete "HKCU\Software\HWH\"
   '    wsh.RegDelete "HKCU\Software\HWH\MyString"
   '    wsh.RegDelete "HKCU\Software\HWH\MyNumString"
   '    wsh.RegDelete "HKCU\Software\HWH\MyDwordValue"
   '    wsh.RegDelete "HKCU\Software\HWH\MyBinaryValue"
   '    wsh.RegDelete "HKCU\Software\HWH\"
   Set wsh = Nothing
End Sub