【发布时间】:2015-01-28 20:04:44
【问题描述】:
我正在尝试通过 Excel 上的按钮自动从 box.com 打开电子表格。代码执行如下,但是当代码尝试按下“框编辑”按钮(小铅笔图形)时,谷歌浏览器会阻止“框编辑”打开电子表格。我已经尝试了摆脱弹出窗口阻止程序的正常过程,即“始终允许来自该站点的弹出窗口”“在 chrome 中的设置下输入 box.com”。在代码之外,当我手动拉取 box 时,它读取 box.com 是允许的,但由于某种原因,当代码执行时,它就像是用原始设置打开了一个新的 chrome,因此阻止了插件。我提前为 sendkeys 道歉,不精通 excel 的 selenium 插件。请帮助,从字面上看,代码按预期执行,但弹出窗口阻止程序不允许下载电子表格。谢谢!
Sub openChrome()
Dim selenium As New SeleniumWrapper.WebDriver
Dim GC As Object
Dim intRowRowPosition As Integer
Dim keys As New SeleniumWrapper.keys
selenium.Start "chrome", "https://box.com/files/0/f/*********"
selenium.setTimeout ("120000")
selenium.setImplicitWait (5000)
selenium.Open ""
Application.Wait (Now + TimeValue("00:00:03"))
SendKeys "emailaddress", True
Application.SendKeys "{Tab}"
DoEvents
Application.Wait (Now + TimeValue("00:00:03"))
SendKeys "password", True
Application.SendKeys "{Return}"
DoEvents
Application.SendKeys ("{NUMLOCK}")
Application.Wait (Now + TimeValue("00:00:05"))
selenium.clickAndWait "id=preview_header_edit_btn"
End Sub
【问题讨论】:
-
请注意。我想出了一个解决办法。在从 box.com 获取我的文件之前,我编写了一个宏来启用 box.com 插件。一个额外的层,但它现在可以工作。
标签: google-chrome excel plugins box vba