Views

Histats

Vitrine

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


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
        
    '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






brazilsalesforceeffectiveness@gmail.com

✔ Brazil SFE®Author´s Profile  Google+   Author´s Professional Profile   Pinterest   Author´s Tweets

✔ VBA Brazil®

✔ VBA Brazil®
brazilsalesforceeffectiveness@gmail.com
Related Posts Plugin for WordPress, Blogger...
diHITT - Notícias