Workbook.FollowHyperlink打开ok / cancel对话框窗口

Question

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

问题是我想自动化该过程，但该方法打开一个对话框ok / cancel告诉我这个文件可能会损害我的电脑，如果我真的想打开它。

CODE

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

我搜索并尝试了许多事情，没有任何成功。

我试过了：

1. 添加注册表项以禁用办公室的超链接警告。

2. 进入excel选项，隐私设置和禁用委托网站保护或其他任何内容。

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

4. Application.EnableEvents = False和Application.DisplayAlerts = False。 （它适用于除此之外的所有其他对话框）

5. 在Internet Explorer选项中将网站添加到我信任的网站列表中（注意：由于我的公司锁定了这些设置，我无法执行此操作）

Answer 1

你试过吗

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

代替？这应该有用。