Excel VBA 使用选定的工作表

Question

这里是 Excel VBA 新手。我只需要一个宏来刷新我正在查看的单张纸上的查询。我已经有了刷新宏，但我总是必须指定要刷新的工作表名称。是否可以让宏在我正在查看的任何工作表上运行？这是当前状态的宏:

Sub Refresh_Query()
Sheets("Sheet1").Select
Range("B6").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
End Sub

Answer 1

您想使用ActiveSheet.Name ，如:

Sub Refresh_Query()
    Sheets(ActiveSheet.Name).Select
    Range("B6").Select
    Selection.QueryTable.Refresh BackgroundQuery:=False
End Sub