VBA - 检测是否安装了应用程序以使用它

VBA - 检测是否安装了应用程序以使用它

vba
Sub CheckExcelInstallation()
    Dim objWMIService As Object
    Dim colItems As Object
    Dim objItem As Object
    Dim strComputer As String
    
    strComputer = "."
    
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
    Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Product WHERE Name = 'Microsoft Office Excel'")
    
    If colItems.Count > 0 Then
        MsgBox "Microsoft Excel is installed."
    Else
        MsgBox "Microsoft Excel is not installed."
    End If
End Sub