Use VBA to load a input window (table) in ie?

I'm trying to automate something using vba and internet explorer.

I know how to fill in data and click on buttons, but I'm struggling figure out how to click on a java button that I need to in order to fill in the data.

If I put the mouse over the button it says ""javascript:void();" If I click on it then it brings up a form where I can enter data and hit submit.

When I look at the source code I see things like:

div id
src
href="javascript:void();"
onclick="showWhatIneed)" 
title="What I need"

I also see references to table in the source code, so my guess is I somehow need to tell it to display the table.

What am I looking for or what kind of code would I use to display the area I need to put in the input?

Any help would be greatly appreciated

Hello max3732,

It would be easier to provide you with an answer if you post the web address. If this is private network then do not bother asking for more information.

Hello max3732,

I doubt you will find a VBA book detailing how to control Internet Explorer with VBA. The short answer is yes, you can. Web browsers take you into another dimension of programming. You are using multiple object models: VBA, Internet Explorer, HTML, and DOM. Suffice it to say I can not give a quick tutorial on all this. I can however provide you code that will log you into the site. I will need a couple of hours to write and test the code. Will that work for you?

Hello max3732,

What I found even more surprising was the books about Internet Explorer dealt very little with controlling it from VBA .

I am testing and debugging the code. I should have something working soon.

Hello max3732,

This macro will log you into the GameSpot site. You will need to add your email address and password to the macro code. I marked thee in bold text.

' Thread:  http://www.excelforum.com/excel-programming/800404-use-vba-to-load-a-input-window-table-in-ie.html
' Poster:  max3732
' Written:  November 09, 2011
' Author:  Leith Ross


Sub LogonToSite()

    Dim EmailButton As Object       ' id="EMAILADDR"
    Dim I As Long                   ' Loop index counter
    Dim ieApp As Object             ' Internet Explorer Application
    Dim ieDoc As Object             ' Web page document
    Dim ieForm As Object            ' id="signin"
    Dim ieFormElements As Object    ' Collection of all elements on the Form
    Dim PwdButton As Object         ' id="PASSWORD
    Dim SubmitButton As Object      ' value="Login"
    Dim URL As String               ' Website address
    
    
        URL = "http://www.gamespot.com/"
        
            Set ieApp = CreateObject("InternetExplorer.Application")
            ieApp.Navigate URL
            ieApp.Visible = True
            
                While ieApp.Busy And ieApp.ReadyState <> 4: DoEvents: Wend
        
                    While ieDoc Is Nothing: Set ieDoc = ieApp.Document.Body: Wend
                    
                    Set EmailButton = ieDoc.getElementById("EMAILADDR")
                    Set PwdButton = ieDoc.getElementById("PASSWORD")
                    
                    Set ieForm = ieDoc.getElementById("signin")
                    Set ieFormElements = ieForm.Elements
        
                        For I = 0 To 4
                            If ieFormElements(I).tagName = "INPUT" Then
                               If ieFormElements(I).Value = "Login" Then
                                  Set SubmitButton = ieFormElements(I)
                                  Exit For
                               End If
                            End If
                        Next I
                        
                EmailButton.Value = "max3732@gmail.com"
                PwdButton.Value = "Test"
                SubmitButton.Click
                
End Sub

Hello max3732,

I didn't think you were going to post back. I am not sure what is happening on your end. If you can show me which line the error occurs on that would help.

The Intellisense will only be available to you when the ShDocVw library has been loaded into your VBA project. It is helpful because you don't have to commit to memory the properties, methods, and events associated with the Internet Explorer object. On the downside. it is not good if you plan to use the workbook on different software platforms. Other machines may not be using the same version of the ShDocVw library as you.

To get around that you can use CreateObject. This will load the ShDocVw library for that machine to create the Internet Explorer application. The draws backs are you don't have Intellisense available nor are the predefined constants for ShDocVw available. In the end, both perform the job the same.

Hello max3732,

This should fix the problem. I was referencing the buttons before the Form they were on was loaded.

Sub LogonToSite()

  ' Updated:  Novemeber 15, 2011
  
    Dim EmailButton As Object       ' id="EMAILADDR"
    Dim I As Long                   ' Loop index counter
    Dim ieApp As Object             ' Internet Explorer Application
    Dim ieDoc As Object             ' Web page document
    Dim ieForm As Object            ' id="signin"
    Dim ieFormElements As Object    ' Collection of all elements on the Form
    Dim PwdButton As Object         ' id="PASSWORD
    Dim SubmitButton As Object      ' value="Login"
    Dim URL As String               ' Website address
    
    
        URL = "http://www.gamespot.com/"
        
            Set ieApp = CreateObject("InternetExplorer.Application")
            ieApp.Navigate URL
            ieApp.Visible = True
            
                While ieApp.Busy And ieApp.ReadyState <> 4: DoEvents: Wend
        
                    While ieDoc Is Nothing: Set ieDoc = ieApp.Document.Body: Wend
                    
                    While ieForm Is Nothing: Set ieForm = ieDoc.getElementById("signin"): Wend
                    While ieFormElements Is Nothing: Set ieFormElements = ieForm.Elements: Wend
                    
                    Set EmailButton = ieForm.getElementById("EMAILADDR")
                    Set PwdButton = ieForm.getElementById("PASSWORD")
        
                        For I = 0 To 4
                            If ieFormElements(I).tagName = "INPUT" Then
                               If ieFormElements(I).Value = "Login" Then
                                  Set SubmitButton = ieFormElements(I)
                                  Exit For
                               End If
                            End If
                        Next I
                        
                EmailButton.Value = "max3732@gmail.com"
                PwdButton.Value = "Test"
                SubmitButton.Click
                
End Sub