VBA - Abrindo uma página do IE

Uma necessidade um pouco antiga, é sempre bom lembrar. Uma forma fácil de abrir uma página da Web pelo VBA é chamar uma instância do Internet Explorer. Um código de exemplo pode ser visto abaixo:

Private Sub AbrePagina()
Dim browser As Variant
Set browser = CreateObject("InternetExplorer.Application")
browser.Navigate ("www.google.com")
browser.Visible = True
End Sub

O bacana é que dá para trabalhar com algumas propriedade do browser, permitindo controlar um pouco mais a navegação. O exemplo abaixo mostra como abrir uma página bloqueando recursos de navegação e redimensionamento da página:

Private Sub AbrePagina()
Dim browser As Variant
Set browser = CreateObject("InternetExplorer.Application")
browser.Navigate ("www.google.com")
browser.StatusBar = False
browser.Toolbar = False
browser.Visible = True
browser.Resizable = False
browser.AddressBar = False
End Sub

Um coisa interessante a colocar, é que o maior aproveitamente que se pode fazer disse, é estabelecer navegação com critérios de QueryString por exemplo.

Tomás Vásquez
http://www.tomasvasquez.com.br