Workbook.FollowHyperlink打开一个确定/取消对话窗口
我正在用Workbook.FollowHyperlink方法下载/打开一个excel文件。
问题是我想自动化的过程,但方法打开一个对话框确定/取消告诉我,这个文件可能会损害我的电脑,如果我真的想要打开它。
码
Dim strURL As String strURL = "https://app1.intra.corp/A997/EnCours/Configs?Download=Exporter" ThisWorkbook.FollowHyperlink (strURL)
我search并尝试了很多事情,以避免任何成功。
我试过了:
-
添加registry项以禁用Office的超链接警告。
-
进入excel选项,隐私设置和禁用委托的网站保护或任何它被称为。
-
使用Application.SendKeys并尝试发送“回车”来回答对话框。
-
Application.EnableEvents = False
和Application.DisplayAlerts = False
。 (除了这个之外,它适用于其他所有的对话框) -
在Internet Explorer选项中将网站添加到我信任的网站列表(注意:我无法这样做,因为这些设置被我的公司locking)
你有没有尝试过
Workbooks.Open("https://app1.intra.corp/A997/EnCours/Configs?Download=Exporter")
代替? 这应该工作。