Excel VBA 写入 Windows 注册表

在 Excel VBA 中，可以使用 CreateObject 函数来访问系统的注册表并对其进行操作。通过这个方法，我们可以添加、修改或删除注册表中的键值。

添加键值

Dim WSHShell As Object
Set WSHShell = CreateObject("WScript.Shell")

WSHShell.RegWrite "HKEY_CURRENT_USER\Software\YourCompany\YourProgram\YourKey", "YourValue", "REG_SZ"

上面的代码会在 HKEY_CURRENT_USER\Software\YourCompany\YourProgram 中添加一个名为 YourKey 的键值，值为 YourValue，并且数据类型为字符串（REG_SZ）。

修改键值

Dim WSHShell As Object
Set WSHShell = CreateObject("WScript.Shell")

WSHShell.RegWrite "HKEY_CURRENT_USER\Software\YourCompany\YourProgram\YourKey", "YourNewValue", "REG_SZ"

上面的代码会将 HKEY_CURRENT_USER\Software\YourCompany\YourProgram 中名为 YourKey 的键值的值修改为 YourNewValue。

删除键值

Dim WSHShell As Object
Set WSHShell = CreateObject("WScript.Shell")

WSHShell.RegDelete "HKEY_CURRENT_USER\Software\YourCompany\YourProgram\YourKey"

上面的代码会删除 HKEY_CURRENT_USER\Software\YourCompany\YourProgram 中名为 YourKey 的键值。

需要注意的是，对注册表进行操作需要管理员权限，否则可能会出现访问被拒绝等错误。

参考文献：

• MSDN: RegWrite Method
• MSDN: RegDelete Method