控制 IE11 “你想打开/保存” VBA

Question

我在 VBA 上编写的代码有问题。我基本上是使用 vba 打开一个网站，输入信息，然后单击一个下载按钮，它会下载一个 csv，然后我可以将其复制并放入我的 excel 文件中。在单击下载按钮之前，我确实设法完成了所有工作。当我这样做时，IE11 会出现一个对话窗口，询问我是要保存还是打开文件。我不知道如何解决这个问题以及如何单击打开或保存。我已经尝试了 Controlling IE11 "Do you want to Open/Save" dialogue window buttons in VBA 中针对同一问题的解决方案中提到的所有内容，但即使我使用此解决方案，代码也会运行，但什么也没做。

我曾尝试使用 UIAutomation，但没有成功。我使用了Controlling IE11 "Do you want to Open/Save" dialogue window buttons in VBA 中提供的解决方案。我也尝试过使用 Sendkeys，但我不完全确定如何将焦点设置在 Internet Explorer 上，以便 sendkeys 做它们应该做的事情。

代码其实很简单

Sub GetHTMLDocument()

Dim ie As New SHDocVw.InternetExplorer
Dim HTMLDoc As HTMLDocument
Dim HTMLInput As MSHTML.IHTMLElement
Dim HTMLButtons As MSHTML.IHTMLElementCollection
Dim HTMLButton As MSHTML.IHTMLElement


ie.Visible = True
ie.Navigate "this is where i put the website"

Do While ie.ReadyState <> READYSTATE_COMPLETE
Loop

Set HTMLDoc = ie.Document
Set HTMLInput = HTMLDoc.getElementById("Search")
HTMLInput.Value = "Hello"
Set HTMLInput = HTMLDoc.getElementById("downloadCSV")
HTMLInput.Click


End Sub

不幸的是，我无法提供网站，也无法使用公共网站，之后我收到消息是在 Internet Explorer 上打开还是保存它

Answer 1

VBA interaction with internet explorer 可能重复

尽管对于这个特定问题，这个答案可能更清楚。

1) 将此添加到模块顶部 - 它创建一个函数，允许您为任何窗口提供焦点。我不知道细节。

Public Declare Function SetForegroundWindow Lib "user32" (ByVal HWND As Long) As Long

2) 修改此代码以品尝以便使用 SendKeys

        'give IE focus to prepare for SendKeys
            ' IE.HWND = the handle of the Windows Internet Explorer main window.
                Dim HWNDSrc As Long
                HWNDSrc = IE.HWND
                SetForegroundWindow HWNDSrc

        'Make sure IE is not busy
            Do While IE.Busy
                Application.Wait DateAdd("s", 1, Now)
            Loop

        'send Alt-S to save
            Application.SendKeys "%{S}"

        'Make sure IE is not busy
             Do While IE.Busy
                 Application.Wait DateAdd("s", 1, Now)
             Loop