VBA IE Internet Explorer Automation Through ElementID

**mrmmickle1** · 01-17-2013, 03:16 AM

I am trying to figure out how to do two things.

1. Fill in a Login Form Based on an Element ID >>

Code:

Set doc = IE.Document 
Set el = doc.getElementById("someElementId") 
el.value = "Username"   ' Is this correct??  How would I complete this statement?
If Not el Is Nothing Then
MsgBox el.innerText

2. Press/Click a button by an element ID >>

Code:

Set doc = IE.Document
Set el = doc.getElementById("someElementId")
el.click  ' HOw do I perform a simple click?

I have gotten to do this in the past by using some code that uses:

Code:

Dim htmlInput As MSHTML.HTMLInputElement

 Set HTMLdoc = .Document
            Set htmlColl = HTMLdoc.getElementsByTagName("INPUT")
            Do While HTMLdoc.ReadyState <> "complete": DoEvents: Loop
                For Each htmlInput In htmlColl
                    If htmlInput.Name = "UserName" Then
                        htmlInput.Value = "USername Here
                    Else
                        If htmlInput.Name = "Password" Then
                            htmlInput.Value = "Password Here"

But it doesn't seem to work for the website I am toying around with so I was hoping to try a different method.

I have failed miserably searching the internet for information on IE Automation through VBA. I was hoping that someone may be able to give me a boost!

**Excel Fox** · 01-19-2013, 12:23 AM

**mrmmickle1** · 01-19-2013, 01:04 AM

Rick,

I have the below Procedure that will fill in the username and password. However it will not let me log in. If I take the portion of the code out that .click and let the procedure run and then click the button manually it works. If I change the procedure to Htmlforms(0).Submit it will not work either. It seems like it clicks the button however it gives me a username/password error which I know is not true. Since I did it manually and it worked. I feel like the website is purposely preventuing my access. I tried to use the Firefox, Firebug to identify the button. It looks like it is Input#submitButton (Submit Form Button). The inputs are input#ssnt.textbox (Username) and input#PIN.textbox (Password) Once in the website I would like to navigate to a tab based on the href and then pull down the table of my stock investments.

Code:

Option Explicit

 Sub Workbook_Open()
     
     
     'make sure you add references to Microsoft Internet Controls (shdocvw.dll) and
     'Microsoft HTML object Library.
     'Code will NOT run otherwise.
    Dim IE As Object
    Dim objIE As SHDocVw.InternetExplorer 'microsoft internet controls (shdocvw.dll)
    Dim htmlDoc As MSHTML.HTMLDocument 'Microsoft HTML Object Library
    Dim htmlInput As MSHTML.HTMLInputElement
    Dim htmlColl As MSHTML.IHTMLElementCollection
     
    Set objIE = New SHDocVw.InternetExplorer
     
    With objIE
        .Navigate "https://login.fidelity.com/ftgw/Fas/Fidelity/RtlCust/Login/Init?AuthRedUrl=https://oltx.fidelity.com/ftgw/fbc/ofsummary/defaultPage" ' Login Page.  I tried using the main page but I could not get the program to fill in the information.
        .Visible = 1                                                                                            'www.fidelity.com is the main page.  On the url referenced the code will fill in the login information.
        Do While .READYSTATE <> 4: DoEvents: Loop
            Application.Wait (Now + TimeValue("0:00:02"))
            
             'set user name and password
            Set htmlDoc = .Document
            Set htmlColl = htmlDoc.getElementsByTagName("INPUT")
            Do While htmlDoc.READYSTATE <> "complete": DoEvents: Loop
                For Each htmlInput In htmlColl
                    If htmlInput.Name = "ssnt" Then
                        htmlInput.Value = "Username"
                    Else
                        If htmlInput.Name = "PIN" Then
                            htmlInput.Value = "Password"
                    Else
                        If htmlInput.Name = "userpin" Then
                            htmlInput.Value = "2328"
                            
                            
                            End If
                        End If
                     End If
                Next htmlInput
                 
              'click login
                Set htmlDoc = .Document
                Set htmlColl = htmlDoc.getElementsByTagName("input")
                Do While htmlDoc.READYSTATE <> "complete": DoEvents: Loop
                    For Each htmlInput In htmlColl
                        If Trim(htmlInput.Type) = "submit" Then
                            htmlInput.Click
                            Exit For
                        End If
                    Next htmlInput
                End With
            Application.Quit

          End Sub

**mrmmickle1** · 01-22-2013, 06:20 AM

Would it be possible to use the Tab index # to click the button:

Code:

<td style="padding-left: 1px;">&nbsp;<input type="submit" value="Log In" id="submitButton"
				name="submitButton" tabindex="3"/></td>

The tab index looks to be 3

would something like this be appropriate?

Code:

ie.Document.getElementsByTagName("td").Item(3).tagname

Thread: VBA IE Internet Explorer Automation Through ElementID

Thread Tools

Search Thread

Display

Hybrid View

VBA IE Internet Explorer Automation Through ElementID

Similar Threads

Excel VBA to Attach File And Automatically Send Email

Unable to Get ElementID In VBA IE Automation

Looping Through Each Internet Explorer

VBA - Excel: Disable Internet / Google

Bookmarks

Bookmarks

Posting Permissions