VBA宏调用上的运行时错误-2147467259（80004005）

Question

我使用了本网站的代码：

https://dl.dropboxusercontent.com/u/26587283/ppRefresh.bas

在Excel电子表格中创建一个按钮，用于刷新powerpivot数据。 不幸的是，它抛出了运行时错误-2147467259（80004005）。 我的powerpivot数据中有11个表。当我删除其中一个时，一切都很好。

Answer 1

我不知道你是否还有这个问题。但是尝试增加超时，可能需要超过30秒来刷新功率数据透视数据。

更改

Private Function doXMLA(cnn, databaseID As String, Optional dimensionID As String = "", Optional timeout As Long = 30)

要

Private Function doXMLA(cnn, databaseID As String, Optional dimensionID As String = "", Optional timeout As Long = 300)

例如