VBA – Abrindo uma página do IE

Postado em 29/04/2008 22:04:55 por Tomás Vásquez

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 DrawingIn_Click()




 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






Share|


				

			

		



	







	
			
Você precisa ser um usuário registrado para inserir um comentário. Faça seu login clicando aqui