Excel macro need to know how many internet objects to navigate different screens

[karthiktel88]

I very new to excel macro. please help me. also suggest me very good material to learn vba concepts.

See the below code,

1. Macro should open this link "https://accounts.google.com/ServiceLogin?hl=en&continue=http://www.google.co.in/" and enter account details.
2. Navigated to google page. Now need to click Google maps link and enter London and click search.

Public Sub LaunchGamil(username As String)
    Const strURL_c As String = "https://accounts.google.com/ServiceLogin?hl=en&continue=http://www.google.co.in/"
    Const URLmaps As String = "http://maps.google.co.in/maps?hl=en&tab=wl"
    Dim objIE As SHDocVw.InternetExplorer
    Dim objIE1 As SHDocVw.InternetExplorer
    Dim ieDoc1 As MSHTML.HTMLDocument
    Dim ieDoc2 As MSHTML.HTMLDocument
    Dim tbxPwdFld As MSHTML.HTMLInputElement
    Dim tbxUsrFld As MSHTML.HTMLInputElement
    Dim btnSubmit As MSHTML.HTMLInputElement
    
    On Error GoTo Err_Hnd
    'Create Internet Explorer Object
    Set objIE = New SHDocVw.InternetExplorer
    'Navigate the URL
    objIE.Navigate strURL_c
    'Wait for page to load
    Do Until objIE.ReadyState = READYSTATE_COMPLETE: Loop
    'Get document object
    Set ieDoc1 = objIE.Document
    'Get username/password fields and submit button.
    Set tbxPwdFld = ieDoc1.all.Item("Passwd")
    Set tbxUsrFld = ieDoc1.all.Item("Email")
    Set btnSubmit = ieDoc1.all.Item("signIn")
    'Fill Fields
    tbxUsrFld.Value = username
    tbxPwdFld.Value = password
    'Click submit
    btnSubmit.Click
    'Wait for transistion page to load
    Do Until objIE.ReadyState = READYSTATE_COMPLETE: Loop
    'Wait for main page to load
    'Do Until objIE.ReadyState = READYSTATE_COMPLETE: Loop
    While ieDoc1.Busy
    DoEvents  'wait until IE is done loading page.
    Wend
    Set objIE1 = New SHDocVw.InternetExplorer
    objIE1.Navigate URLmaps
    Do Until objIE.ReadyState = READYSTATE_COMPLETE: Loop
    
Err_Hnd: '(Fail gracefully)
    objIE.Visible = True
End Sub

[westconn1]

how far does the code work?

[karthiktel88]

how far does the code work?

Here is my code. I am new to excel macro. I need the following stuffs to do,

1. Open this(https://accounts.google.com/ServiceL....google.co.in/) link.
2. input credentials through macro and login.
3. Now you would be navigated to google.co.in. if you note thoroughly, you will see your "username" in the page.
4. Now i need to open Google News. link is "http://news.google.co.in/nwshp?hl=en&tab=wn"
5. Remember, after navigating to Google News page, I STILL WANT TO SEE MY USERNAME IN THE GOOGLE NEWS PAGE.

my code works till login of gmail, and navigated to google news, BUT I AM GETTING LOG-OUT. MY USERNAME IS NOT VISIBLE IN GOOGLE NEWS PAGE.

PLEASE HELP.

Public Sub LaunchGamil(username As String)
Const strURL_c As String = "https://accounts.google.com/ServiceLogin?hl=en&continue=http://www.google.co.in/"
Const strURL1_c As String = "http://news.google.co.in/nwshp?hl=en&tab=wn"

Dim objIE As SHDocVw.InternetExplorer
Dim objIE1 As SHDocVw.InternetExplorer
Dim ieDoc1 As MSHTML.HTMLDocument

Dim tbxPwdFld As MSHTML.HTMLInputElement
Dim tbxUsrFld As MSHTML.HTMLInputElement
Dim btnSubmit As MSHTML.HTMLInputElement

On Error GoTo Err_Hnd
'Create Internet Explorer Object
Set objIE = New SHDocVw.InternetExplorer
Set objIE1 = New SHDocVw.InternetExplorer
'Navigate the URL
objIE.Navigate strURL_c
'Wait for page to load
Do Until objIE.ReadyState = READYSTATE_COMPLETE: Loop
'Get document object
Set ieDoc1 = objIE.Document
'Get username/password fields and submit button.
Set tbxPwdFld = ieDoc1.all.Item("Passwd")
Set tbxUsrFld = ieDoc1.all.Item("Email")
Set btnSubmit = ieDoc1.all.Item("signIn")
'Fill Fields
tbxUsrFld.Value = "[email protected]"
tbxPwdFld.Value = "password"
'Click submit
btnSubmit.Click
Do Until objIE.ReadyState = READYSTATE_COMPLETE: Loop
While objIE.Busy
DoEvents 'wait until IE is done loading page.
Wend

objIE1.Navigate strURL1_c
Do Until objIE1.ReadyState = READYSTATE_COMPLETE: Loop
'objIE.Document.Links(0).target = "http://news.google.co.in/nwshp?hl=en&tab=wn"
'objIE.Document.Links(0).Click
While objIE1.Busy
DoEvents 'wait until IE is done loading page.
Wend

Err_Hnd: '(Fail gracefully)
objIE.Visible = True
End Sub


With IEapp
.Visible = True
.Navigate URL1
End With