VBA – Excel。 通过button和提示窗口更改查询连接

我有一个查询链接到一个文本文件（扩展名为.eqp）我放在我的数据透视表旁边的button，这应该打开一个提示窗口，并将连接的位置更改为新的选定* .eqp文件。 所有其他查询设置应保持不变。

Private Sub CommandButton3_Click() Dim Ret Ret = Application.GetOpenFilename("EQP Files (*.eqp), *.eqp") If Ret <> False Then Sheets("CalculationSheet").QueryTables(1).Connection = "TEXT;" & Ret End If ActiveWorkbook.RefreshAll End Sub 

我也把refreshAll放在那里，因为当我刚刚replace连接位置时，我看不到有什么变化。 任何人都可以解释我出了什么问题？ 提示出现，刷新发生，但查询只是空的。 空空如也。

提前致谢