Как навести курсор на начальную позицию текстового поля с предварительно вставленными косыми чертами (_ _ / _ _ / _ _ _ _) для поля даты в VBA

Question

У меня есть текстовое поле, в котором уже есть косые черты (_ / / _ _ _). Проблема, с которой я сталкиваюсь, заключается в том, что курсор находится в конце текстового поля и не принимает дату, поскольку дата вводится из начальной позиции текстового поля. Значение, которое я передаю, находится в этом формате ("mmddyyyy").

Dim BirthDate As String
BirthDate = Format(Range(cell).Value, "mmddyyyy")

bot.FindElementByXPath("//*[@id='DateOfBirth']").SendKeys BirthDate 
' when I run this line the cursor goes to the last position in the textbox.

Как установить фокусировку курсора в начальную позицию. Сценарий, который я написал, относится к автоматизации VBA с использованием селенового веб-драйвера chromedriver.

Answer 1

Полагаю, вы объявили что-то вроде

Dim bot As New Selenium.ChromeDriver

Так объявите и там

Dim Keys As New Selenium.Keys

и вы можете использовать что-то вроде

Dim BirthDate As String
BirthDate = Format(Range(cell).Value, "mmddyyyy")

bot.FindElementByXPath("//*[@id='DateOfBirth']").SendKeys Keys.Home
bot.FindElementByXPath("//*[@id='DateOfBirth']").SendKeys BirthDate 

Answer 2

Попробуйте это:

Dim BirthDate As String
BirthDate = Format(Range(cell).Value, "mmddyyyy")

bot.FindElementByXPath("//*[@id='DateOfBirth']").SendKeys(Keys.Home)
bot.FindElementByXPath("//*[@id='DateOfBirth']").SendKeys(BirthDate)