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