Question

如何禁用IE询问打开或保存下载文件的消息。

我只想直接下载。没问题。

Answer 1

据我所知，我们无法禁用下载提示，但可以使用Application.SendKeys方法发送快捷键（Alt + S）的击键，以单击IE11中的保存按钮。

代码如下：

Sub downloadfile()

    Dim IE As Object, Data As Object
    Dim ticket As String

    Set IE = CreateObject("InternetExplorer.Application")

    With IE
        .Visible = True
        .navigate ("<the website url>")

        While IE.ReadyState <> 4
            DoEvents
        Wend

        Set Data = IE.Document.getElementsbyTagName("input")

        'Trigger the download button to download the file
        IE.Document.getElementbyId("btnDowloadReport").Click

        'wait the download prompt appear
        Application.Wait (Now + TimeValue("00:00:03"))

        '
        Application.SendKeys "%{s}"

    'Waiting for the site to load.
    'loadingSite
    End With
    Set IE = Nothing
End Sub

网页内容：

<a id="btnDowloadReport" href="https://research.google.com/pubs/archive/44678.pdf" download>Download</a>

摆脱“保存/打开”对话框

1 个答案: