VBA Internet Explorer - Select Button *** HELP ***

Hello Freddie,

The "Go" button is on an HTML Form. This is a separate HTML document from the parent document. Once changes have been made to the Form, it must be "Sumbmitted" to the server before the actions will be carried out.

Using the attribute "getElementByName" is not supported by the Input Submit element. It supports only "getElementById". But, this Input element does not have an ID. Since there are only two Input elements, you can return it this way...

  
    Dim oFom As Object

        Set oForm = IE.Document.getElementById("theForm")

            Set btnRowElements = oForm.getElementsByTagName("input")
        
            btnRowElements(1).Click

        oForm.Submit

Hi Leith,

Thanks so much for the reply.

Unfortunately, it didn't work - it kicks out a Run Time 424 Error (Object Required) on the line "Set oForm = w.document.getElementById("theForm")"

I have put the full code of where this takes place so you can see that i am naming the 2nd window w - i have adapted your code to call it via w instead of IE.

        
                                   
         Dim w As SHDocVw.InternetExplorer
         Dim btnRowElements As Object
         Dim oForm As Object
    
         Set w = IEWindowFromTitle("Search ~ salesforce.com - Unlimited Edition")
         If Not w Is Nothing Then
         Debug.Print w.document.Title
            Else
         Debug.Print "Not found"
         End If
        
        Do While w.readyState <> READYSTATE_COMPLETE Or w.Busy: DoEvents: Loop
                 
         ' **************************** click buttons ******************************
         
        Set oForm = w.document.getElementById("theForm")

            Set btnRowElements = oForm.getElementsByTagName("input")
        
            btnRowElements(1).Click

        oForm.submit

Thanks again for your help in advance.

BR.

Freddie

Hello Freddie,

You should post the workbook, so I can review your code. I think the prtoblem is with "w". You are most likely returning a interface object and not an executable object.

How To Post Your Workbook

1. At the bottom right of the Reply window, Click the button Go Advanced
2. At the top of the Your Message Window, in the first row of icons, Click the Paperclip icon.
3. Click the Add Files button at the top right in the dialog box. This displays the File Manager dialog.
4. Click the Select Files button at the bottom middle of the dialog.
5. In the new window Find the file you want to upload, select it, and Click Open.
6. You will now be back in the File Manager dialog. Click the bottom Middle button Upload File.
7. Wait until the file has completely uploaded before you exit the File Manager dialog.

Hi Leith,

No worries, here we go.

Thanks again!

Freddie

Hello Freddie,

I needs some background on what is happening. My assumption is you are logging into the site first and then retrieving data from one or more pages and after that I am not sure.

Hello Fediie,

Gu dé? Since I can test anything directly because it is a secure site, I made a change to the code below so we can see what "w" is. The added code is in blue. Run this a let me know what it says.

Sub SFDC()
    Dim btnRowElements As Object
    Dim FstAccount As Object
    Dim NavNewOpp As Object
    Dim iee As SHDocVw.InternetExplorer
    Dim doc As HTMLDocument
    Dim btnTechElements As Object
    Dim oForm As Object
    Dim x
    
    Application.ScreenUpdating = False
    
    'Login //Function SFDC_Login//
    UserForm1.Show

    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True

    'Navigate to Opportunity Record page
    IE.Navigate "https://na6.salesforce.com/006/o"

    While IE.Busy
        DoEvents
    Wend

    Set NavNewOpp = IE.document.getElementsByName("newOpp")
    delay 5
    NavNewOpp(0).Click

    'IE.Navigate "https://na6.salesforce.com/006/e?retURL=%2F006%2Fo&RecordType=0123000000003ykAAA&00N30000001c5cL=EMEAR&CF00N30000002C5mx_lkid=00530000001AuNp&CF00N30000002C5mx=Freddie Taylor&rt=Opportunity&nooverride=1"

    ' Wait while IE loading...
    Do While IE.readyState <> READYSTATE_COMPLETE Or IE.Busy: DoEvents: Loop
