VBA-刷新工作簿中以外的所有表

Question

我有一个工作簿，其中包含源表(在工作表a中(和电源查询表(在表C&D中(。使用ActiveWorkbook时出现问题。RefreshAll是因为每当我通过复制/粘贴替换源数据时，该表也会被刷新，并且新数据会丢失。假设我有4张工作表(A、B、C、D(，只想更新C&D.以下是我试图实现但没有成功的东西：

Sub Macro()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "A" Or "B" Then
Range("A1").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
End If
Next ws
End Sub

或者，如果有一种方法只刷新工作簿中的电源查询表，那也可以。

Answer 1

试试这个：

Sub Macro()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "A" And ws.Name <> "B" Then
ws.Range("a1").ListObject.QueryTable.Refresh BackgroundQuery:=False
End If
Next ws
End Sub