✔ Programação GLOBAL®: VBA Tips - Como abrir um Website

Acessar um site via VBA é simples, basta que saibamos como utilizar um pouco de código.

Conheça e faça download de uma planilha pronta do Excel que calcula o TEMPO e a DISTÂNCIA de viagem usando a API do Google Maps

Mas como sempre temos aqueles que se perguntam: "Mas prá que vou querer aprender isso?" Bem a questão talvez não seja "para que aprender", mas saber fazer isso caso seja necessário. A seguintes interações podem ser necessárias:

- Talvez deseje conduzir o seu usuário para uma página com o help da aplicação que fez.

- Talvez queira direcionar o usuário para uma página específica do MS Sharepoint.

- Talvez apenas tenha a necessidade de conduzir os seus usuários a página do seu Blog quando saírem da sua aplicação.

Segue o modo amador de abrir a página, mas funciona:

Sub WebPage()



Dim IEapp As Object

Dim WebUrl As String

Dim NavigatorAddress As String



'Se você não utilizar o Chrome, troque chrome.exe por FireFox.exe

Let NavigatorAddress = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"



Set IEapp = CreateObject("InternetExplorer.Application") 'Set IEapp = InternetExplorer

Let WebUrl = "http://inanyplace.blogspot.com.br/"



'You can't really automate the passing of variables (ie. Login Name and Passwords) using Chrome or FireFox, but the below code will open the desired page

Shell (NavigatorAddress & " -url " & WebUrl)



With IEapp

Let .Silent = True 'No Pop-ups

Let .Visible = True 'Set InternetExplorer to Visible



.Navigate WebUrl 'Load web page

'Run and Wait, if you intend on passing variables at a later stage

Do While .Busy

DoEvents

Loop



Do While .ReadyState <> 4

DoEvents

Loop

End With

End Sub

Segue a forma correta, com um nível mais profissional:

Crie um módulo e cole o código abaixo.

Option Explicit

Private pWebAddress As String

Public Declare Function ShellExecute _

Lib "shell32.dll" _

Alias "ShellExecuteA" _

(ByVal hwnd As Long, _

ByVal lpOperation As String, ByVal lpFile As String, _

ByVal lpParameters As String, ByVal lpDirectory As String, _

ByVal nShowCmd As Long) As Long

Public Sub NewShell (cmdLine As String, lngWindowHndl As Long)

ShellExecute lngWindowHndl, "open", cmdLine, "", "", 1

End Sub

Evoque a função NewShell para carregar o seu navegador.

Public Sub WebPage()

Let pWebAddress = "http://inanyplace.blogspot.com.br/"

Call NewShell(pWebAddress, 3)

End Sub