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

| Blog Office VBA | Blog Excel | Blog Access | Blog Infochart | 

DESENVOLVO APLICAÇÕES VBA

Acesse uma ENORME lista de Dashboards e Infográficos

Aprenda a detectar gráficos que precisam mudar

Dados ou Informações?

Dashboards - 8 Importantes características desejáveis

Dashboards e Infocharts - Diversas Visualizações de Dados

Diversos exemplos de Gráficos

Excel - DashMap - Mapa do Brasil

Key Performance Indicators - 7 Características desejáveis

MIS - Usufruindo a excelência na análise das suas Informações

O Melhor do Business Intelligence

Os 10 mandamentos do gerenciamento de projetos

Receba  3 Calendários Customizáveis de  2013 em Excel

Usando Gauges em Dashboards no MS Access

Você tem direito as informações da sua empresa

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

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

Tags: Chrome, Explorer, Firefox, VBA, Tips, Navegator, API, shell32.dll, webaddress, web, website, web browser, web page,