Boa tarde,
preciso acessar um site e pegar os dados do último dia e copiá-los para uma pasta no excel, o site é o destacado na macro abaixo, mas eu não sei como proceder para selecionar os dados e copiá-los na minha planilha.
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
Obrigado!!!