' ****************************** START LOOP *****************************
 Do

    delay 5
    ' Opportunity Name = (A3)
    IE.document.getElementById("opp3").Value = Cells(5, 1).Value
    ' Enter Party ID (Needs CSC ID 360 v SFDC) = Partner Name (B3)
    IE.document.getElementById("opp4").Value = Cells(5, 2).Value
    ' Expected Book Date = (C3)
    IE.document.getElementById("opp9").Value = Cells(5, 3).Value
    ' Expected Product Bookings = (D3)
    IE.document.getElementById("00N30000000gPQn").Value = Cells(5, 4).Value
    ' Expected Service Bookings = (E3)
    IE.document.getElementById("00N30000000gPQo").Value = Cells(5, 5).Value
    ' Stage = (F3)
    IE.document.getElementById("opp11").Value = Cells(5, 6).Value
    ' Cisco Capital = (G3)
    IE.document.getElementById("00N300000029y0B").Value = Cells(5, 7).Value
    ' Installed Base = (H3)
    IE.document.getElementById("00N30000002DhSk").Value = Cells(5, 8).Value
    ' Competitors = (I3)
    IE.document.getElementById("00N30000000gPQx").Value = Cells(5, 9).Value
        ' Click > Move To Chosen
        IE.document.getElementById("00N30000000gPQx_right_arrow").Click
    delay 1
    ' Opportunity Value Range = (J3)
    IE.document.getElementById("00N80000004I8t7").Value = Cells(5, 10).Value
    ' Forecasting Position = (K3)
    IE.document.getElementById("00N30000000gPQl").Value = Cells(5, 11).Value
    ' Contract Number = (L3)
    IE.document.getElementById("00N30000000gPR8").Value = Cells(5, 12).Value
    ' Sales Path = (M3)
    IE.document.getElementById("00N30000000gPQu").Value = Cells(5, 13).Value
    
    
    '**********************************************************************
    
    'Opens Lookup Window - SFDC
    
    IE.document.getElementById("opp4_lkwgt").Click
         
         'wait for window to make sure it can find it by name
         
         delay 3
         
         'Set popup window as main and wait
                                   
         Dim w As SHDocVw.InternetExplorer
         Set w = IEWindowFromTitle("Search ~ salesforce.com - Unlimited Edition")
         If Not w Is Nothing Then
         Debug.Print w.document.Title
            Else
         Debug.Print "Not found"
         End If
                                                                        
        ' wait for window to fully load
        
        Do While w.readyState <> READYSTATE_COMPLETE Or w.Busy: DoEvents: Loop
        
        x = TypeName(w)
        
        Stop
         
         ' **************************** click buttons ******************************
         
         delay 5
         
            

        Set oForm = w.document.getElementById("theForm")

            Set btnRowElements = oForm.getElementsByTagName("input")
        
            btnRowElements(1).Click

        oForm.submit

                                                                        
Stop

        ' **************************** click buttons ******************************

                                                                        
                                                                        'go back to previous window
                                                                       
                                                                        Set w = Nothing
                                                                       


   
    ' Click save & new
    Set btnRowElements = IE.document.getElementsByName("save_new")
    btnRowElements(0).Click
    
    ' *** WAIT UNTIL SUBMITTED AND COMPLETE THEN CONTINUE ***
    Do While IE.readyState <> READYSTATE_COMPLETE Or IE.Busy: DoEvents: Loop
    
    'Delete inputted row
    Rows(5).EntireRow.Delete
    
                                                                        ' ****** ADD TECHNOLOGY - MORE THAN ONE POSSIBLE - NOT CURRENTLY WORKING! ******
    
                                                                        '    Set btnTechElements = ie.document.getElementsByName("addProd")
                                                                        '    btnTechElements(0).Click
                                                                        '
                                                                        '    Do While ie.readyState <> READYSTATE_COMPLETE Or ie.Busy: DoEvents: Loop
                                                                        '
                                                                        '    Set btnAddServ = ie.document.getElementsByName("page:mainForm:mainPb:ServicePbs:j_id52:addSvcBtn")
                                                                        '    btnAddServ(0).Click
                                                                        '
                                                                        '    Stop
    
    Loop Until IsEmpty(Cells(5, 1))
    
    ' ******************************END LOOP WHEN NO DATA LEFT*************************
    
    'Confirms Upload Complete
    MsgBox "Upload Complete!"
    
    Set IE = Nothing

    Application.ScreenUpdating = True

