Notifications
Clear all

Enviar dados para WebBrowser

2 Posts
1 Usuários
0 Reactions
465 Visualizações
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 


Pessoal, estou tentando fazer algumas consultas à web diretamente na planilha com o WebBrowser.
Para navegar, ok! Mas em alguns sites, eu gostaria de enviar, via VBA, por exemplo, uma palavra de pesquisa.

Já testei todos os exemplos que pesquisei, mas está faltando algo que não consigo detectar.

Segue anexo, exemplo de uma consulta que eu gostaria de fazer pelo CNPJ, ou seja, precisaria jogar o CNPJ e acionar o botão Pesquisar.

Obrigado!

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 09/07/2014 3:42 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia!!

Mestre Edson, tente ver se isso pode lhe ajudar..

wb.Navigate2 "http://www.anp.gov.br/postos/consulta.asp" 
Do While wb.Busy = True 
Loop 
wb.Visible = True 
wb.document.all("sCNPJ").Value = "14294227000100"

Não testado!

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 17/07/2014 8:52 am