Sub IE_Refresh2()
Dim URL As String
Dim IE As SHDocVw.InternetExplorer
Dim HTMLdoc As HTMLDocument
Dim refreshLink As HTMLLinkElement
Dim i As Integer
URL = "https://app.box.com/s/2hnt5hlk17xofi3bfn2q"
Set IE = New SHDocVw.InternetExplorer
With IE
.Visible = True
.Navigate URL
While .Busy Or .readyState <> READYSTATE_COMPLETE: DoEvents: Wend
Set HTMLdoc = .Document
End With
'Get the Refresh link
Set refreshLink = Nothing
i = 0
While i < HTMLdoc.Links.Length And refreshLink Is Nothing
If HTMLdoc.Links(i).innerText = "Refresh" Then Set refreshLink = HTMLdoc.Links(i)
i = i + 1
Wend
If Not refreshLink Is Nothing Then
'Click Refresh and wait for it to finish
refreshLink.Focus
refreshLink.Click
Do
DoEvents
'Sleep 200
Loop Until refreshLink.parentElement Is Nothing
MsgBox "Done"
End If
End Sub
Bookmarks