VBA程式碼如下，原本執行正常，忽然有一天出現「執行階段錯誤'91'：沒有設定物件變數或With區塊變數」錯誤，點擊偵錯，黃底標示在「dd = IE.Document.getElementsByClassName("priceText__1853e8a5")(0).innerText」這行，請問如何修正？謝謝！

Sub GetExchangeRate()
    Dim IE As Object
    
    Set IE = CreateObject("InternetExplorer.Application")
    Application.Wait (Now + #12:00:01 AM#)

    IE.Visible = False

    IE.Navigate "https://www.bloomberg.com/quote/USDTWD:CUR"

    Application.StatusBar = "Loading, Please wait..."

    Do While IE.Busy
        Application.Wait DateAdd("s", 1, Now)
    Loop

    Application.StatusBar = "Searching for value. Please wait..."

    Dim dd As Double
    Dim dt As String
    Dim obj As New DataObject
    dd = IE.Document.getElementsByClassName("priceText__1853e8a5")(0).innerText
    dt = IE.Document.getElementsByClassName("time__cbd9bff9")(0).innerText

    obj.SetText (dd)
    obj.PutInClipboard
    MsgBox "USDTWD Spot Exchange Rate: " & dd & vbCrLf & dt

    IE.Visible = False

    IE.Quit
    Set IE = Nothing

    Application.StatusBar = ""
End Sub