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

VBA Tips - Como abrir um Website - Open a Website With VBA

#ProgramaçãoGlobal #VBA #WebSite #Browser #Tips #Tricks

☕DOE UM CAFÉ

Compre OS LIVROS DESTA SÉRIE

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

Sim, nós sabemos, nós sabemos, nós sabemos…

Ver essa mensagem é irritante. Sabemos disso. (Imagine como é escrevê-la...). Mas também é extremamente importante. Um dos maiores trunfos do ✔ Brazil SFE® é seu modelo parcialmente financiado pelos leitores.

1. O financiamento dos leitores significa que podemos cobrir o que quisermos. Não sujeitos a caprichos de um proprietário bilionário. Ninguém pode nos dizer o que não dizer ou o que não reportar.

2. O financiamento dos leitores significa que não precisamos correr atrás de cliques e tráfego. Não buscamos desesperadamente a sua atenção por si só: buscamos as histórias que nossa equipe editorial considera importantes e que merecem o seu tempo.

3. O financiamento dos leitores significa que podemos manter nosso blog aberto, permitindo que o maior número possível de pessoas leia artigos de qualidade do mundo todo.

O apoio de leitores como você torna tudo isso possível. No momento, apenas 2,4% dos nossos leitores regulares ajudam a financiar nosso trabalho. Se você quer ajudar a proteger nossa independência editorial, considere juntar-se a nós hoje mesmo.

Valorizamos qualquer quantia que possa nos dar, mas apoiar mensalmente é o que causa maior impacto, permitindo um investimento maior em nosso trabalho mais crucial e destemido, assim esperamos que considere apoiar-nos. Obrigado!