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 OpenPage() 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 aproveitamento que se pode fazer disse, é estabelecer navegação com critérios de QueryString por exemplo.
Tomás Vásquez