Workbook.FollowHyperlink打开一个确定/取消对话窗口

我正在用Workbook.FollowHyperlink方法下载/打开一个excel文件。

问题是我想自动化的过程,但方法打开一个对话框确定/取消告诉我,这个文件可能会损害我的电脑,如果我真的想要打开它。

Dim strURL As String strURL = "https://app1.intra.corp/A997/EnCours/Configs?Download=Exporter" ThisWorkbook.FollowHyperlink (strURL) 

我search并尝试了很多事情,以避免任何成功。

我试过了:

  1. 添加registry项以禁用Office的超链接警告。

  2. 进入excel选项,隐私设置和禁用委托的网站保护或任何它被称为。

  3. 使用Application.SendKeys并尝试发送“回车”来回答对话框。

  4. Application.EnableEvents = FalseApplication.DisplayAlerts = False 。 (除了这个之外,它适用于其他所有的对话框)

  5. 在Internet Explorer选项中将网站添加到我信任的网站列表(注意:我无法这样做,因为这些设置被我的公司locking)

你有没有尝试过

 Workbooks.Open("https://app1.intra.corp/A997/EnCours/Configs‌​?Download=Exporter") 

代替? 这应该工作。