VBA Selenium Chromedriver-SetPreferences关闭“另存为”对话框不起作用

时间:2018-11-04 20:19:28

标签: excel vba excel-vba selenium selenium-chromedriver

enter image description here所以我有了这个程序,该程序可以打开要保存的PDF。我以为我会使用SetPreferences来绕过这个SaveAs对话框,但这又是该对话框。任何人都能成功通过SetPreferences关闭“另存为”对话框?

我是否要在程序的错误位置设置这些首选项?我的理解是它是在机器人启动之前发生的。

Sub CompanyName()

Dim bot As New Selenium.WebDriver

MyFolder = ThisWorkbook.Path
bot.SetPreference "download.default_directory", MyFolder
bot.SetPreference "download.directory_upgrade", True
bot.SetPreference "download.prompt_for_download", False

bot.Start "Chrome", "https://www.intacct.com/ia/acct/login.phtml?[![enter image description here][1]][1]_ga=2.13247287.1007588550.1536894830-1229002215.1536894830"
bot.Get "/"


bot.FindElementById("company").SendKeys "Company ID"
bot.Wait 500
bot.FindElementById("login").SendKeys "Username"
bot.Wait 500
bot.FindElementById("passwd").SendKeys "Password"
bot.Wait 500
bot.FindElementById("retbutton").Click

Stop

'bot.SwitchToParentFrame
Dim menuitem As WebElement
Set menuitem = bot.FindElementByCss("#mainmenu > div > div:nth-child(7) > div.iamenutitlewrapper > span")

bot.Actions.MoveToElement(menuitem).Perform
bot.FindElementByXPath("//span[@class='iamenutitle'][contains(text(),'Accounts Payable')]").Click
bot.FindElementByCss("#mainmenu > div > div:nth-child(7) > div.iamenu.mega.setup-closed > div > div > table > tbody > tr:nth-child(5) > td:nth-child(2) > span:nth-child(2)").Click
bot.SwitchToFrame "iamain"

bot.FindElementByName("F_RECORDID").SendKeys "123"
bot.SendKeys bot.Keys.Enter
bot.Wait 500
bot.FindElementByLinkText("View").Click
bot.Wait 500
bot.FindElementByCss("span.buttons.view_attachment").Click
bot.SwitchToNextWindow
bot.SendKeys bot.Keys.Control, "s"

1 个答案:

答案 0 :(得分:0)

代码似乎没问题! 也许原因可能是Selenium驱动程序版本。 尝试在chromedriver的官方链接上更新enr驱动程序。

我希望它能对您有所帮助。 最好的祝福, 佩德罗·阿扎姆。