Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Vba para interagir ...
 
Notifications
Clear all

Vba para interagir com WebBrowser

 
2024 - VBA & Macros
Post Recente por JNEXCEL 6 anos atrás
7 Posts
3 Usuários
0 Reactions
1,893 Visualizações
RSS
 JNEXCEL
(@jnexcel)
Posts: 298
Reputable Member
Topic starter
 

Prezados, boa tarde!
Eu tenho uma planilha que possui um webbrowser, e eu gravei uma macro para copiar dados dessa webbrowser, porém ao colar os dados ela sempre traz os dados da primeira gravação.
O procedimento correto é copiar os dados digitados e não sempre colar os dados que foram usados na gravação da macro.
Por favor, vocês poderiam me ajudar a alterar essa código?
Em anexo, segue a planilha contendo mais detalhes e o código.

código utilizado na planilha:

' copia os dados contidos na tela: Consulta Optantes

    Sheets.Add After:=ActiveSheet
    ActiveSheet.PasteSpecial Format:="Texto", Link:=False, DisplayAsIcon:= _
        False
    Cells.Select
    Cells.EntireColumn.AutoFit
    Range("A1").Select
    Sheets("Plan1").Select
    Range("C18").Select

Desde já agradeço.
Muito obrigado!

 
Postado : 27/03/2018 2:51 pm
 LustosaG
(@lustosag)
Posts: 39
Eminent Member
 

JNEXCEL
Bom dia! Olha eu não entendi muito bem, e não sou muito bom quando se trata de WebBrowser, porém recentemente eu mexi um pouco com ele... e tenho uma planilha que faz algumas coisas em relação a salvar conteúdo do WebBrowser, então vou anexar aqui neste post... não sei se vai lhe ser relevante mas espero que ajude.

Ao abrir a minha planilha em anexo, dê Dois cliques com o SHIFT apertado, pois assim impede que execute o open_book() que está programado.

 
Postado : 28/03/2018 5:31 am
 JNEXCEL
(@jnexcel)
Posts: 298
Reputable Member
Topic starter
 

Olá, agradeço pela sua atenção.
O seu arquivo está com erro quando eu tento abrir aqui tela do erro aneza :(
O que eu preciso fazer é o seguinte:
1º tem o site do simples nacional (para consultar se uma empresa é optante ou não)
2º após o usuário digitar o cnpj + o captcha e clicar em consultar vai abrir uma segunda tela (com todas as informações da empresa)
3º copiar os dados dessa segunda tela e colar em uma outra planilha.

Eu fiz:
Criei um WebBrowser1 para abrir a tela do site na minha planilha
Simulei um teste com o cnpj do google
Deu certo :)
Porém quando eu tentei fazer com outro cnpj, o resultado foi diferente :(
Ao invés do excel colar os dados do novo cnpj, ele colou os dados do cnpj do google.

 
Postado : 28/03/2018 7:47 am
 LustosaG
(@lustosag)
Posts: 39
Eminent Member
 

Provavelmente este erro que aparece quando você abre a form da planilha que anexei é devido a alguma referência faltante ou marcada como AUSENTE, abra as referencias e veja se há algum AUSENTE, se houver apenas desmarque e teste de novo, se não houver poderia me mandar uma foto das referencias que está nesta planilha no seu computador?

------------------

Em relação a sua dúvida eu entendi agora, porém eu não vou saber te ajudar nesta questão. Espero que alguém neste Fórum saiba lhe dar o caminho.

PS: Se você identificou que a minha planilha não irá contribuir com o andamento de sua questão, não é necessário mandar a foto.

 
Postado : 28/03/2018 8:47 am
 JNEXCEL
(@jnexcel)
Posts: 298
Reputable Member
Topic starter
 

Olá, realizei o procedimento indicado, deu certo para executar a form.

Agradeço pela atenção quanto a dúvida, vou esperar para verificar se alguém aqui consegue me ajudar com essa dúvida.

Muito obrigado!

 
Postado : 28/03/2018 9:00 am
 klarc28
(@klarc28)
Posts: 971
Prominent Member
 

Substitua o que está destacado na imagem por:

WebBrowserReadyState.Complete
 
Postado : 28/03/2018 11:02 am
 JNEXCEL
(@jnexcel)
Posts: 298
Reputable Member
Topic starter
 

Olá, agradeço pela atenção a minha dúvida.

esse erro que era apresentado na planilha eu consegui corrigir :)

o meu problema agora está na primeira planilha que postei, o comando copiar e colar dados :(

 
Postado : 28/03/2018 12:29 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico