HI Everyone
I have a VBA Code to open and auto login a separate web pages (Nearly 10). i need to open all these macros with single click, so i have call all of these macros by button. the problem is this all are opening with new internet Explorer application.
What i need is when i click the button IE should be opened as new and rest of the sites should be opened in new tab (but same IE).
Is anyone know how to open multiple pages in new tab.
Sample codes
Thanks in advance.
I have a VBA Code to open and auto login a separate web pages (Nearly 10). i need to open all these macros with single click, so i have call all of these macros by button. the problem is this all are opening with new internet Explorer application.
What i need is when i click the button IE should be opened as new and rest of the sites should be opened in new tab (but same IE).
Is anyone know how to open multiple pages in new tab.
Sample codes
Code:
Sub AutoLogin_gmail()
Set ie = CreateObject("InternetExplorer.Application")
my_url = "www.google.com"
With ie
.Visible = True
.Navigate my_url
.Top = 50
.Left = 530
.Height = 400
.Width = 400
Do Until Not ie.Busy And ie.readyState = 4
DoEvents
Loop
End With
' Input the userid and password
ie.Document.getElementById("uid").Value = "testID"
ie.Document.getElementById("password").Value = "testPW"
ie.Document.getElementById("enter").Click
Do Until Not ie.Busy And ie.readyState = 4
DoEvents
Loop
End Sub
Code:
Sub Autologin_yahoo()
Set ie = CreateObject("InternetExplorer.Application")
my_url = "www.mail.yahoo.com"
With ie
.Visible = True
.Navigate my_url
.Top = 50
.Left = 530
.Height = 400
.Width = 400
Do Until Not ie.Busy And ie.readyState = 4
DoEvents
Loop
End With
ie.Document.getElementById("uid").Value = "testID"
ie.Document.getElementById("password").Value = "testPW"
ie.Document.getElementById("enter").Click
Do Until Not ie.Busy And ie.readyState = 4
DoEvents
Loop
End Sub
Thanks in advance.