End Sub

Hi Leith,

Well, fingers crossed this is what was meant to happen! In the immediate window it prints the name of the window "Search ~ salesforce.com - Unlimited Edition" - and the code runs through to the Stop that you added.

Ta

Freddie

Hello Freddie,

What was the value of "x"?

Hello Freddie,

I have been answering phone calls. I will put some code together for you test.

Hello Freddie,

Give this a try. This will replace all the code in the "Main" module. The IWebBrower2 interface is used to create an interactive HTML document from the MSXML2 library.

Public IE       As Object
Public HTMLdoc  As Object
Public PageSrc  As String

Sub SFDC()
    Dim btnRowElements As Object
    Dim FstAccount As Object
    Dim NavNewOpp As Object
    Dim iee As SHDocVw.InternetExplorer
    Dim doc As HTMLDocument
    Dim btnTechElements As Object
    Dim oForm As Object
    Dim x
    
    HTMLdoc = Nothing
    PageSrc = ""
    
    Application.ScreenUpdating = False
    
    'Login //Function SFDC_Login//
    UserForm1.Show

    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True

    'Navigate to Opportunity Record page
    IE.Navigate "https://na6.salesforce.com/006/o"

    While IE.Busy
        DoEvents
    Wend

    Set NavNewOpp = IE.document.getElementsByName("newOpp")
    delay 5
    NavNewOpp(0).Click

    'IE.Navigate "https://na6.salesforce.com/006/e?retURL=%2F006%2Fo&RecordType=0123000000003ykAAA&00N30000001c5cL=EMEAR&CF00N30000002C5mx_lkid=00530000001AuNp&CF00N30000002C5mx=Freddie Taylor&rt=Opportunity&nooverride=1"

    ' Wait while IE loading...
    Do While IE.readyState <> READYSTATE_COMPLETE Or IE.Busy: DoEvents: Loop
' ****************************** START LOOP *****************************
 Do

    delay 5
    ' Opportunity Name = (A3)
    IE.document.getElementById("opp3").Value = Cells(5, 1).Value
    ' Enter Party ID (Needs CSC ID 360 v SFDC) = Partner Name (B3)
    IE.document.getElementById("opp4").Value = Cells(5, 2).Value
    ' Expected Book Date = (C3)
    IE.document.getElementById("opp9").Value = Cells(5, 3).Value
    ' Expected Product Bookings = (D3)
    IE.document.getElementById("00N30000000gPQn").Value = Cells(5, 4).Value
    ' Expected Service Bookings = (E3)
    IE.document.getElementById("00N30000000gPQo").Value = Cells(5, 5).Value
    ' Stage = (F3)
    IE.document.getElementById("opp11").Value = Cells(5, 6).Value
    ' Cisco Capital = (G3)
    IE.document.getElementById("00N300000029y0B").Value = Cells(5, 7).Value
    ' Installed Base = (H3)
    IE.document.getElementById("00N30000002DhSk").Value = Cells(5, 8).Value
    ' Competitors = (I3)
    IE.document.getElementById("00N30000000gPQx").Value = Cells(5, 9).Value
        ' Click > Move To Chosen
        IE.document.getElementById("00N30000000gPQx_right_arrow").Click
    delay 1
    ' Opportunity Value Range = (J3)
    IE.document.getElementById("00N80000004I8t7").Value = Cells(5, 10).Value
    ' Forecasting Position = (K3)
    IE.document.getElementById("00N30000000gPQl").Value = Cells(5, 11).Value
    ' Contract Number = (L3)
    IE.document.getElementById("00N30000000gPR8").Value = Cells(5, 12).Value
    ' Sales Path = (M3)
    IE.document.getElementById("00N30000000gPQu").Value = Cells(5, 13).Value
    
    
    '**********************************************************************
    
    'Opens Lookup Window - SFDC
    
    IE.document.getElementById("opp4_lkwgt").Click
         
         'wait for window to make sure it can find it by name
         
         delay 3
         
         'Set popup window as main and wait
                                   
         Dim w As SHDocVw.InternetExplorer
         Set w = IEWindowFromTitle("Search ~ salesforce.com - Unlimited Edition")
         If Not w Is Nothing Then
         Debug.Print w.document.Title
            Else
         Debug.Print "Not found"
         End If
                                                                        
        ' wait for window to fully load
        
        Do While w.readyState <> READYSTATE_COMPLETE Or w.Busy: DoEvents: Loop
        
         
        ' **************************** click buttons ******************************
         
        delay 5
         
            
      ' Reset the Global variables.
        Set HTMLdoc = Nothing
        PageSrc = ""
        
      ' Find the most recently opened instance of Internet Explorer.
        With CreateObject("Shell.Application")
            For n = .Windows.Count To 1 Step -1
                If .Windows(n - 1).Name = "Internet Explorer" Then
                    Set HTMLdoc = .Windows(n - 1)
                End If
            Next n
        End With
        
      ' Check if an instance of Internet Explorer is open.
        If HTMLdoc Is Nothing Then
            MsgBox "Internet Explorer Is Not Open.", vbCritical
            Exit Sub
        End If
        
          ' Get the Page Source from the the current web page.
            With CreateObject("MSXML2.XMLHTTP")
                .Open "GET", HTMLdoc.LocationURL, True
                .send
                While .readyState <> 4: DoEvents: Wend
                PageSrc = .responseText
            End With
            
          ' Create a separate interactive HTML document.
            Set HTMLdoc = CreateObject("htmlfile")
            HTMLdoc.Write PageSrc

        Set oForm = HTMLdoc.document.getElementById("theForm")

            Set btnRowElements = oForm.getElementsByTagName("input")
        
            btnRowElements(1).Click

        oForm.submit

                                                                        
