Excel Can'；t停止带有ExecWB 4、2的对话框

我想用Excel VBA保存网页的HTML。使用

ExecWB 4，2

除了确认对话框外，效果非常好。我无法关闭此选项，尽管2意味着(

我一直在苦苦寻找解决办法，但运气不佳

另外–sendkeys不起作用，因为在对话框关闭之前，程序不会离开ExecWB行。

URLDownloadToFile

也不起作用

代码如下：

Sub rmaster()    
    Set IE = CreateObject("InternetExplorer.Application")

    With IE
            .Visible = False
            .Navigate "http://www.google.com"            
            Do While IE.ReadyState <> 4
                DoEvents
            Loop
    End With

    IE.ExecWB 4, 2, pages & ".txt"
    IE.ExecWB 4, 2, pages & ".htm"
End Sub

Sub-rmaster（）
设置IE=CreateObject（“InternetExplorer.Application”）
与IE
.Visible=False
.导航“http://www.google.com"            
请稍等，即ReadyState 4
多芬特
环
以
IE.ExecWB 4，2，第页和“.txt”
IE.ExecWB 4，2，第页和“.htm”
端接头

您是否尝试将

Application.DisplayAlerts=False

放在出现提示的行之前

---

请确保在相关行之后使用以下命令将其重新打开：

Application.DisplayAlerts=True

我认为这是无法解决的。Msft支持>WebBrowser控件和Internet Explorer具有可用于使用ExecWB命令保存文件的“保存”和“另存为”选项。但是，这涉及到用户的提示。有无法抑制此提示。若要在没有提示的情况下将文件保存到硬盘，请使用URLMON中的URLDownloadToFile API。