AxWebBrowser屏蔽另存为对话框

[lizhengnan]

我想用AxWebBrowser打开EXCEL文件,在Navigate以后总是出现别存为对话框,怎么才能不显示这个对话框.

以前做过,但是忘了怎么做的了,只记得好像是

    Private Sub awbDocumentBrowser_DocumentComplete(ByVal sender As System.Object, ByVal e As AxSHDocVw.DWebBrowserEvents2_DocumentCompleteEvent) Handles awbDocumentBrowser.DocumentComplete
        If awbDocumentBrowser.ReadyState = SHDocVw.tagREADYSTATE.READYSTATE_COMPLETE Then
            CType(awbDocumentBrowser.Document, HtmlDocument).ExecCommand("SaveAs", False, "")
        End If
    End Sub

但现在这个又不太好使.

在线等,谢谢.

[lizhengnan]

自己顶一下

[Forrest23]

Dim ea As New Excel.Application
ea.DisplayAlerts = False