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

Em casos de nova janela, abrir dentro do WebBrowser

Esclarecimentos e dúvidas sob o Modelo de Aplicativo de Cadastro em VBA no Microsoft Excel publicado no site e blog http://www.tomasvasquez.com.br
Alexandre Saito
Acabou de chegar
Acabou de chegar
Mensagens: 1
Registrado em: Qui Nov 09, 2017 8:46 am

Em casos de nova janela, abrir dentro do WebBrowser

Mensagem por Alexandre Saito »

Olá!

Estou desenvolvendo um pequeno aplicativo de cadastro de clientes com busca de dados direto do SINTEGRA de cada estado brasileiro.
No caso de Goias, quando clico para fazer a consulta, o Internet Explorer abre em uma nova janela fora do WebBrowser e não consigo importar os dados.
É forçar esse processo a abrir dentro do WebBrowser?

Segue a rotina que uso para importar os dados do WebBrowser:

Sheets("IMPORTA_WEB").Select
Rows("1:100").Select
Selection.Clear

WebBrowser1.ExecWB 17, 0
WebBrowser1.ExecWB 12, 2
Sheets("IMPORTA_WEB").Select
ActiveSheet.PasteSpecial Format:="html", link:=False, NoHTMLFormatting:=True

If Sheets("IMPORTA_WEB").Range("A27").Value = "RS" Then
Call RS
frm_cad_completo.TextBox1.Text = Sheets("IMPORTA_WEB").Range("A15").Value
frm_cad_completo.TextBox2.Text = Sheets("IMPORTA_WEB").Range("A13").Value
frm_cad_completo.TextBox3.Text = Sheets("IMPORTA_WEB").Range("A11").Value
frm_cad_completo.TextBox4.Text = Sheets("IMPORTA_WEB").Range("A8").Value
frm_cad_completo.TextBox5.Text = Sheets("IMPORTA_WEB").Range("A18").Value
frm_cad_completo.TextBox6.Text = Sheets("IMPORTA_WEB").Range("A20").Value
frm_cad_completo.TextBox7.Text = Sheets("IMPORTA_WEB").Range("A23").Value
frm_cad_completo.TextBox8.Text = Sheets("IMPORTA_WEB").Range("A29").Value
frm_cad_completo.TextBox9.Text = Sheets("IMPORTA_WEB").Range("A25").Value
frm_cad_completo.TextBox10.Text = Sheets("IMPORTA_WEB").Range("A27").Value
frm_cad_completo.TextBox11.Text = Sheets("IMPORTA_WEB").Range("A31").Value
frm_cad_completo.TextBox12.Text = "CADASTRE O E-MAIL MANUALMENTE"

Repito esta rotina para todos os estados
só tenho problemas quando abre a consulta fora do WebBrowser, como mencionei Goias.
Desde ja agradeç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.


Responder