eis o código:
Sub CleanAndAutomateWithValidationAndErrorHandling()
Dim bot As New WebDriver
Dim Keys As New Selenium.Keys
Dim rng As Range
Dim cell As Range
Dim valor As String
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("PROCESSOS MS")
' Remove linhas vazias da coluna A
ws.Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Set rng = ws.Range("A2:A" & ws.Cells(Rows.Count, "A").End(xlUp).Row)
bot.Start "chrome"
bot.Get "https://pje1g.trf1.jus.br/pje/login.seam"
Application.Wait Now + TimeValue("0:00:20")
bot.Get "https://pje1g.trf1.jus.br/pje/Processo/ConsultaProcesso/listView.seam"
Application.Wait Now + TimeValue("0:00:20")
For Each cell In rng
' Armazena o valor da célula atual em uma variável
valor = cell.value
' Divide os dígitos da numeração
Dim digito1to7 As String
Dim digito8to9 As String
Dim digito10to13 As String
Dim digito17to20 As String
digito1to7 = Left(valor, 7)
digito8to9 = Mid(valor, 8, 2)
digito10to13 = Mid(valor, 10, 4)
digito17to20 = Mid(valor, 17, 4)
' Preenche os campos na página usando os IDs específicos
bot.FindElementById("fPP:numeroProcesso:numeroSequencial").SendKeys digito1to7
bot.FindElementById("fPP:numeroProcesso:numeroDigitoVerificador").SendKeys digito8to9
bot.FindElementById("fPP:numeroProcesso:Ano").SendKeys digito10to13
bot.FindElementById("fPP:numeroProcesso:NumeroOrgaoJustica").SendKeys digito17to20
' Pressiona Enter
bot.FindElementByXPath("//*[@id=""fPP:numeroProcesso:NumeroOrgaoJustica""]").SendKeys Keys.Enter
' Aguarda 5 segundos
Application.Wait Now + TimeValue("0:00:05")
Next cell
Set bot = Nothing
End Sub
Sub FillFieldWithID(bot As WebDriver, fieldID As String, value As String)
Dim inputField As WebElement
Set inputField = bot.FindElementByXPath("//*[@id=""" & fieldID & """]")
' Limpa o campo de texto antes de preencher
inputField.Clear
' Preenche o campo com o valor
inputField.SendKeys value
End Sub
Sub MoveToSheet(cell As Range, destSheet As Worksheet)
cell.EntireRow.Copy destSheet.Rows(destSheet.Cells(Rows.Count, "A").End(xlUp).Row + 1)
Application.CutCopyMode = False
End Sub
Function IsTRF1(value As String) As Boolean
' Verifica se o valor é do TRF1 (14º dígito é 4, 15º é 0 e 16º é 1)
If Len(value) = 20 And Mid(value, 14, 1) = "4" And Mid(value, 15, 1) = "0" And Mid(value, 16, 1) = "1" Then
IsTRF1 = True
Else
IsTRF1 = False
End If
End Function
