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

[VIDEO] Interação VBA x Web - Consultando Rotas de Viagem

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.
Avatar do usuário
Mikel Silveira Fraga
Jedi
Jedi
Mensagens: 1173
Registrado em: Sex Mai 27, 2011 3:27 pm
Localização: Governador Valadares - MG
Contato:

[VIDEO] Interação VBA x Web - Consultando Rotas de Viagem

Mensagem por Mikel Silveira Fraga »

Bom dia a todos.

Neste vídeo, apresento uma solução de integração entre VBA e Web Site, fazendo uma comparação entre o Microsoft Internet Control e o Selenium Basic.

https://www.youtube.com/watch?v=JbmUTGYqz2M

Espero que gostem.


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.


wagner lucio
Acabou de chegar
Acabou de chegar
Mensagens: 6
Registrado em: Seg Set 03, 2018 5:03 pm

Re: [VIDEO] Interação VBA x Web - Consultando Rotas de Viagem

Mensagem por wagner lucio »

Boa tarde,

mike
comigo nao deu certo porque meu VBA esta gerando erro na variavel em cima do wsCities.

E ja estou com esta rotina montada.

porem preciso somente que o site abra dentro do meu excel em uma webbrowser


geovani.almeida
Acabou de chegar
Acabou de chegar
Mensagens: 3
Registrado em: Sáb Set 15, 2018 4:22 pm

Re: [VIDEO] Interação VBA x Web - Consultando Rotas de Viagem

Mensagem por geovani.almeida »

Parabéns o vídeo ficou muito bom!! Pena que parece existir um problema de compatibilidade entre o Selenium e o chrome atuais.


Avatar do usuário
Mikel Silveira Fraga
Jedi
Jedi
Mensagens: 1173
Registrado em: Sex Mai 27, 2011 3:27 pm
Localização: Governador Valadares - MG
Contato:

Re: [VIDEO] Interação VBA x Web - Consultando Rotas de Viagem

Mensagem por Mikel Silveira Fraga »

Geovani, bom dia.

Na verdade, o vídeo foi gravado com a última versão do Chrome. O problema que ao instalar o Selenium, a versão do Chrome Driver que vem junto esta desatualizada. É necessário realizar a atualização manualmente.

Segue link de um vídeo do Tomás, onde ele mostra como realizar essa atualização:
- Atualizando o ChromeDriver manualmente para o SeleniumBasic

Dúvidas, estamos a disposição.


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.


guh_freire
Acabou de chegar
Acabou de chegar
Mensagens: 1
Registrado em: Qua Set 19, 2018 8:33 am

Ajuda Urgente!

Mensagem por guh_freire »

Boa noite,

Seguinte, estou acessando uma página com a macro, ela insere os dados, faz a consulta, mas na hora de capturar os dados da consulta ele não preenche na planilha, poderia por favor me ajuar?

Segue código da macro e o print do HTML do site, a área de resultado está armazenada em id=area, preciso dos resultados das label;

(imagemHTMLsite)
http://oi64.tinypic.com/20aqahh.jpg

Sub Consulta()
'Inclui a referência se não houver
lReferenciaIE

Dim IE As InternetExplorer
Dim lNUM As String
Dim lCEP As String
Dim lUltimaLinhaAtiva As Long
Dim lContador As Long
Dim lBairro As String

'Identifica a última célula ativa da lista
lUltimaLinhaAtiva = Worksheets("Plan1").Cells(Worksheets("Plan1").Rows.Count, 1).End(xlUp).Row

'Cria um objeto Internet Explorer
Set IE = New InternetExplorer

'Torna o objeto visível
IE.Visible = True

'Faz um loop por todas as linhas da planilha
For lContador = 2 To lUltimaLinhaAtiva
'Navega ao site
IE.Navigate "https://www.site.com.br"

'Identifica se a página já foi totalmente carregada
While IE.ReadyState <> READYSTATE_COMPLETE
Wend

'Página possui JavaScript que cria os objetos que são preenchidos após a carga completa (painel resposta de consulta)
'é necessário aguardar um tempo, altera conforme a necessidade.
sng = Timer
Do While sng + 3 > Timer
Loop

'Carrega os dados de CEP e NUM que serão preenchidos na página
lNUM = Range("B" & lContador).Value
lCEP = Range("A" & lContador).Value


'Carrega os dados de CEP e NUM na página e submete os dados do formulário
IE.Document.all("numero-logradouro-ins").Value = lNUM
IE.Document.all("cep-ins").Value = lCEP
For Each Button In IE.Document.getElementsByClassName("btn btn-primary btn-sm") 'FAILED
Button.Click
Next


'Identifica se a página já foi totalmente carregada
While IE.ReadyState <> READYSTATE_COMPLETE
Wend

'Página possui JavaScript que cria os objetos que são preenchidos após a carga completa (painel resposta de consulta)
'é necessário aguardar um tempo, altera conforme a necessidade.
sng = Timer
Do While sng + 5 > Timer
Loop


'Faz um loop pelos objetos do tipo panel-body na página e procura pelo campo "Bairro" preenchido.
For Each i In IE.Document.body.getElementsByTagName("area")
If InStr(i.innertext, "Bairro") > 0 Then
For Each l In i.getElementsByTagName("label")
If InStr(l.innertext, lBairro) Then
Range("C" & lContador).Value = l.getElementsByClassName("form-control")(1).innertext
End If
Next l
End If
Next i
Next lContador

MsgBox "Concluído!"
End Sub


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