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

Inline image 1
Sub Nome_da_Macro()

ActiveWorkbook.FollowHyperlink ""

End Sub

Outra forma:

Sub LaunchSite()

Dim Newsite As Object

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

End Sub

Mais um:

Sub GoToWebSite()
Dim appIE As Object ' InternetExplorer
Dim sURL As String

Let Application.ScreenUpdating = False

Set appIE = GetIE

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.Navigate2 "", CLng (navOpenInNewTab)

End Sub

Tags: VBA, Excel, Basic, Internet, 


Related Posts Plugin for WordPress, Blogger...