1

我正在尝试从网络导入数据，它适用于静态 URL。URL 如下所示：http://www.foo.com/api/v0.9/csv/items/3/1 最后一个数字（此处为“1”）控制页数。由于总共大约有 200 页，我宁愿不重新制作 200 个静态查询，所以我的问题是如何参数化它？

我搜索了互联网，唯一的解决方案是我发现它更改了类似http://www.foo.com/api/v0.9/json/items/3.html?page=1的 URL 但我的 URL 只是工作方式不同，因此解决方案不适用。

谁能告诉我如何在我的情况下对其进行参数化或为我指明正确的方向？

感谢您的时间

4

1 回答 1

1

您可以更改 QueryTable.Connection 属性以指向不同的 URL。这是一个例子

Dim i As Long
Dim qt As QueryTable

For i = 1 To 200
    Set qt = Sheet1.QueryTables(1)
    qt.Connection = "URL;http://www.foo.com/api/v0.9/csv/" & i
    qt.Refresh False


    'Do some stuff with the data
Next i
于 2013-04-11T17:52:04.733 回答