Excel VBA QueryTables：Excel在循环中冻结

Question

我有一个Excel VBA应用程序，它可以循环200多个项目。在每次迭代中都有这段代码：

QueryQuote:
    With Sheets("Sheet1").QueryTables.Add(Connection:="URL;" & strURL, Destination:=Sheets("Sheet1").Range("A1"))
        .BackgroundQuery = True
        .TablesOnlyFromHTML = False
        .Refresh BackgroundQuery:=False
        .SaveData = False
    End With

    Sheets("Sheet1").Range("A1").CurrentRegion.TextToColumns Destination:=Sheets("Sheet1").Range("A1"), DataType:=xlDelimited, _
                                                            TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
                                                            Semicolon:=False, Comma:=True, Space:=False, Other:=False

源（URL，变量strURL）是雅虎财经的API。在循环nr。 131我的excel只是冻结而没有错误消息。什么都没发生。我需要调整缺少的参数吗？