如何检查是否出现打开/保存/取消栏

时间:2017-04-27 13:22:01

标签: excel-vba internet-explorer vba excel

我循环浏览网页上的元素

选择元素 单击按钮生成报告 单击链接下载报告 单击IE打开/保存/取消栏中的保存

Open/Save/Cancel dialog

看来,下载链接并不总是导致出现打开/保存/取消资源管理器。但是,如果第二次按下链接,则始终显示打开/保存/取消。我理想情况下应该检查为什么会发生这种情况,但作为一种捷径,我试图检查是否存在“打开/保存/取消”对话框,如果没有,请再次单击“下载”链接。以下是代码

For Each el In l
  If el.innertext = "View Bill" Then
  el.Click
  Application.Wait (Now + TimeValue("0:00:03"))
  If Application.Dialogs(xlDialogSaveAs).Show Then '.Show Then
  Application.SendKeys ("%s")
  Else
    el.Click 
    Application.Wait (Now + TimeValue("0:00:03"))
    Application.SendKeys ("%s")
    End If
    Else
  End If
Next el

我期待Application.Dialogs(xlDialogSaveAs)。显示检查保存栏是否存在。它可能会,但它可能没有,但Application.Sendkeys将Save命令发送到运行代码的工作簿,而不是保存对话框。

有关如何检查“保存”对话框或重点关注它的任何建议,以便Sendkeys有效吗?

谢谢。

0 个答案:

没有答案