Notifications
Clear all

VBA - inserir data no calendário e Filtrar

2 Posts
1 Usuários
0 Reactions
481 Visualizações
(@marcos-santiago)
Posts: 2
New Member
Topic starter
 

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 ?

 

 

 

 
Postado : 28/05/2024 5:13 am
Tags do Tópico
(@marcos-santiago)
Posts: 2
New Member
Topic starter
 

Inicio

<INPUT onclick=select_all(this) onkeyup="return FiltroData(this, event);" onblur="Javascript:FiltroData(this, event);ValidaData(this,this.value);" id=txtDtIni title="Clique para exibir calendário" class="invokeBoth imputBR hasDatepicker" onkeydown="return BlockEnter(event);" style="WIDTH: 70px; VERTICAL-ALIGN: middle" alt=txtDtIni maxLength=10 size=8 value=29/05/2024 name=txtDtIni jQuery1717040477273="3"> value="29/05/2024" /

Fim

<INPUT onclick=select_all(this) onkeyup="return FiltroData(this, event);" onblur="Javascript:FiltroData(this, event);ValidaData(this,this.value);" id=txtDtFim title="Clique para exibir calendário" class="invokeBoth imputBR hasDatepicker" onkeydown="return BlockEnter(event);" style="WIDTH: 70px; VERTICAL-ALIGN: middle" alt=txtDtFim maxLength=10 size=8 value=29/05/2024 name=txtDtFim jQuery1717040477273="5"> value="29/05/2024" /

 

a intenção é que o codigo altere essas datas em negrito, sempre pelo primeiro dia do mes e pelo ultimo,

 
Postado : 30/05/2024 12:47 am