我一直在搜索如何在使用IE下载文件时按保存,并将文件以特定名称保存在特定位置。 This is the screen as fas as I go with vba code
到目前为止,我的代码看起来像这样:
Sub BrowseToSite()
Dim IE As New SHDocVw.InternetExplorer
Dim HTMLDoc As MSHTML.HTMLDocument
Dim HTMLInput As MSHTML.IHTMLElement
Dim HTMLButtons As MSHTML.IHTMLElementCollection
Dim HTMLButton As MSHTML.IHTMLElement
IE.Visible = True
IE.navigate "cboe.com/delayedquote/quote-table-download"
Do While IE.readyState <> READYSTATE_COMPLETE
Loop
Set HTMLDoc = IE.document
Set HTMLInput = HTMLDoc.getElementById("ContentTop_C005_txtTicker")
HTMLInput.Value = "DJX"
Set HTMLButtons = HTMLDoc.getElementsByClassName("button blue")
HTMLButtons(0).Click
End Sub
我看过的所有其他来源对我来说都没有用,也许我错过了一些东西。 SendKeys没有工作,我认为这应该是实现按下保存按钮的最简单方法。我应该使用什么代码?