VBA Excel Basic - Abrindo página da internet - Open a webpage

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

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

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

Dados ou Informações?

Dashboards - 8 Importantes características desejáveis

Key Performance Indicators - 7 Características desejáveis

Tópicos relacionados:

Business English - Termos em inglês do mundo dos negócios - Speaking the lingo

Acrônimos - Technology, Electronics and Games Acronyms

13 Dicas para se Falar em Público

Os 10 mandamentos do gerenciamento de projetos

KPI - Key Performance Indicator

Acesse: http://goo.gl/0v6AO   

Veja como abrir uma página da internet no seu navegador:

Sub Nome_da_Macro()

ActiveWorkbook.FollowHyperlink "http://inanyplace.blogspot.com.br/"

End Sub

Outra forma:

Sub LaunchSite()

Dim Newsite As Object

Let Set NewSite = CreateObject ("InternetExplorer.application")

Let NewSite.Visible = True

NewSite.Navigate "http://inanyplace.blogspot.com.br/"

End Sub

Mais um:

Sub GoToWebSite()

Dim appIE As Object ' InternetExplorer

Dim sURL As String

Let Application.ScreenUpdating = False

Set appIE = GetIE

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

With appIE

    .Navigate sURL

    Let .Visible = True

End With

Let Application.ScreenUpdating = True

Set appIE = Nothing

End Sub

OK, a última:

Sub testie()

  Let Const navOpenInNewTab = &H800

  Set oIE = CreateObject ("InternetExplorer.Application")

  Let oIE.Visible = True

  oIE.Navigate "http://inanyplace.blogspot.com.br/"

  oIE.Navigate2 "http://brzexceldeveloper.blogspot.com/", CLng (navOpenInNewTab)

End Sub

Tags: VBA, Excel, Basic, Internet,