Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
[VIDEO] Interação VBA x Web - Consultando Rotas de Viagem
- Mikel Silveira Fraga
- 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
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.
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.
-
- 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
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
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
-
- 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
Parabéns o vídeo ficou muito bom!! Pena que parece existir um problema de compatibilidade entre o Selenium e o chrome atuais.
- Mikel Silveira Fraga
- 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
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.
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.
-
- Acabou de chegar
- Mensagens: 1
- Registrado em: Qua Set 19, 2018 8:33 am
Ajuda Urgente!
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
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