ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

SELENIUMBASIC DUVIDA

A Web está aí, não há como negar. Ela é onipresente em praticamente toda operação eletrônica realizada nos dias de hoje. Como não podia ser diferente, o Excel, ferramenta máxima para analistas e profissionais das mais diversas áreas do mercado precisa estar alinhado com esta necesssidade. E ele está! Neste forum, o debate é focado em expor dúvidas, sugestões, modelos de código e exemplos de uso do Excel na Integração com tecnologias Web.
elder_m.a
Acabou de chegar
Acabou de chegar
Mensagens: 1
Registrado em: Qua Dez 25, 2019 9:18 pm

SELENIUMBASIC DUVIDA

Mensagem por elder_m.a » Qui Dez 26, 2019 1:18 pm

Sou novo nesse ramo, e estou tendo algumas dificuldades...

Segui seu tutorial no video ate usei os mesmos nomes para o teste.
Mas como sou muito cru preciso de entender...

Código: Selecionar todos

Public Sub ObterDadosDoMeuSiteAntigo()
 Dim driver As New Selenium.ChromeDriver
  Set driver = New ChromeDriver
    Dim destino As Range
    Dim data()
Set destino = Range("D1")
    driver.Get "http://skybrasil.force.com/credenciado"
    
    
    While Busy
    Application.Wait TimeSerial(Hour(Now), Minute(Now), Second(Now) + 1) ' aqui espera o site Carregar
    DoEvents:
    Wend

        driver.FindElementByName("username").SendKeys Range("A2") ' aqui eu to puxando o usuário da range I5
        driver.FindElementById("password").SendKeys Range("B2") ' aqui eu to puxando o Senha da range I5
        ' pode existir vários métodos para encontrar o elemento.
        'driver.FindElementByID
        'driver.FindElementByLinktext
        '(Dentro do parenteses tu coloca o elemento inspecionado

        While Busy
        Application.Wait TimeSerial(Hour(Now), Minute(Now), Second(Now) + 1)
        DoEvents:
        Wend

        driver.FindElementByName("Login").Click ' Clicando no botão logar
        
        
        Application.Wait Now + TimeValue("00:00:02")
        
        While Busy
        Application.Wait TimeSerial(Hour(Now), Minute(Now), Second(Now) + 1)
        DoEvents:
        Wend
        
        
        On Error Resume Next
        driver.FindElementByXPath("//*[@id=""thePage:j_id2:i:f:pb:d:chk_confirma_novo_login.input""]").Click
        
        Application.Wait Now + TimeValue("00:00:02")
        
        On Error Resume Next
        driver.FindElementByXPath("//*[@id=""thePage:j_id2:i:f:pb:pbb:nextAjax""]").Click
        
        While Busy
        Application.Wait TimeSerial(Hour(Now), Minute(Now), Second(Now) + 1)
        DoEvents:
        Wend
        
        
        Application.Wait Now + TimeValue("00:00:02")
        
        driver.Get "https://skybrasil.force.com/credenciado/s/detail/0061I00000Lj5yiQAB"
    
        While Busy
        Application.Wait TimeSerial(Hour(Now), Minute(Now), Second(Now) + 1)
        DoEvents:
        Wend
 
        Application.Wait Now + TimeValue("00:00:10")
 
 
    Debug.Print "Frames encontrados no documento pai: " & driver.FindElementsByTag("span").Count
 
 '   Call driver.SwitchToFrame("principal")
 
    Debug.Print "Frames encontrados no frame principal: " & driver.FindElementsByTag("span").Count
 
    Dim itens As WebElements, item As WebElement
    Set itens = driver.FindElementsByTag("span")
    

    driver.Quit
    
End Sub
Quando executo este codigo, ele me retorna todos os valores que estão nas tags span
Mas eu quero pegar estes valores e colocar no excel
Eu usei seu codigo para ver se conseguia localizar os valores e deu certo
ele aparece na verificação do vba
mas eu nao consigo de forma nenhuma pegar os valores e jogar na planilha,
Editado pela última vez por elder_m.a em Sex Dez 27, 2019 5:47 pm, em um total de 1 vez.



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
webmaster
Administrador
Mensagens: 2816
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: SELENIUMBASIC DUVIDA

Mensagem por webmaster » Sex Dez 27, 2019 11:17 am

Elder,

Analisei seu tópico por um tempo mas não consegui entender o que quer. Pode elaborar melhor?


Tomás
https://www.tomasvasquez.com.br/blog
https://www.tomasvasquez.com.br/cursocsharp
https://twitter.com/tomamais
Se sua dúvida foi solucionada, acrescente [RESOLVIDO] ao título.

Responder