excel 打开URL后,尝试填写数据并点击Chrome浏览器上的按钮

vbkedwbf  于 2022-12-01  发布在  其他
关注(0)|答案(1)|浏览(148)

我正在使用VBA Excel尝试通过Chrome打开一个URL来填写数据,然后点击提交按钮。
我能够编写打开URL的命令,但不确定如何继续键入数据并提交表单
我的代码开头为

Sub OpenHyperlinkInChrome()
 Dim chromeFileLocation As String
  Dim hyperlink As String
  hyperlink = "<URL OVER HERE>"
  chromeFileLocation = """C:\Program Files\Google\Chrome\Application\chrome.exe"""
  Shell (chromeFileLocation & "-url " & hyperlink)
  
 driver.FindElementByName("trackingId").Value = "123"
 driver.FindElementByID("epm-submit-button-announce").Click
End Sub

我在“driver.FindElementByName”上遇到语法错误。
我的字段HTML代码显示为

<input type="text" placeholder="Example: BLUE_SHOES_08. This information is for your tracking purposes." name="trackingId" class="a-input-text a-span12">

按钮HTML代码如下所示

<span id="epm-submit-button-announce" class="a-button-text a-text-center" aria-hidden="true">
        Submit
</span>

如何填写表单并提交?

2wnc66cl

2wnc66cl1#

问题是您在调用“driver”对象时没有定义它,甚至没有声明它。从代码上看,您似乎正在尝试使用Selenium,您是否安装了Selenium?安装Selenium后,您的代码应该如下所示:

Set driver = CreateObject("Selenium.ChromeDriver")
driver.start "chrome"
driver.Get "<URL OVER HERE>"
driver.FindElementByName("trackingId").SendKeys ("123")
driver.FindElementByID("epm-submit-button-announce").Click

相关问题