使用VBA仅刷新Bloomberg数据的一个工作表

Question

我需要使用VBA刷新Bloomberg数据的一个工作表。 如果我尝试：

Application.Run "RefreshAllWorkbooks"
Application.Run "RefreshAllStaticData"

它将刷新所有工作簿。

您知道如何仅刷新一个工作表吗？

感谢。

Answer 1

如果在给定工作表中有几个查询表，则刷新每个查询表的最简单方法是创建一个for循环。这将刷新Excel第一个工作表中的所有对象：

Sub TestMe()

    Dim jLo As ListObject
    For Each jLo In Worksheets(1).ListObjects
        jLo.QueryTable.Refresh
    Next jLo

End Sub

Answer 2

 Application.Run "RefreshEntireWorksheet"

或

Private Sub refreshBBG(xlWsName As String)
If Not Sheets(xlWsName) Is Nothing Then
    Sheets(xlWsName).Activate
    Application.Run "RefreshEntireWorksheet"
End If
End Sub