Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Interação VBA com Internet Explorer (dúvidas)
Re: Interação VBA com Internet Explorer (dúvidas)
Ok. Isso mesmo!
Funcionou!
Valeu, Mikel. Não posso deixar de registrar aqui o reconhecimento pela sua atuação nesse espaço, que contribui imensamente no aprendizado e desenvolvimento de muitos que militam (e os que desejam militar) na área de programação.
Parabéns, porque além de um grande expert em programação, reconhece-se em você um grande ser humano.
Funcionou!
Valeu, Mikel. Não posso deixar de registrar aqui o reconhecimento pela sua atuação nesse espaço, que contribui imensamente no aprendizado e desenvolvimento de muitos que militam (e os que desejam militar) na área de programação.
Parabéns, porque além de um grande expert em programação, reconhece-se em você um grande ser humano.
- Mikel Silveira Fraga
- Jedi
- Mensagens: 1173
- Registrado em: Sex Mai 27, 2011 3:27 pm
- Localização: Governador Valadares - MG
- Contato:
Re: Interação VBA com Internet Explorer (dúvidas)
Marconi, bom dia.
Obrigado pelos elogios, mas apenas faço tudo isso como agradecimento.
Como tantos aqui, tive minhas dúvidas e minhas dificuldades. Mas aqui no fórum, trocando idéias com pessoas como o Tomas, joseA, Mauro Coutinho e tantos outros, fui aprendendo e me desenvolvendo mais a cada dia.
O mínimo que posso fazer é ajudar a principal ideia do fórum, compartilhar conhecimento, e ainda me frusto por não ter tempo de poder ajudar mais os usuários.
Se alguém merece algum elogio aqui, tem que ser o Tomas, pela iniciativa desse trabalho (o fórum) e todos os usuários que participam aqui.
Abraços a todos e vamos que vamos!!!
Obrigado pelos elogios, mas apenas faço tudo isso como agradecimento.
Como tantos aqui, tive minhas dúvidas e minhas dificuldades. Mas aqui no fórum, trocando idéias com pessoas como o Tomas, joseA, Mauro Coutinho e tantos outros, fui aprendendo e me desenvolvendo mais a cada dia.
O mínimo que posso fazer é ajudar a principal ideia do fórum, compartilhar conhecimento, e ainda me frusto por não ter tempo de poder ajudar mais os usuários.
Se alguém merece algum elogio aqui, tem que ser o Tomas, pela iniciativa desse trabalho (o fórum) e todos os usuários que participam aqui.
Abraços a todos e vamos que vamos!!!
Re: Interação VBA com Internet Explorer (dúvidas)
Boa tarde a todos.
Passei a parte da manhã inteira lendo as paginas e pude aprender muitas coisas, corrigir antigas e otimizar o q eu ja sei.
Possuo um código no qual consegui reduzir drasticamente, porém, o principal não está acontecendo, que é obter o valor indicado na célula da minha planilha.
E sinto que estou perdido, pois o VBA não aponta nenhum erro no qual possa correr atras, ele simplesmente executa o código corretamente.
Gostaria de obter cada valor desta pagina para a minha planilha.
Acredito que para os mais experts seja simples.
Segue o código:
Private Sub Worksheet_Activate()
Dim IE As New InternetExplorer
Dim SIF_site As String
IE.Visible = True
IE.Navigate "sigsif.agricultura.gov.br/sigsif_cons/!ap_estabelec_nacional_detalhe?id_estabelecimento=453"
Do
DoEvents
Loop Until IE.ReadyState = READYSTATE_COMPLETE
Range("B2").Value = IE.Document.all.Item("tx_logradouro").innerText
End Sub
Peço a ajuda para que eu possa resolver este problema.
Muito obrigado a todos e parabens pelas 14 paginas de puro conhecimento que foram escritas até agora.
Passei a parte da manhã inteira lendo as paginas e pude aprender muitas coisas, corrigir antigas e otimizar o q eu ja sei.
Possuo um código no qual consegui reduzir drasticamente, porém, o principal não está acontecendo, que é obter o valor indicado na célula da minha planilha.
E sinto que estou perdido, pois o VBA não aponta nenhum erro no qual possa correr atras, ele simplesmente executa o código corretamente.
Gostaria de obter cada valor desta pagina para a minha planilha.
Acredito que para os mais experts seja simples.
Segue o código:
Private Sub Worksheet_Activate()
Dim IE As New InternetExplorer
Dim SIF_site As String
IE.Visible = True
IE.Navigate "sigsif.agricultura.gov.br/sigsif_cons/!ap_estabelec_nacional_detalhe?id_estabelecimento=453"
Do
DoEvents
Loop Until IE.ReadyState = READYSTATE_COMPLETE
Range("B2").Value = IE.Document.all.Item("tx_logradouro").innerText
End Sub
Peço a ajuda para que eu possa resolver este problema.
Muito obrigado a todos e parabens pelas 14 paginas de puro conhecimento que foram escritas até agora.
-
- Acabou de chegar
- Mensagens: 8
- Registrado em: Qua Jan 21, 2015 8:35 am
Re: Interação VBA com Internet Explorer (dúvidas)
Prezados, bom dia!
Estou tentando fazer com que a macro click em um texto (hiperlink) da mesma forma que é utilizado para "ie.Document.all("location").Click" ou ie.Document.Forms("busca").Submit. Mas não estou conseguindo.
O link que preciso acionar ("clicar") está via javascript, segue o trecho do código html.
href="javascript:location.href='/sicap/web/displayWeb.asp?id=4967719'"
PÁGINA:
http://sistemas.anatel.gov.br/sicap/web ... xcel=falsE
Obrigado!!!
Abraços,
Estou tentando fazer com que a macro click em um texto (hiperlink) da mesma forma que é utilizado para "ie.Document.all("location").Click" ou ie.Document.Forms("busca").Submit. Mas não estou conseguindo.
O link que preciso acionar ("clicar") está via javascript, segue o trecho do código html.
href="javascript:location.href='/sicap/web/displayWeb.asp?id=4967719'"
PÁGINA:
http://sistemas.anatel.gov.br/sicap/web ... xcel=falsE
Obrigado!!!
Abraços,
-
- Colaborador
- Mensagens: 98
- Registrado em: Qui Nov 01, 2012 2:37 pm
Re: Interação VBA com Internet Explorer (dúvidas)
Rafael,
Poderia disponibilizar o seu modelo para ficar mais fácil te ajudar?
Att,
Poderia disponibilizar o seu modelo para ficar mais fácil te ajudar?
Att,
- Mikel Silveira Fraga
- Jedi
- Mensagens: 1173
- Registrado em: Sex Mai 27, 2011 3:27 pm
- Localização: Governador Valadares - MG
- Contato:
Re: Interação VBA com Internet Explorer (dúvidas)
Daviso, boa noite.
Realizei uns testes com o código que você disponibilizou e, após uma alteração, consegui capturar os valores.
Observe a sua linha abaixo:
Você esta tentando acessar a propriedade innerText do elemento web, mas no código html / tag input, o endereço esta na propriedade Value, conforme abaixo:
<input name="tx_logradouro" disabled="" value="RUA SENADOR ATILIO FONTANA, 86" size="97" maxlength="100" onfocus="ConfiguraCorCampo(this);" onblur="ReConfiguraCorCampo(this);">
Então, alterando essa propriedade innerText para Value, é possível capturar o valor. Veja como ficou o código abaixo:
Espero ter ajudado.
Abraços!!!
Realizei uns testes com o código que você disponibilizou e, após uma alteração, consegui capturar os valores.
Observe a sua linha abaixo:
Código: Selecionar todos
Range("B2").Value = IE.Document.all.Item("tx_logradouro").innerText
<input name="tx_logradouro" disabled="" value="RUA SENADOR ATILIO FONTANA, 86" size="97" maxlength="100" onfocus="ConfiguraCorCampo(this);" onblur="ReConfiguraCorCampo(this);">
Então, alterando essa propriedade innerText para Value, é possível capturar o valor. Veja como ficou o código abaixo:
Código: Selecionar todos
Range("B2").Value = IE.Document.all.Item("tx_logradouro").Value
Abraços!!!
- Mikel Silveira Fraga
- Jedi
- Mensagens: 1173
- Registrado em: Sex Mai 27, 2011 3:27 pm
- Localização: Governador Valadares - MG
- Contato:
Re: Interação VBA com Internet Explorer (dúvidas)
Rafael, boa tarde.
Estou vendo no endereço do navegador que a pesquisa desse site foi realizada através da sequência numérica: 535000006102015.
http://sistemas.anatel.gov.br/sicap/web ... tNumero=[b]535000006102015[/b]&RadioRemetente=0&postNomeRemetenteInteressado=&RadioAssunto=0&postAssunto=&postDataInicio=&postDataFim=&postIdentificador=&intOpcaoExcel=falsE
Se eu estiver correto, posso utilizar essa informação para acionar o click do link, pois é a única informação de difere dos demais links.
A pergunta é: por acaso vc tem uma base de dados com esses valores????
Fico no aguardo seu retorno. Abraços!!!!
Estou vendo no endereço do navegador que a pesquisa desse site foi realizada através da sequência numérica: 535000006102015.
http://sistemas.anatel.gov.br/sicap/web ... tNumero=[b]535000006102015[/b]&RadioRemetente=0&postNomeRemetenteInteressado=&RadioAssunto=0&postAssunto=&postDataInicio=&postDataFim=&postIdentificador=&intOpcaoExcel=falsE
Se eu estiver correto, posso utilizar essa informação para acionar o click do link, pois é a única informação de difere dos demais links.
A pergunta é: por acaso vc tem uma base de dados com esses valores????
Fico no aguardo seu retorno. Abraços!!!!
-
- Acabou de chegar
- Mensagens: 8
- Registrado em: Qua Jan 21, 2015 8:35 am
Re: Interação VBA com Internet Explorer (dúvidas)
Oi Mikel, bom dia!
Obrigado pelo retorno.
Segue anexo!
Atualmente eu busco apenas o resultado da consulta, de manei engatilhada, mas consigo trazer a linha do resultado em uma variável.
O ideal seria retornar o valor de cada campo da tabela de resultado em um variável para depois colcoar célula a célula no excel. Mas dessa forma eu não consegui.
Essa "busca" da planilha em anexo, foi apenas em caráter emergencial, pois o que eu preciso mesmo é após reliazar a consulta, clicar no número do processo, ir na tabela "Movimentações" e retornar a primeira linha logo após os campos "Origem: Destino: Movimentado em: Recebido em:"
Desde já agradeço pela ajuda.
Abraços
Rafael
Obrigado pelo retorno.
Segue anexo!
Atualmente eu busco apenas o resultado da consulta, de manei engatilhada, mas consigo trazer a linha do resultado em uma variável.
O ideal seria retornar o valor de cada campo da tabela de resultado em um variável para depois colcoar célula a célula no excel. Mas dessa forma eu não consegui.
Essa "busca" da planilha em anexo, foi apenas em caráter emergencial, pois o que eu preciso mesmo é após reliazar a consulta, clicar no número do processo, ir na tabela "Movimentações" e retornar a primeira linha logo após os campos "Origem: Destino: Movimentado em: Recebido em:"
Desde já agradeço pela ajuda.
Abraços
Rafael
- Anexos
-
- Acompanhamento do SICAP.zip
- BASE
- (38.83 KiB) Baixado 296 vezes
- Mikel Silveira Fraga
- Jedi
- Mensagens: 1173
- Registrado em: Sex Mai 27, 2011 3:27 pm
- Localização: Governador Valadares - MG
- Contato:
Re: Interação VBA com Internet Explorer (dúvidas)
Rafael, bom dia.
Cara, gostei muito do seu modelo. Eu acho que você esta indo no caminho certo.
Com base no modelo que você passou, fiz algumas alterações e adaptações na planilha.
Todo o código adicionado no VBE se encontram no Módulo2 e na Sheet3.
Segue modelo em anexo. Espero que ajude.
Abraços e excelente final de semana.
Cara, gostei muito do seu modelo. Eu acho que você esta indo no caminho certo.
Com base no modelo que você passou, fiz algumas alterações e adaptações na planilha.
Todo o código adicionado no VBE se encontram no Módulo2 e na Sheet3.
Segue modelo em anexo. Espero que ajude.
Abraços e excelente final de semana.
- Anexos
-
- Acompanhamento do SICAP.zip
- Modelo alterado.
- (59.83 KiB) Baixado 328 vezes
-
- Acabou de chegar
- Mensagens: 8
- Registrado em: Qua Jan 21, 2015 8:35 am
Re: Interação VBA com Internet Explorer (dúvidas)
Obrigado! Resolvido!!!!
Estou estudando o código que você utilizou,rsrsrs muito legal!
Abraços
Estou estudando o código que você utilizou,rsrsrs muito legal!
Abraços