Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Inserir parametros no site do google!

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.
Raygsson
Manda bem
Manda bem
Mensagens: 118
Registrado em: Sex Jan 31, 2020 8:06 pm

Re: Inserir parametros no site do google!

Mensagem por Raygsson »

Como falei ai em cima existe sim, não tem segredo, o código serve apenas pra fazer o download.
Neste seu projeto das leis pro exemplo, este código não vai servir se você não tiver os links/url necessárias.
Neste sentido crie algum projeto, obtenha um link/url válida e por ultimo use a função de download, basicamente a estrutura é essa.


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.


TUVOK
Colaborador
Colaborador
Mensagens: 73
Registrado em: Ter Jul 21, 2015 9:44 am

Re: Inserir parametros no site do google!

Mensagem por TUVOK »

E se eu tiver não uma mas varias urls, e precisar inserir alguma coisa nas paginas?
Posso trocar o endereço através de um laço, mas como faço para inserir palavras na caixa de texto de pesquisa?
Só conheço usando xpath e sendkeys e seu código não permite.


TUVOK
Colaborador
Colaborador
Mensagens: 73
Registrado em: Ter Jul 21, 2015 9:44 am

Re: Inserir parametros no site do google!

Mensagem por TUVOK »

Posso aproveitar e perguntar outra coisa:
Como faço no VBA para pegar uma numeração numa página web que esteja do lado de uma palavra específica, tipo como eu uso o FIND e o OFFSET no excel?


Raygsson
Manda bem
Manda bem
Mensagens: 118
Registrado em: Sex Jan 31, 2020 8:06 pm

Re: Inserir parametros no site do google!

Mensagem por Raygsson »

Pra qualquer manipulação na página esqueça este código, vai ter que aprender a usar Selenium ou Internet Controls. Pra te ajudar vou colocar aqui um código que fiz para pesquisar no Linkedin e capturar o link dos perfis listados, tem muitos comandos de Selenium pra voce estudar. Além disso aprenda um pouco de HTML/CSS , vai precisar.

Código: Selecionar todos

Sub Linkedin()
Dim GC As New ChromeDriver 'DEFINI OBJETO CHROME DRIVER
Dim keys As New Selenium.keys 'DEFINE OBJETO KEYS PARA ENVIO DE INFORMAÇÕES/COMANDOS

Login.Show
 
 With GC
        .Start
        .Window.Maximize
        .get "https://www.linkedin.com/login"
         Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 2)
        .FindElementById("username").Clear
        .FindElementById("password").Clear
        .FindElementById("username").SendKeys (EmailLK)
        .FindElementById("password").SendKeys (SenhaLK)
        .FindElementByTag("button").Click
         Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 2)

        .FindElementByCss("input[class = 'search-global-typeahead__input always-show-placeholder']").Click
         Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 2)
        .FindElementByCss("input[class = 'search-global-typeahead__input always-show-placeholder']").SendKeys Pesquisa
        .SendKeys (keys.Enter)
         Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 3)
         
         Set Status = .FindElementsByClass("search-no-results__container")
         If Status.Count > 0 Then
                If InStr(Status.Item(1).Text, "Nenhum resultado encontrado") > 0 Then GoTo fim
         End If
       
         minhaurl = .Url
         
         i = 3: pag = 1:  cap = 0
         Do While CCur(cap) <= CCur(Meta)
         
                .get minhaurl & "&page=" & pag
                 Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 2)
                 
                Set Status = .FindElementsByClass("search-no-results__container")
                If Status.Count > 0 Then
                       If InStr(Status.Item(1).Text, "Nenhum resultado encontrado") > 0 Then GoTo prox
                End If
                                    
               .ExecuteScript ("window.scrollTo(0, 900);")
                Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 3)
            
                For Each usuario In .FindElementsByClass("search-result__wrapper")
                   Set link = usuario.FindElementsByTag("a").Attribute("href")
                   If link.Item(1) <> "#" Then                   
                            Plan4.Cells(i, "A") = "https://www.linkedin.com" & link.Item(1)
                            i = i + 1
                            cap = cap + 1
                            If CCur(cap) >= CCur(Meta) Then GoTo prox                            
                   End If
                Next
                
         pag = pag + 1
         Loop
                  
fim:
         .Quit
        
 End With


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.


TUVOK
Colaborador
Colaborador
Mensagens: 73
Registrado em: Ter Jul 21, 2015 9:44 am

Re: Inserir parametros no site do google!

Mensagem por TUVOK »

Desculpa, mas não está funcionando.


Raygsson
Manda bem
Manda bem
Mensagens: 118
Registrado em: Sex Jan 31, 2020 8:06 pm

Re: Inserir parametros no site do google!

Mensagem por Raygsson »

Não deve funcionar apenas copiado e colando, te passei como exemplo dos comandos. Você precisaria fazer alguns pequenos ajustes, além de ter na sua máquina o Selenium e Chorme Driver configurados.


TUVOK
Colaborador
Colaborador
Mensagens: 73
Registrado em: Ter Jul 21, 2015 9:44 am

Re: Inserir parametros no site do google!

Mensagem por TUVOK »

Os tenho, e até já identifiquei o prox trocado por fim, mas a cada ajuste aparece outro erro.
To louco para estudá-lo mesmo, mas imaginei que ele estaria funcionando só para eu adaptá-lo.
Mas não quero abusar, você já me ajudou muito.
Valeu muito pela atenção e o carinho!


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.


Responder