使用Excel VBA提交Javascript中的button

我似乎无法提交点击提交或去button。 它似乎是在一个JavaScript，我不知道如何input代码来点击去button。 这是我有什么：

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 

Answer 1

尝试这个：

 With IE.Document .getElementById("cfsearchtextboxmain").Value = _ ThisWorkbook.Sheets("sheet1").Range("a1").Value .parentWindow.ExecScript "cfMainFormSubmit()" End With