如何解决SendKeys会将新文本添加到旧文本中，因此如何替换现有文本
我绝不是程序员，我只是想在Excel工作簿中自动执行Chrome报表。
我正在使用VBA Selenium，需要将日期发送到文本字段。我用过FindElementByXPath和FindElementByName都可以。
obj.FindElementByName("filter_date_start_sold").Click – works
obj.FindElementByName("filter_date_start_sold").Clear – works
obj.FindElementByName("filter_date_start_sold").SendKeys ("01/08/2018").
这可行，但是它将新日期添加到“文本字段”中已经列出的日期，因此它变为01/08/202001/08/2018
我尝试使用.SendKeys（Keys.Backspace），但Back Space函数将无法执行任何操作。
Sub ChromeAutoSYD()
Dim obj As New WebDriver
obj.Start "chrome",""
Set IE = CreateObject("InternetExplorer.Application")
Obj.Get "I am sorry I cannot list the actual URL as it is a company DB Site"
'The Sheet reference is my login details and this all works well
obj.FindElementByName("username").SendKeys (ThisWorkbook.Sheets("Sheet3").Range("D20").Value)
obj.FindElementByName("password").SendKeys (ThisWorkbook.Sheets("Sheet3").Range("D21").Value)
obj.FindElementByXPath("/html/body/div/div/div/div/div/div/div[2]/form/div[3]/button").Click
obj.FindElementByXPath("/html/body/div[1]/div/div[2]/div/div[2]/div[3]/div[2]/div/div/input").SendKeys("01082018").Value
obj.FindElementByXPath("/html/body/div[1]/div/div[2]/div/div[2]/div[3]/div[4]/button").Click
Application.Wait (Now + TimeValue("0:00:05"))
End Sub
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。
