连接刷新所有“System.OutOfMemoryException”。手动刷新查询=工作

Question

我有一个Excel .xlsm，其中37个工作簿查询被组织成组。当我单击“刷新所有”连接时，我得到一个“System.OutOfMemoryException”。

但是，如果我一次手动刷新一个组，我不会收到错误。

我创建了一个按组刷新listobject项的宏。不幸的是，我必须手动触发宏，因为我无法使用VBA监听器准确知道查询何时完成加载。

有没有办法“刷新所有”连接而不会收到“System.OutOfMemoryException”？

注意：我写了宏，但我无法检测宏何时完成加载并刷新屏幕。

 - DoEvents
 - CalculateUntilAsyncQueriesDone
 - EnableLivePreview = False
 - Application Calculation manual

注意：我无法修改RAM等计算机硬件或移至64位版本。