Как в VBA узнать сколько памяти занимает процесс Excel?

Как в VBA узнать сколько памяти занимает процесс Excel?, контролировать объем занимаемой памяти

Пользователь

Сообщений: 27 Регистрация: 01.01.1970

15.10.2015 17:54:22

При обновлении сводной таблицы на базе большой таблицы данных, Excel 2013 иногда загибается. Происходит это когда процесс Excel начинает занимать в оперативке больше одного с лишним Гбайта. Использую файлы формата xlsb. Их размеры достигают 90 Мбайт. Обновляю сводники из VBA, перед этим происходит еще ряд действий. Хотел бы в VBA перед обновлением сводника контролировать размер занимаемой Excel-ем оперативки и принимать решение - обновлять или нет. Вопрос: Как в VBA узнать сколько памяти занимает процесс Excel?

Казанский Пользователь Сообщений: 8839 Регистрация: 11.01.2013	#2 15.10.2015 19:21:36 Возьмите нужное отсюда: http://www.vbforums.com/showthread.php?795465-VB6-Get-information-about-memory-usage

Игорь

Пользователь

Сообщений: 3695 Регистрация: 23.12.2012

15.10.2015 19:57:48

Казанский, по вашей ссылке код выдает много лишнего, и не компилируется.

Поискал в инете - нашел вариант намного проще:

Код

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 / 1024
    Set objSWbemServices = Nothing
End Function
 
Sub Test()
    MsgBox "Excel использует " & Round(GetMemUsage, 1) & " MB оперативки"
End Sub

в этом коде вместо WorkingSetSize можно поставить и другое свойство, - например, PagefileUsage

Насчет корректности выводимых значений можно почитать здесь:
http://www.programmersforum.ru/showthread.php?p=889806

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Виктор Ч Пользователь Сообщений: 27 Регистрация: 01.01.1970	#4 16.10.2015 13:05:01 Спасибо! Порядок занятой оперативной памяти определяет вполне себе. Проблема можно сказать решена. ... Однако возник еще вопрос)): Вопрос не по теме, удален [МОДЕРАТОР]

Читают тему