How to fix The object invoked has disconnected from its clients using vba

[amo]

previously no problem , but now it doesn't work
any ideas ?

Sub getdata()
   
    
    
    Dim HTMLDoc As New HTMLDocument
    Dim ieBrowser As New InternetExplorer
    
    'variable to specify the row number in excel
    Dim lastRow As Integer, rowno As Integer
    Dim tag As Object
    
    lastRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row
    
    
    For i = 3 To lastRow
        URLNAME = Cells(i, 1).Value
        
        ieBrowser.Visible = True
        ieBrowser.navigate URLNAME
        
        Do
       
        Loop Until ieBrowser.readyState = READYSTATE_COMPLETE
        
        Set HTMLDoc = ieBrowser.document
        
        Application.Wait (Now + TimeValue("0:00:05"))
        
        'Price
        ActiveSheet.Cells(rowno, 4) = HTMLDoc.getElementsByClassName("AJyN7v")(0).innerText
        'Stock
        ActiveSheet.Cells(rowno, 5) = HTMLDoc.getElementsByClassName("_2ZcUKh")(0).innerText
        
    Next
    Set ieBrowser = Nothing
    Set HTMLDoc = Nothing
End Sub

 

[johnnyL]

It looks like you are not connecting to the URL address, possibly from your IP being banned, perhaps the Internet Explorer browser is no longer supported.

See if the URL loads in internet explorer and respond back.

 

[Marc L]

any ideas ?

No idea as you forgot the essential : in which codeline the error raises ?‼​

But according to this VBA procedure I just can say you was lucky if really it has worked …​