非活动表范围内的查询表

Question

我一直在ActiveSheet中QueryTables结果，但现在我想将它们放在另一张纸上。 在下面的代码中，注释掉的行是我原来的，下面的"with"行是我的新尝试。

Dim QuerySheet As WorkSheet
Dim ttt As Integer
Set QuerySheet = ActiveWorkbook.Worksheets("ZZ$Temp$")
QuerySheet.Cells.Clear
QuerySheet.Cells(1, 1) = 1234
QuerySheet.Cells(2000, 50) = 5678
ttt = QuerySheet.Cells(1, 1)
' With ActiveSheet.QueryTables.Add(Connection:="URL;" & qurl, Destination:=DataSheet.Range(Cells(row_stock + iMax, 27), Cells(row_stock + iMax + 199, 27)))
With QuerySheet.QueryTables.Add(Connection:="URL;" & qurl, Destination:=QuerySheet.Range(Cells(row_stock + iMax, 27), Cells(row_stock + iMax + 199, 27)))
    .BackgroundQuery = True
    .TablesOnlyFromHTML = False
    .Refresh BackgroundQuery:=False
    .SaveData = True
End With

我知道工作表存在，我在1, 1和2000, 50定义内容。

我收到错误Run-time error '1004' Method 'Range of object '_worksheet' failed.

我还尝试激活QuerySheet并使用原始With。

我如何让QueryTables把东西放进QuerySheet？

Answer 1

您需要在某处设置 QuerySheet。仅仅Dim是不够的。加

 Dim QuerySheet As WorkSheet
 set QuerySheet = Sheets("querysheet")

（或任何工作表的名称）在您的代码之前。

然后，您必须将以下内容更改为仅引用查询表（适用于查询表的所有"单元格"和"范围"用途）。

With QuerySheet.QueryTables.Add(Connection:="URL;" & qurl, Destination:=QuerySheet.Range(QuerySheet.Cells(row_stock + iMax, 27), QuerySheet.Cells(row_stock + iMax + 199, 27)))

Answer 2

我发现以下工作。 是的，所有工作表引用都是必需的！

With Sheets("ZZ$Temp$").QueryTables.Add(Connection:="URL;" & qurl, Destination:=Sheets("ZZ$Temp$").Range(Sheets("ZZ$Temp$").Cells(row_stock + iMax, 27), Sheets("ZZ$Temp$").Cells(row_stock + iMax + 199, 27)))