Internet Explorer自动化

Question

我正在尝试自动从网站下载文件。 到目前为止，我尝试过的一些代码如下所示。 该页面具有四个输入字段（请参见下面的代码中的url）。

该页面上有一个单选按钮，我需要在其中选择ID“ RadioChk_2”，它的标签为“ both”。 有3个选择框和一个名为“导出到Excel”的按钮。第一个选择显示了值，例如Chandigarh（O4），其存储为值04。下面的代码尝试填写两个选择框，但不起作用。 请帮助或指出如何进一步发展。

提前致谢

Sub WebFormSubmit()
Dim IE As InternetExplorer, URL As String, HTMLDoc As HTMLDocument
Set IE = New InternetExplorer
URL = "http://censusindia.gov.in/2011census/Listofvillagesandtowns.aspx"
IE.navigate URL
IE.Visible = True
Do While IE.Busy Or IE.readyState <> READYSTATE_COMPLETE
    DoEvents
    Loop
Set HTMLDoc = IE.document
HTMLDoc.getElementById("drpstate").Value = "Chandigarh(04)"
HTMLDoc.getElementById("drpstate").FireEvent "onchange"
HTMLDoc.getElementById("drpDistrict").Value = "All"

 'Wait for the response
Do While IE.Busy Or IE.readyState <> READYSTATE_COMPLETE
    DoEvents
    Loop
IE.Quit
End Sub

Answer 1

我尝试这样，它奏效了

HTMLDoc.getelementbyid("drpstate").selectedindex = 6
HTMLDoc.getelementbyid("drpstate").FireEvent "onchange"
t = Timer
Do While IE.Busy Or IE.readyState <> READYSTATE_COMPLETE Or Timer - t < 1.5
 DoEvents
Loop
HTMLDoc.getelementbyid("drpDistrict").selectedindex = 1

t是一个

Answer 2

我无法完全测试，因为我不知道输入框2和3的正确3位和5位代码，但是以下内容确实单击了所需的单选按钮，与输入框进行交互，然后单击“导出到Excel” ”按钮。 它至少应该为您提供进一步工作的指导。

Sub WebFormSubmit()
Dim IE As InternetExplorer, URL As String, HTMLDoc As HTMLDocument

Set IE = New InternetExplorer

URL = "http://censusindia.gov.in/2011census/Listofvillagesandtowns.aspx"
IE.navigate URL
IE.Visible = True
Do While IE.Busy Or IE.readyState <> READYSTATE_COMPLETE
    DoEvents
Loop

HTMLDoc.getelementbyid("RadioChk_2").Checked = True
HTMLDoc.getelementbyid("drpState").Value = "04"
HTMLDoc.getelementbyid("drpDistrict").Value = "123"
HTMLDoc.getelementbyid("drpsubdistrict").Value = "12345"

HTMLDoc.getelementbyid("btnXls").Click

' Wait for the response
Do While IE.Busy Or IE.readyState <> READYSTATE_COMPLETE
    DoEvents
Loop

IE.Quit
End Sub