自动打开一个下载的文件Excel VBA

我有一些代码去网站和login。然后，它按下“导出到Excel”button，并获取另存为对话框。 有什么办法可以按“打开”并打开文件？ 如果您需要网站上的任何HTML代码，请告诉我，因为这些信息是保密的。 提前致谢！！

Sub Download() Set IE = New SHDocVw.InternetExplorer IE.Visible = True IE.navigate "http://broomfield.flatironslibrary.org/" While IE.Busy DoEvents Wend Do Until Not IE.Busy And IE.readyState = 4 DoEvents Loop IE.document.getElementsByClassName("hidden-xs header-button header-primary")(0).Click Application.Wait (Now + #12:00:02 AM#) IE.document.getElementById("username").Value = "user" IE.document.getElementById("password").Value = "pass" IE.document.getElementsByClassName("btn btn-primary extraModalButton") (0).Click Application.Wait (Now + #12:00:02 AM#) IE.navigate ("http://broomfield.flatironslibrary.org/MyAccount/CheckedOut?exportToExcel") 'This is where the dialog box appears End sub