excelvba信息获取和处理-excel vba获取电脑显卡信息

利用vba代码，我们可以做很多电子表格外的事情。

也可以轻松获取系统的相关信息。

这里以获取显卡信息为例，利用WMI对象可以取得所有信息

详细源码：

Sub Xiankainfo()
    On Error Resume Next
    Dim ye
    Dim yexj00
    Set yexj00 = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_VideoController")
    For Each ye In yexj00
    MsgBox " 型 号: " & ye.VideoProcessor & vbCrLf & _
    " 厂 商: " & ye.AdapterCompatibility & vbCrLf & _
    " 名 称: " & ye.Name & vbCrLf & _
    " 状 态: " & ye.Status & vbCrLf & _
    " 显 存: " & (ye.AdapterRAM  1024000) & "MB" & vbCrLf & _
    "驱 动 (dll): " & ye.InstalledDisplayDrivers & vbCrLf & _
    "驱 动 (inf): " & ye.infFilename & vbCrLf & _
    " 版 本: " & ye.DriverVersion

    Next
End Sub

获取效果