0

我认为这里的问题与在新 Excel 应用程序中打开的新工作簿有关。这是代码的一部分，是错误的。如果更改nb.ActiveSheet.QueryTables.Add为ActiveSheet.QueryTables.Add一切正常（但在当前工作簿中，而不是在 nb 中）。它必须在新工作簿中执行，而不是在当前工作簿中执行。

Dim app As New Excel.Application, nb As Excel.Workbook
    Set nb = app.Workbooks.Add
    With nb.ActiveSheet.QueryTables.Add(Connection:= _
         "URL; http://www.example.com", _
             Destination:=Range(Cells(2, 2), Cells(57, 3)))
    End With
4

1 回答 1

1

我知道问题出在哪里，就在这里：

Destination:=Range(Cells(2, 2), Cells(57, 3)))

如果您没有明确指定要使用的工作簿，Range() 将始终引用 ActiveWorkbook 的 ActiveSheet。所以把它改成：

Destination:=nb.Worksheets(1).Range(nb.Worksheets(1).Cells(2, 2), nb.Worksheets(1).Cells(57, 3)))

那应该这样做。

编辑：我应该提到同样适用于 Cells()，所以我也更新了这些。

于 2015-02-02T18:29:37.923 回答