读取电脑注册表信息问题

haiyang3

请教下如何使用VBA读取以下路径中注册表EDID信息并保存成TXT文件
注册表地址如下：
计算机\HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Enum\DISPLAY\LGD061A\1&8713bca&0&UID0\Device Parameters\EDID

wanghan519

有搜了一下，vba里可以用wscript.shell

1. Public Sub test()
   
2.     Dim ws As Object
   
3.     Set ws = CreateObject("wscript.shell")
   
4.     MsgBox ws.regread("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\CommonFilesDir")
   
5. End Sub

复制代码

powershell里可以当成文件一样访问：

tspliu

这样行不行？

smsn

Sub testEXP()
    Shell "regedit /s /e d:\test.txt HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Enum\DISPLAY\LGD061A\1&8713bca&0&UID0\Device Parameters\EDID"
End Sub

haiyang3

smsn 发表于 2022-11-17 12:28
Sub testEXP()
    Shell "regedit /s /e d:\test.txt HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Enum ...

你好，显示无效的过程调用或参数

tspliu

当然也可以利用windows api 就是使用起来需要注意参数的格式问题，不是很友好。

smsn

haiyang3 发表于 2022-11-17 13:35
你好，显示无效的过程调用或参数

我这正常，文件在D盘下，你有D盘吗？你什么系统?
Sub testEXP()
    Shell "regedit /s /e d:\test.txt HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Enum\DISPLAY\LGD061A\1&8713bca&0&UID0\Device Parameters\EDID"
End Sub
键名改了

tanglf188

用注册表的导出命令就可以了，利用函数就是自虐了，win10+office2021亲测通过，如果有同名文件会有一个DOS窗口，按y就行了，如果为空请检查键值是否存在，代码如下：
Sub Regii()
    Dim sCmd As String
    sCmd = "reg export " + Chr(34) + "\HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Enum\DISPLAY\LGD061A\1&8713bca&0&UID0\Device Parameters\EDID" + Chr(34) + " d:\test.reg"
    Shell sCmd
End Sub

tanglf188

haiyang3 发表于 2022-11-17 13:35
你好，显示无效的过程调用或参数

Shell 后面是"....",而里面的键值也要带""所以就这样了，用chr(34)转换一下就可以了