excel - 如何在 Excel 2016 VBA 中读取已用或可用内存量

Question

我似乎找不到返回正在使用的内存或可用内存的 VBA 命令。在 Excel 2013 中有 Application.MemoryUsed 但当我在 Excel 2016 中尝试时，无论我是否使用，都会出现“类型不匹配”

    dim myVar      as variant
      myvar = Application.MemoryUsed

或

    MsgBox CStr(Application.MemoryUsed)

这可能是一件简单的事情。或者？

Answer 1

提出问题后不久我就找到了答案。

在这里找到:https://social.msdn.microsoft.com/Forums/office/en-US/e3aefd82-ec6a-49c7-9fbf-5d57d8ef65ca/check-size-of-excelexe-in-memory?forum=exceldev

   Declare Function GetCurrentProcessId Lib "kernel32" () As Long

   Function GetMemUsage()

     ' Returns the current Excel.Application
     ' memory usage in MB

     Set objSWbemServices = GetObject("winmgmts:")
     GetMemUsage = objSWbemServices.Get( _
       "Win32_Process.Handle='" & _
       GetCurrentProcessId & "'").WorkingSetSize / 1024

     Set objSWbemServices = Nothing

   End Function

感谢 Anonimista!