Stop

        ' **************************** click buttons ******************************

                                                                        
                                                                        'go back to previous window
                                                                       
                                                                        Set w = Nothing
                                                                       


   
    ' Click save & new
    Set btnRowElements = IE.document.getElementsByName("save_new")
    btnRowElements(0).Click
    
    ' *** WAIT UNTIL SUBMITTED AND COMPLETE THEN CONTINUE ***
    Do While IE.readyState <> READYSTATE_COMPLETE Or IE.Busy: DoEvents: Loop
    
    'Delete inputted row
    Rows(5).EntireRow.Delete
    
                                                                        ' ****** ADD TECHNOLOGY - MORE THAN ONE POSSIBLE - NOT CURRENTLY WORKING! ******
    
                                                                        '    Set btnTechElements = ie.document.getElementsByName("addProd")
                                                                        '    btnTechElements(0).Click
                                                                        '
                                                                        '    Do While ie.readyState <> READYSTATE_COMPLETE Or ie.Busy: DoEvents: Loop
                                                                        '
                                                                        '    Set btnAddServ = ie.document.getElementsByName("page:mainForm:mainPb:ServicePbs:j_id52:addSvcBtn")
                                                                        '    btnAddServ(0).Click
                                                                        '
                                                                        '    Stop
    
    Loop Until IsEmpty(Cells(5, 1))
    
    ' ******************************END LOOP WHEN NO DATA LEFT*************************
    
    'Confirms Upload Complete
    MsgBox "Upload Complete!"
    
    Set IE = Nothing

    Application.ScreenUpdating = True

End Sub


Private Sub delay(seconds As Long)
    Dim endTime As Date
    endTime = DateAdd("s", seconds, Now())
    Do While Now() < endTime
        DoEvents
    Loop
End Sub

Hello Freddie,

Dògan! My typing has been bad all day.

It should be...

    Set HTMLdoc = Nothing

Hello Freddie,

If the macro works properly up to the message box then you can delete that part of the code.

Hello Freddie,

In that case, Internet Explorer is not running. You will need to restart it and rerun the macro.

Hello Freddie,

Then the macro is working fine up to this point and then you need to click a button on this pop up window?

Hello Freddie,

What URL is currently in you navigation bar?

Hello Freddie,

Okay, you get a popup window before or after the macro runs?