Question

我正在尝试通过excel上的按钮自动从box.com打开电子表格。代码执行在下面，但是当代码试图按下“框编辑”按钮（小铅笔图形）时，Google Chrome会阻止“Box Edit”打开电子表格。我已经尝试了摆脱弹出窗口拦截器的正常过程，即“始终允许来自此站点的弹出窗口”“在chrome中设置下输入box.com”。在我手动拉盒子的代码之外它会读取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

Answer 1

我想出了一个解决方法并添加到我的代码中。（下同）

selenium.Start "chrome", "Chrome://plugins"
selenium.setTimeout ("120000")
selenium.setImplicitWait (5000)
selenium.Open ""
selenium.clickAndWait "id=npBoxEdit.dll-always-allowed"
Application.SendKeys "^l", True
DoEvents
Application.SendKeys "https://box.com/files/0/f/"
Application.SendKeys "{Return}"

通过谷歌浏览器访问box.com excel电子表格。 PopUp插件拦截器

1 个答案: