Refesh webpage with excel VBA code

Question

Hi,

I'm using the code below to open webpage

Private Sub cmdLogIn_Click()

    Dim MyHTML_Element As IHTMLElement

    Dim Hompage As IHTMLElement

Dim MyURL As String

    On Error GoTo Err_Clear

    MyURL = "http://My5566:8080/ABAB/Portal"

    Set MyBrowser = New InternetExplorer

    MyBrowser.Silent = True

    MyBrowser.navigate MyURL

    MyBrowser.Visible = True

Err_Clear:

        If Err <> 0 Then

        Err.Clear

        Resume Next

 End If

End Sub

But after page loaded it display message as

NAVIGATION TO THE WEBPAGE WAS CANCELED 

WHAT YOU CAN TRY:

Refresh the page

So if I click on the refresh then it load correctly! How can refresh this without click on refresh button on the webpage?

Thanks,

Tony

Answer 1

I would first try to use the IE as usual, means visible, etc. and check if the page loads.

It is possible that some security settings "works" in the background and prevent that the page can be loaded "behind the scenes".

Andreas.

Answer 2

Yes, I did tried MyBrowser.Refresh but the result still same. Do you have any other suggestion?

Answer 3

Hi Tony,

try MyBrowser.Refresh but I don't believe that it solves the issue.

Andreas.