AJUDA PARA ABRIR VARIAS GUIAS NA WEB
Enviado: Qui Mar 31, 2016 9:26 pm
Boa Noite pessoal!
Preciso de uma ajuda, preciso abrir diversas guias com apenas um clique!
Bem estive pesquisando e cheguei bem proximo com a seguinte programação:
Private Sub CommandButton1_Click()
Dim INTERNETEXPLORER As Object
Set INTERNETEXPLORER = CreateObject("INTERNETEXPLORER.APPLICATION")
With INTERNETEXPLORER
.Visible = True
.navigate "https://www.facebook.com/groups/8028975 ... ef=browser"
End With
End Sub
PS: com a programaçao acima eu só consigo abrir uma página, gostaria de abrir uma pagina com outras diversas guias!
Mas desde já agradeço pela ajuda dos amigos!
Preciso de uma ajuda, preciso abrir diversas guias com apenas um clique!
Bem estive pesquisando e cheguei bem proximo com a seguinte programação:
Private Sub CommandButton1_Click()
Dim INTERNETEXPLORER As Object
Set INTERNETEXPLORER = CreateObject("INTERNETEXPLORER.APPLICATION")
With INTERNETEXPLORER
.Visible = True
.navigate "https://www.facebook.com/groups/8028975 ... ef=browser"
End With
End Sub
PS: com a programaçao acima eu só consigo abrir uma página, gostaria de abrir uma pagina com outras diversas guias!
Mas desde já agradeço pela ajuda dos amigos!