![]() |
Control Website from Excel
I am trying to control a website from Excel VBA. It has page source
below: <FORM class=chooser_form id=chooser_form name=chooser_form onsubmit="return false;" action=http://www.example.com/ method=post <INPUT type=hidden value=en name=lang <DIV class=entry_url_out <INPUT class=entry_url name=URL </DIV <DIV class=selector_site_2_out <SELECT class=selector_site_2 onchange=change_info(document.chooser_form.site.se lectedIndex); name=site <OPTION value=Option1Option1</OPTION <OPTION value=Option2Option2</OPTION </SELECT </DIV <INPUT class=entry_submit onfocus=this.blur(); onclick=buttonDownload() type=submit </FORM That website change a text into another text. Normaly under IE, we must type on the input box in that website, and click the button. Afterwards, that web show the result. By this code below, I have succeed to enter a text in to the input box, but I can't "click" in the button because that button didnt have a name. Here is my code Private Sub OpenWebPageAndInput_Click() Dim objIE As Object On Error GoTo error_handler Set objIE = CreateObject("InternetExplorer.Application") With objIE .Navigate "www.example.htm" Do While .Busy: DoEvents: Loop Do While .readyState < 4: DoEvents: Loop .Visible = True With .Document.Forms("chooser_form") .URL.Value = "test" .submit '< this line was error End With End With Set objIE = Nothing Exit Sub error_handler: MsgBox ("Unexpected Error, I'm quitting.") objIE.Quit Set objIE = Nothing End Sub I have tried SendKeys "{ENTER}", True but it was fail too |
Control Website from Excel
|
Control Website from Excel
I have tried several methods
.submit.click .Item.submit.Click .button.Click .Document.Forms.Item(0).submit but It also failed. Do you have any suggestion. Thanks |
All times are GMT +1. The time now is 02:35 PM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com