Bom dia.

Solicito uma ajuda, tenho um codigo que seria:

1 - para acessar um site,

2 - no calendario no campo inicio e no campo fim inserir uma data que é sempre mes fechado ex: 01/05/2024 e 30/05/2024.

3- campo Motivo escolher o item PO - SEGURANÇA

4 - depois clicar no botão Filtrar.

Mas está dando erro " Erro de Compilação / erro de sintaxe", onde deixei em negrito:

==========================================================

Sub principal para executar a automação
Sub AutomacaoFormulario()

' Definir variáveis para os dados a serem inseridos
Dim dataInicial As String
Dim dataFinal As String
Dim motivo As String

' Obter dados da planilha
dataInicial = Range("Plan1!A2").Value
dataFinal = Range("Plan1!B2").Value
motivo = "PO - SEGURANÇA"

' Abrir o Chrome e navegar até a URL desejada
Dim driver As Selenium.WebDriver
Set driver = New ChromeDriver ' Inicie o ChromeDriver
driver.Navigate "https://appintranet.cptm.sp.gov.br/operacao/manifestacao_usuario/descritivo.asp#"

' Localizar e preencher o campo txtDtIni
Dim campoDataInicial As Selenium.WebElement
Set campoDataInicial = driver.FindElement By Id "#txtDtIni"
campoDataInicial.SendKeys dataInicial

' Localizar e preencher o campo txtDtFim
Dim campoDataFinal As Selenium.WebElement
Set campoDataFinal = driver.FindElement By Id "txtDtFim"
campoDataFinal.SendKeys dataFinal

' Localizar e selecionar o valor no campo slt_Motivo
Dim campoMotivo As Selenium.WebElement
Set campoMotivo = driver.FindElement By Id "slt_Motivo"
campoMotivo.SelectItem motivo

' Localizar e clicar no botão filtrar
Dim botaoFiltrar As Selenium.WebElement
Set botaoFiltrar = driver.FindElement By Id "input#btnFiltrar.botaoform"
botaoFiltrar.Click

' Pausar a execução por alguns segundos para permitir que a página seja carregada
Application.Wait (5) ' Ajuste o tempo de espera conforme necessário

' Fechar o navegador Chrome (opcional)
'driver.Quit

End Sub

=====================================

este é o codigo fonte quando inspeciono o campo "txtDIni" :

<input type="text" name="txtDtIni" id="txtDtIni" alt="txtDtIni" style="vertical-align:middle; width: 70px;" maxlength="10" size="8" class="invokeBoth imputBR hasDatepicker" title="Clique para exibir calendário" onblur="Javascript:FiltroData(this, event);ValidaData(this,this.value);" onkeyup="return FiltroData(this, event);" onkeydown="return BlockEnter(event);" onclick="select_all(this)">

 

é possivel saber onde está o erro ?