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!
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Em casos de nova janela, abrir dentro do WebBrowser
-
- Acabou de chegar
- Mensagens: 1
- Registrado em: Qui Nov 09, 2017 8:46 am