Excel VBA控制IE对话框"您要打开还是保存"

时间:2017-05-17 12:40:24

标签: excel vba internet-explorer url download

我一直在搜索如何在使用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没有工作,我认为这应该是实现按下保存按钮的最简单方法。我应该使用什么代码?

0 个答案:

没有答案