You can start with this

Public Sub directa()
    Const strURL_c As String = "http://www.xyz.com";
    Const strUsr_c As String = "ABC"
    Const strPwd_c As String = "DEF"
    Dim objIE As SHDocVw.InternetExplorer
    Dim ieDoc 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 ieDoc = objIE.document
         'Get username/password fields and submit button.
        Set tbxPwdFld = ieDoc.all.Item("USER")
        Set tbxUsrFld = ieDoc.all.Item("PASSW")
        Set btnSubmit = ieDoc.all.Item("SUBMIT")

         'Fill Fields
        tbxPwdFld.Value = strUsr_c
        tbxUsrFld.Value = strPwd_c
         'Click submit
        btnSubmit.Click
         'Wait for page to load
        Do Until objIE.readyState = READYSTATE_COMPLETE: Loop
Err_Hnd: '(Fail gracefully)
            objIE.Visible = True
        End Sub













Regards,

Sam Mathai Chacko


On Wed, Feb 1, 2012 at 10:27 PM, Kiran Kancherla <srkira...@gmail.com>wrote:

>
> Hi All,
>
> If any of have Macro ''click'' or ''navigate'' internet explorer...
>
> My requirement is to click 3 hyper links and copy the data to Excel....
>
> I have tried googling it..
> But no luck..
>
> Sent on my BlackBerry® from Vodafone
> Thanks & Regards.
> Kiran
>
> --
> FORUM RULES (986+ members already BANNED for violation)
>
> 1) Use concise, accurate thread titles. Poor thread titles, like Please
> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
> will not get quick attention or may not be answered.
>
> 2) Don't post a question in the thread of another member.
>
> 3) Don't post questions regarding breaking or bypassing any security
> measure.
>
> 4) Acknowledge the responses you receive, good or bad.
>
> 5)  Cross-promotion of, or links to, forums competitive to this forum in
> signatures are prohibited.
>
> NOTE  : Don't ever post personal or confidential data in a workbook. Forum
> owners and members are not responsible for any loss.
>
>
> ------------------------------------------------------------------------------------------------------
> To post to this group, send email to excel-macros@googlegroups.com
>



-- 
Sam Mathai Chacko

-- 
FORUM RULES (986+ members already BANNED for violation)

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.

2) Don't post a question in the thread of another member.

3) Don't post questions regarding breaking or bypassing any security measure.

4) Acknowledge the responses you receive, good or bad.

5)  Cross-promotion of, or links to, forums competitive to this forum in 
signatures are prohibited. 

NOTE  : Don't ever post personal or confidential data in a workbook. Forum 
owners and members are not responsible for any loss.

------------------------------------------------------------------------------------------------------
To post to this group, send email to excel-macros@googlegroups.com

Reply via email to