我有一个在 Power-BI 服务上发布的 OLAP 数据模型。我使用构建了一个报告CUBE公式。我需要根据以下内容进行一些隐藏和显示列CUBEVALUE结果。我需要打印大量切片器选择的 PDF。当然，我需要我的 VBA Sub 来等待所有CUBE配方完成令人耳目一新。
我知道Application.CalculateUntilAsyncQueriesDone方法会让我等到刷新完成。然而，在Excel 2016中，它似乎使Excel崩溃。它只是无限期地等待。
Excel版本：适用于 Microsoft 365 MSO 的 Microsoft Excel (16.0.13001.20254) 64 位
我在 Power-Query 查询中遇到了同样的问题，但是设置BackgroundQuery所有查询的属性FALSE打电话之前Application.CalculateUntilAsyncQueriesDone解决了崩溃问题。不幸的是，BackgroundQuery属性不能设置为FALSE用于 OLAP 数据连接。
以下技术也不起作用：
Do Until Application.CalculationState = xlDone
Loop
刷新开始有点晚，在此期间Application.CalculationState is xlDone并且代码不会等待刷新开始。如果我使用Application.Wait方法中，查询也等待刷新。
这只是在我的电脑上吗？或者，你们所有人都面临以下问题吗？Application.CalculateUntilAsyncQueriesDone？
您是如何解决这个问题的？
我一直遇到类似的问题，但我所有问题的共同点是Application.Calculation被设置为xlCalculationManual when CalculateUntilAsyncQueriesDone被触发。在此之前，我尝试过一系列的Calculate, CalculateFull, and CalculateFullRebuild无济于事。
您可能需要实现类似以下内容才能使脚本正常工作：
With Application
.Calculation = xlCalculationAutomatic
.CalculateUntilAsyncQueriesDone
Do Until .CalculationState = xlDone
Loop
.Calculation = xlCalculationManual
End With
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
