Estou com uma duvida. Preciso extrair informações de um site, porem preciso usar um IF e Else. Onde esta dando meu erro:
Private selenium As New SeleniumWrapper.WebDriver
Public Sub Inicio()
Dim DocTit As String 'documento
Dim Happy As String 'nascimento
Dim uC As String
Dim x As Integer
x = 5
While Sheets(1).Cells(x, "c") <> ""
x = x + 1
Wend
While Sheets(1).Cells(x, "B") <> ""
DocTit = Trim(Sheets(1).Cells(x, "a")) 'cpf
Happy = Trim(Sheets(1).Cells(x, "B")) 'data de nascimento
selenium.Start "chrome", "https://agenciaweb.celesc.com.br" 'abre site
selenium.setImplicitWait 5000
'selenium.setImplicitWait 5000
selenium.Open "/AgenciaWeb/autenticar/loginUC.do" 'acessa segunda via
selenium.setImplicitWait 1000
selenium.Type "id=numDoc", DocTit
selenium.setImplicitWait 2500
selenium.Type "id=dtaNascimentoDoc", Happy
selenium.Click "class=botao"
If .css = .textoErroMensagemNegrito Then (o erro esta aqui e não consigo descobrir como fazer)
Stop
End If
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Como criar Um situação Condicional com VBA Usando Selenium?
Moderador: Rafael Monteiro