Good afternoon,
I need to access a website and grab the data from the last day and copy them to a folder in excel, the site is highlighted in the macro below but I do not know how to proceed to select the data and copy them in my worksheet .
Sub AcessarSite()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.application")
With IE
.Visible = True
.Navigate ("http://www.cepea.esalq.usp.br/br/indicador/acucar.aspx")
While .Busy Or .ReadyState <> 4:
DoEvents:
Wend
'selecionar dados e copiá-los em células
While .Busy Or .ReadyState <> 4:
DoEvents:
Wend
Debug.Print .LocationURL
End With
End Sub
Thank you !!!