Question

我正在尝试从网络导入数据，它适用于静态网址。该网址如下所示：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工作方式不同，所以解决方案不适用。

任何人都可以告诉我如何在我的情况下进行参数化或指向正确的方向吗？

感谢您的时间

Answer 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

Excel Web查询中的参数

1 个答案: