VBA在这个Web srape代码中无限运行。如何设置它等到完成第一部分？

Question

这是代码的一部分，我相信问题是......

URL = "http://www.radiowavemonitor.com/Subscriber/fi_stations_r100.asp?ID=" & JAZZLINK & "&IDF=7"

Set QT = WS.QueryTables.Add( _
    Connection:="URL;" & URL, _
    Destination:=WS.Range("A1"))

With QT
    .RefreshOnFileOpen = True
    .Name = "LINK"
    .FieldNames = True
    .WebSelectionType = xlAllTables
    .Refresh BackgroundQuery:=False
End With

当我逐行尝试F8时，一切都很好，花花公子，但当我运行整个代码时，它才开始无限运行（我让它运行2,3小时而不是打破它 - 不，它没有显示我它打破了，因为我必须强制关闭它！）。我认为它刷新查询时有问题，它不会等待加载连接并继续执行其余代码，这就是让他进入无限循环的原因（当我逐行运行时，一切正常）。所以，除非有其他问题，我想知道如何设置查询等待页面完全加载（我不太擅长），还有，如果它被破坏或者为空，如何在链接上设置一些错误检查跳过下一个？