Excel e VBA‎ > ‎

Abrindo um site através do VBA

postado em 24 de mai de 2012 20:08 por Erisvaldo Ferreira Silva   [ 26 de mai de 2012 19:09 atualizado‎(s)‎ ]
Antes de mais nada é necessário incluir a referência "Microsoft Internet Controls" ao seu VBA. Se não sabe como fazer isso, clique aqui.

O código abaixo abre o InternetExplorer na página "www.erisbaldo.com". Este código é ideal para incluir em suas planilhas ou programas, links para acesso às suas páginas ou à páginas de ajuda on-line.

Sub AbrirSite()
    Dim site As InternetExplorer
    Set site = New InternetExplorer
    site.Navigate "www.erisbaldo.com"
    While site.Busy Or site.ReadyState < READYSTATE_COMPLETE: Wend
    site.Visible = True
End Sub

    As linhas de comando Dim site As InternetExplorer e Set site = New InternetExplorer são essenciais neste código, pois cria e configura o parâmetro site para receber uma página da internet. A linha site.Navigate "www.erisbaldo.com" carrega a página www.erisbaldo.com, mas a mantém oculta até que o comando site.Visible = True a faça aparecer.

    Observe que entre as linhas site.Navigate "www.erisbaldo.com" e site.Visible = True existe a linha While site.Busy Or site.ReadyState < READYSTATE_COMPLETE: Wend. Esta linha faz com que o VBA aguarde até que a página seja totalmente carregada antes de torná-la visível.
Comments