Question

我创建了一个ActiveX按钮并在单击下面写下代码....但是在这里我面临着一行“对象_worksheet的方法范围”错误。 2点击按钮时。

    Sheets("sheet1").Select
    Range("Query1[#Headers]").Select
    Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
    Sheets("sheet2").Select
    Range("H15").Select
    ActiveSheet.PivotTables("PivotTable3").PivotCache.Refresh   
    Range("Query2[#Headers]").Select
    Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False

Answer 1

对于ActiveX对象，代码将位于工作表模块中。在这样的模块中，任何Range / Cells调用都将引用包含代码的工作表，除非您另有指定，但您没有在此处。无论如何，无需在此处选择或激活：

Sheets("sheet1").ListObjects("Query1").QueryTable.Refresh BackgroundQuery:=False
    Sheets("sheet2").PivotTables("PivotTable3").PivotCache.Refresh   
    Sheets("Sheet2").ListObjects("Query2").QueryTable.Refresh BackgroundQuery:=False

对象_worksheet的方法范围

1 个答案: