当通过按钮运行宏时，通过VBA进行的Power Query刷新失败

Question

我使用VBA刷新查询，但似乎一切正常：手动刷新查询，但是当我从VBA编辑器运行宏时，它也可以正常工作。

但是，当我从按钮（只是分配了宏的形状）运行此宏时，查询会引发刷新错误：

“意外错误 有些不对劲。如果问题仍然存在，请重新启动Excel。“

最有趣的是查询刷新的事实。对于我来说，只是错误行为是一个谜。

以下是刷新连接的实际内容：

Set tWb = ThisWorkbook
Set sapExtractWs = tWb.Worksheets("SAP Extract")

With sapExtractWs.ListObjects("PTP_SAP_Extract").QueryTable
    If .BackgroundQuery = False Then
        .Refresh

        Else
        .BackgroundQuery = False
        .Refresh
    End If

End With

我尝试更改路径，更改按钮，尝试其他方式刷新代码中的查询。

无论我是从VBA编辑器运行宏还是通过单击按钮运行宏，我都希望显示错误。 理想情况下，我希望此错误消失，尤其是一切正常。