Abaixo o código:
Código: Selecionar todos
Dim driver As WebDriver, Keys As New Keys
Sub CanalCliente()
Dim Por As New By
Dim valor As String
Set driver = New ChromeDriver
tLogin = "/html/body/div[2]/div[1]/div[2]/form[1]/input[1]"
usuario = "txtUsuario"
With driver
.Start
.Get "https://www.canalcliente.com.br/portal/canal_cliente/index.htm"
If .IsElementPresent(Por.XPath(tLogin)) Then
.FindElementById(usuario).SendKeys ("teste")
Else
MsgBox "não localizado"
End If
End With
driver.Quit
End Sub
NoSuchElementError
Element not found for id=txtUsuario
já tentei por xpath, id, name, class, mas nesse site não localiza.
agradeço a atenção.