如何通过VBA仅刷新Excel中的单个工作表？

嘿，我懂你现在的困扰——想要定时刷新工作簿里的某一个特定工作表，而不是触发整个工作簿的全部刷新。你的现有代码用了ThisWorkbook.RefreshAll，这个方法确实会一次性刷新所有工作表的查询、连接和透视表，咱们来调整代码实现精准刷新：

修改后的VBA代码 #

Sub my_onTime()
    Application.OnTime Now + TimeValue("00:00:05"), "refresh_SpecificSheet"
End Sub

Sub refresh_SpecificSheet()
    Dim ws As Worksheet
    ' 替换成你要刷新的工作表名称
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 刷新工作表中的所有查询表（QueryTables）
    If ws.QueryTables.Count > 0 Then
        Dim qt As QueryTable
        For Each qt In ws.QueryTables
            qt.Refresh BackgroundQuery:=False ' 设为False会等待刷新完成再继续
        Next qt
    End If
    
    ' 刷新工作表中的所有列表对象（比如Power Query生成的表格）
    If ws.ListObjects.Count > 0 Then
        Dim lo As ListObject
        For Each lo In ws.ListObjects
            If lo.QueryTable Is Not Nothing Then
                lo.QueryTable.Refresh BackgroundQuery:=False
            ElseIf lo.ListObjectConnection Is Not Nothing Then
                lo.ListObjectConnection.Refresh
            End If
        Next lo
    End If
    
    ' 继续定时循环
    my_onTime
End Sub

关键说明 #

• 指定目标工作表：把代码里的"Sheet1"替换成你实际需要刷新的工作表名称，比如"销售数据"
• 分类型刷新：
  • QueryTables：针对传统的外部数据查询表
  • ListObjects：针对通过Power Query或表格功能创建的结构化表格，这类对象可能通过QueryTable或直接的ListObjectConnection来刷新
• BackgroundQuery参数：设为False会强制等待刷新完成再执行后续代码，如果允许后台刷新可以改成True

额外补充 #

如果你的工作表里还有数据透视表需要刷新，可以在代码里添加这段：

' 刷新工作表中的所有数据透视表
If ws.PivotTables.Count > 0 Then
    Dim pt As PivotTable
    For Each pt In ws.PivotTables
        pt.RefreshTable
    Next pt
End If

内容的提问来源于stack exchange，提问作者Josh bragen