EXCEL PROGRESS BAR STUCK

Question

我的代码已经好几个月了。最近我开始收到以下错误：

对象变量或未设置块变量（错误91）

我也有进度条。我注意到进度条卡住了，因为我得到错误91.

这是进度条的代码：

    Sub PROGRESS()
    Dim x               As Integer
    Dim MyTimer         As Double

    Dim appIE As New InternetExplorer, html As HTMLDocument
    Dim item_data As Object


 For k = 6 To 15 Step 1

  Application.StatusBar = "Progress: " & k - 5 & " of 10: " & Format((k - 5) 
  / 10, "0%")


    s = 1
    H = 1
    L = 1
    StopLoop = 0
    q = Format(k, "0")
    If IsEmpty(ActiveSheet.Range("$E$" & q).Value) = True Then


     With appIE
    .Visible = False
    .navigate "https://finance.google.com/finance?q=" & Sheets("Up Trend 
     Stocks").Range("$A$" & q).Value
    Do Until .readyState = 4: DoEvents: Loop
    Set html = .document
       End With

     Set item_data = html.querySelector(".pr span")
     Range("$B$" & q).Value = item_data.innerText

   End If

    Next

    appIE.Quit
   Range("D1").Select

   Application.StatusBar = False


      End Sub

生成错误并且这行代码：

 Range("$B$" & q).Value = item_data.innerText

如果我可以提供更多详细信息，请告知。

由于

Answer 1

我想出了这个错误的原因。它与代码本身无关，但问题在于我从中提取数据的网页。 此代码从Google财经页面读取股票价格。 Google财经页面似乎已更改，我无法再阅读所需的数据。