Vba 用于刷新特定工作表中的外部数据的VBS文件

我想创建一个.VBS文件来刷新SPCIC工作表上的表。此表的数据来自外部数据源（MS查询）。通常，我只需右键单击表格并进入刷新。这是我想在.VBS文件中复制的内容。这可能吗

我在Stackoverflow（和Google）上对此进行了研究，但我没有幸运地找到特定工作表的代码，只是找到了工作簿的代码。我想为具体的工作表做这个

我曾研究过如何通过.VBS访问Excel工作表，到目前为止，我掌握了以下内容：

Dim objXLApp, objXLWb, objXLWs

Set objXLApp = CreateObject("Excel.Application")
Set objXLWb = objXLApp.Workbooks.Open("C:\Test\Test.xlsx")

Set objXLWs = objXLWb.Sheets(6)

' This is the code I added to solve my problem
For Each qry In objXLWs.QueryTables
   qry.Refresh(false)
Next
objXLWs.Calculate
' End

objXLWb.Save
objXLWb.Close (False)

Set objXLWs = Nothing   
Set objXLWb = Nothing

objXLApp.Quit
Set objXLApp = Nothing

MsgBox "Done"

现在，“objXLWs.Refresh”不起作用了。RefreshAll、RefreshAllData等也不支持。我得到“对象不支持此属性或方法”。我也尝试了。Calculate，但在这种情况下不起作用。我想知道我是否遗漏了一些东西，或者我是否必须以不同的方式重新构造代码

任何指导都将不胜感激

谢谢

马克

试试类似的方法

---

objXLWb.Connections（“YourConnectionName”）.Refresh

我做了更多的研究，我想我找到了。我刷新了查询，然后使用Calculate刷新工作表。在此之后，工作表将更新。我在上面编辑了我的代码：

code

针对objXLWs中的每个qry.QueryTables qry.Refresh（false）Next objXLWs.Calculate

code

谢谢你的建议。你试过我给出的建议了吗？实际上我是针对另一个与此问题不同的问题做的，它起作用了。你认为为什么它对这个不起作用？你犯了什么错误？