运行Excel VBA脚本检测CPU温度时出现Automation Error的原因

这个错误是WMI的无效类错误，核心问题是你代码中查询的MSAcpi_ThermalZoneTemperature类在当前系统中无法被访问，具体原因包括：

• 硬件/BIOS限制：多数消费级主板（尤其是品牌笔记本、入门台式机）的BIOS没有向ACPI接口暴露CPU温度数据，导致WMI中不存在这个类。厂商出于兼容性或设计原因，可能屏蔽了该传感器的WMI访问权限。
• 权限不足：当前运行Office程序的用户没有足够权限访问WMI的ACPI相关类，需要以管理员身份启动Office。
• WMI服务异常：Windows的WMI服务（Winmgmt）出现故障，无法正常加载或查询类。可以通过命令提示符重启服务：

  net stop winmgmt
  net start winmgmt
  

  也可以执行winmgmt /verifyrepository修复WMI存储库。
• 类/命名空间不匹配：部分系统中，CPU温度的WMI类并非MSAcpi_ThermalZoneTemperature，比如Intel平台可能使用Win32_PerfFormattedData_Counters_ThermalZoneInformation，命名空间也可能存在差异。

• 替换WMI类尝试：改用更通用的温度查询类，示例代码：

  Sub GetCPUTempAlternative()
      Dim objWMIService As Object
      Dim colItems As Object
      Dim objItem As Object
      
      Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
      Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_PerfFormattedData_Counters_ThermalZoneInformation")
      
      For Each objItem In colItems
          MsgBox "CPU Temperature: " & objItem.Temperature & " °C"
      Next
  End Sub
  

• 管理员身份运行Office：右键点击Excel/Word等程序，选择「以管理员身份运行」后再执行代码。
• 修复WMI服务：执行上述的WMI重启或存储库修复命令。

内容的提问来源于stack exchange，提问作者dcster