Páginas

domingo, 26 de fevereiro de 2012

VBA+Internet

Sub BlogSelma()


'No Excel, pressione [ALT]+[F11], depois Inserir > Módulo
'Acrescentar Microsoft Internet Controls em Ferramentas > Referências
'Copie esse código e execute o código na janela Verificação Imediata,
'digitando BlogSelma

Dim ie As InternetExplorer
Set ie = New InternetExplorer
ie.Visible = True
ie.Navigate "http://grupodediscussaoreligiao.blogspot.com/"

Do Until ie.ReadyState = READYSTATE_COMPLETE
Loop

Set ie = Nothing

'Mais referências com João Neto em
'http://officevbavsto.blogspot.com/2011/03/vba-internet-acessando-sites-da-web_12.html

End Sub

Nenhum comentário:

Postar um comentário