Outlook vba 如何自动确认下载文件时IE弹出的 是否保存或打开来自 X.COM 的X吗？

cdw200806

就是点击下载之后IE会弹出的一个对话框，可以选择打开，保存，取消。保存那个按钮还能下拉另存为。




我的代码

   Dim IE
   Set IE = CreateObject("InternetExplorer.application")
   IE.Visible = True
   
   IE.Navigate URL:="http://w3.huawei.com/axe/servlet/download?dlType=ebs&fileName=20180305/o_13907716_20180305232258.csv.zip&runId=13907716"
   
   Do Until IE.Readystate = 4    '  检查网页是否加载完毕（4表示完全加载）
   DoEvents                ' 循环中交回工作权限给系统，以免“软死机”
Loop




因为我的IE自动保存了用户名密码，所以到这里位置网页就已经打开了。并且提示是否下载文件。
我本来是想模拟 TAB  按键，再模拟ＥＮＴＥＲ按键搞定。但是不知道为什么一直失效。

timeie = DateAdd("s", 0.5, Now())
SendKeys "{TAB}", True
timeie = DateAdd("s", 0.5, Now())
SendKeys "{TAB}", True
timeie = DateAdd("s", 0.5, Now())
SendKeys "{TAB}", True

我的代码能够编译通过，但是ＴＡＢ啊就是不管用。

听说setfocus好像比较管用，但是我这种情况具体代码怎么写呢？求助各位大神。

cdw200806

怎么focus啊。
  
   ie.SetFocus

这样提示对象不支持该属性或方法

cdw200806

或者有没有人能帮忙看下我的.bat里面打开URL这句话有没有问题：
@echo off
< "%~f0" more +4 > MEYN.vbs
cscript //nologo MEYN.vbs & del MEYN.vbs
goto :eof
set ierunner = CreateObject("wscript.shell")
ierunner.run "cmd /c start iexplore http://w3.huawei.com/axe/servlet/download?dlType=ebs&fileName=20180305/o_13907716_20180305232258.csv.zip&runId=13907716",0


我感觉用这个Run方法打开URL 似乎忽略了我URL ？之后的URL参数。

又没有人能帮助下。如果这个问题能解决，我就不用VBA了，用.bat

cdw200806

ierunner.run "cmd /c start iexplore http://w3.huawei.com/axe/servlet/download?dlType=ebs&fileName=20180305/o_13907716_20180305232258.csv.zip&runId=13907716",0
顺便请大神看看这句．ｂａｔ有什么问题。
我感觉我打开的时候应该是不全的，最后页面没有正常打开。是不是？之后的ＵＲＬ参数都给我忽略了，有没有什么解决方案呢。如果这个能搞定，那我就不用ｖｂａ写了

cdw200806

我搞定了。
这个东西是因为IE11里面下载提示不再用对话框，而是提示框。。。所以网上的很多代码不能用
最后是通过360浏览器搞定的。这个浏览器确实强大。
只要提前用.bat调用360浏览器。上述代码就会调用360打开下载界面。
而360不仅能做到无感知登录，还能设置下载时不予提示。。。
还有默认下载路径也能设置。非常好用

choudanzi888

公司内网无法使用360，只能IE11，咋办，VBA就搞不定了吗？因为下载报表很多，手动下载，总出错还眼花