Submit Button that is in a Javascript using Excel VBA

Question

I cannot seem to submit the click the submit or go button. It seems to be under a javascript which I am not sure how to enter a code to click the go button. Here is what I have:

Sub FactFinderForm()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
'create new instance of IE. use reference to return current open IE if
'you want to use open IE window. Easiest way I know of is via title bar.
IE.Navigate "http://factfinder.census.gov/faces/nav/jsf/pages/index.xhtml###"
'go to web page listed inside quotes
IE.Visible = True

While IE.busy
DoEvents 'wait until IE is done loading page.
Wend

IE.Document.getElementsByname("cfsearchtextboxmain").Item.innertext = _
              ThisWorkbook.Sheets("sheet1").Range("a1")

While IE.readyState <> 4
DoEvents
Wend

SendKeys "{enter}"

End Sub

Tim Williams · Accepted Answer · 2015-04-08 21:15:50Z

1

Try this:

With IE.Document

    .getElementById("cfsearchtextboxmain").Value = _
          ThisWorkbook.Sheets("sheet1").Range("a1").Value

    .parentWindow.ExecScript "cfMainFormSubmit()"

End With

answered Apr 8, 2015 at 21:15

Tim Williams

169k8 gold badges104 silver badges143 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

QHarr · Accepted Answer · 2019-06-27 04:15:16Z

1

You could also have used a css selector to target the element.

#cfmainsearchform > a

That says a tag within element with id cfmainsearchform. # is id and > within (child combinator).

ie.document.querySelector("#cfmainsearchform > a").Click

edited Jun 27, 2019 at 4:15

answered Jun 29, 2018 at 19:58

QHarr

84.5k14 gold badges58 silver badges105 bronze badges

Collectives™ on Stack Overflow

Submit Button that is in a Javascript using Excel VBA

2 Answers 2

Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related