利用VBA每秒紀錄CPU及RAM使用率的問題

vba excel cpu紀錄 ram紀錄

sam22345 2021-02-03 16:22:21 ‧ 2186 瀏覽

分享至

各位大大好... 如提所示目前卡關進度如下 :
Public Sub CPU_Usage()
Range("A2") = Format(Now(), "yyyy/mm/dd hh:mm:ss")
Dim objWMI As Object
Dim strCls As String, strCPU As String
Set objWMI = GetObject("winmgmts:")
strCls = "Win32_Processor" ' WMI 類別
strCPU = "CPU0" ' 當有多顆 CPU 時 , 可調整為 CPU1 , CPU2 .. 依此類推
Range("B2") = (objWMI.InstancesOf(strCls)(strCls & ".DeviceID=""" & strCPU & """").LoadPercentage) & " %" ' 取得使用率
End Sub
目前已解決利用VBA讀取當前CPU的值並可以記錄在我要的表格中..
但是我想要長期的自動監測..目前卡在兩個問題 :
1.如何按下按鈕後即會從A2紀錄時間一直往下新增...到AXX B2紀錄CPU使用率一直往下新增到BXX...
2.目前只知道能記錄CPU使用率..不知道紀錄RAM的使用率的指令為何

再請教各大高手指教了Q___Q

froce iT邦大師 1 級 ‧ 2021-02-03 18:47:05 檢舉

不是啊，為啥一定要用VBA寫...
現在很多語言都能產xlsx，會好寫很多。

sam22345 iT邦新手 5 級 ‧ 2021-02-03 23:45:38 檢舉

沒辦法..受於開發環境限制(哭

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

1 個回答

海綿寶寶

iT邦大神 1 級 ‧ 2021-02-03 19:59:24

最佳解答

CPU 用的是Win32_Processor裡的 LoadPercentage
RAM 可以用Win32_OperatingSystem裡的
以下四個屬性
TotalVisibleMemorySize
FreePhysicalMemory
TotalVirtualMemorySize
FreeVirtualMemory