Question

我正在尝试下载一些碳排放数据。我可以通过URL预先加载相关设置的页面。它加载正常，我可以通过其ID单击确定按钮，然后我在底部获得IE11 - 打开/保存/取消对话。我已尝试使用FindWindows（＃32770）和发送密钥的所有建议，这是非常不可靠的。有人可以建议操作此对话框的代码，或者可能检查网页上的HTML以查看是否可以直接下载？

Dim htm As Object
Dim IE As Object
Dim Doc As Object

Set IE = CreateObject("internetexplorer.application")
IE.Visible = True
IE.Navigate "http://ec.europa.eu/environment/ets/exportEntry.do?form=accountAll&permitIdentifier=&accountID=&installationIdentifier=&complianceStatus=&account.registryCodes=CY&primaryAuthRep=&searchType=account&identifierInReg=&mainActivityType=&buttonAction=&account.registryCode=&languageCode=en&installationName=&accountHolder=&accountStatus=&accountType=&action=&registryCode="
Do While IE.readystate <> 4: DoEvents: Loop
Set Doc = CreateObject("htmlfile")
Set Doc = IE.document
Doc.getelementbyID("btnOK").Click [embed=file 884739]

'I need code here which clicks the save as button as save the file as C:\temp.xml

Set IE = Nothing

Answer 1

考虑一下这个例子：

ETH_P_ALL

如何使用VBA在IE11中自动保存为对话框？

1 个答案: