作者：绿色风
分类：
时间：2022-08-17
浏览：161
楼主
水星钓鱼 |
Q：如何在代码中设置使得Web查询的结果都返回了才继续执行下一条语句？
A：如以下代码：
- Sub xyf()
- Dim sURL As String
- Dim lRow As Long
- '创建要打开的URL
- sURL = "url;http://www.500wan.com/static/public/dlc/txt/opencode/45.txt"
- With Sheet1.QueryTables
- '创建一个Web查询，并将查询结果导入以A2单元格为起始位置的区域内。
- .Add Connection:=sURL, Destination:=Range("a2")
- With .Item(1)
- '设置导入第2个表
- .WebTables = 2
- '导入表
- .Refresh
- lRow = Range("a65535").End(xlUp).Row
- '删除结果区域中A102到区域末尾的所有内容
- Range("a102" & ":c" & lRow).Clear
- End With
- End With
- End Sub
由于Web查询返回一个QueryTable对象需要时间，而代码的运行远小于这个时间，所以这两条语句
- lRow = Range("a65535").End(xlUp).Row
- Range("a102" & ":c" & lRow).Clear
将在结果还未返回到工作表中就已经执行完了。
所以需要修改代码，使得所有数据都查询完毕了再执行这两条语句。
修改后的代码如下：、
- Sub xyf()
- Dim sURL As String
- Dim lRow As Long
- '创建要打开的URL
- sURL = "url;http://www.500wan.com/static/public/dlc/txt/opencode/45.txt"
- With Sheet1.QueryTables
- '创建一个Web查询，并将查询结果导入以A2单元格为起始位置的区域内。
- .Add Connection:=sURL, Destination:=Range("a2")
- With .Item(1)
- '设置导入第2个表
- .WebTables = 2
- '导入表
- .Refresh (False)
- lRow = Range("a65535").End(xlUp).Row
- '删除结果区域中A102到区域末尾的所有内容
- Range("a102" & ":c" & lRow).Clear
- End With
- End With
- End Sub
QueryTable的Refresh方法，当用False做参数时，表示只有当所有的数据都返回到工作表时，才执行下一条语句。 |
2楼
kevinchengcw |
收下了，水星继续！ |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一