Question

我希望使用Excel VBA保存网页的HTML。使用ExecWB 4, 2除了确认对话框外，效果很好。尽管有2个含义OLECMDEXECOPT_DONTPROMPTUSER，我无法将其关闭:(

我一直在努力寻找解决方案而没有运气。

此外 - 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

Answer 1

您是否尝试将Application.DisplayAlerts = False放在发生提示的行之前？

请确保在以下相关行之后重新打开：Application.DisplayAlerts = True

无法停止与ExecWB 4,2对话框

1 个答案: