VBA - Excel。通过按钮和提示窗口更改查询连接

Question

我有一个链接到文本文件的查询（扩展名为.eqp） 我在我的pivottable旁边放了一个按钮，该按钮应打开一个提示窗口，并将连接的位置更改为新选择的* .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放在那里，因为我看到当我刚刚更换连接位置时没有发生任何变化。谁能解释我出了什么问题？显示提示，刷新发生，但查询只是空的。空空如也。

提前致谢