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

我使用了这个网站的代码：

在excel电子表格中创建刷新powerpivot数据的按钮。 不幸的是，它抛出了一个运行时错误——2147467259（80004005）。

---

我的powerpivot数据中有11个表。当我删除其中一个时，一切正常。

我不知道您是否仍然存在此问题。但请尝试增加超时时间，刷新power pivot数据可能需要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)