Eu estou querendo fazer uma Macro no Excel e eu não consigo que ela aperte e preencha alguns campos de um determinado site. A macro que eu fiz deu um erro "o método 'Document' do objeto 'IwebBrowser2' Falhou"
eu não sei porque da esse erro??????
porque o q eu quero é que a Macro acesse um site http://sistemas.anac.gov.br/gruinter...Servic o=1103 e aperte o botão calcular, depois preencha os campos Cnpj e Nome do contribuinte e dps apertar o botão Confirmar.
O problema é que eu não tenho muita pratica com VBA por isso eu peguei essa Macro que estava pronta e tentei adaptar para as minha necessidades mas não estou conseguindo.
Sub Teste1()
Dim endereço As String
Dim ie As Object
Dim c1 As Integer
'
Set ie = CreateObject("InternetExplorer.Application")
endereço = "http://sistemas.anac.gov.br/gruinternet/ControladorGru?cmd=ApresentarDadosServico&idServic o=1103"
ie.document.getElementById("cnpjCpf").Value = "1099403"
'Navigating from webpage to webpage can be done like this
ie.navigate (endereço)
ie.Visible = True
'After navigating to a page, it is always a good idea to pause the code until the page completely loads
'This code will do that after the navigation
While ie.busy
DoEvents
Wend
End Sub
Pergunta
tolov
Eu estou querendo fazer uma Macro no Excel e eu não consigo que ela aperte e preencha alguns campos de um determinado site. A macro que eu fiz deu um erro "o método 'Document' do objeto 'IwebBrowser2' Falhou"
eu não sei porque da esse erro??????
porque o q eu quero é que a Macro acesse um site http://sistemas.anac.gov.br/gruinter...Servic o=1103 e aperte o botão calcular, depois preencha os campos Cnpj e Nome do contribuinte e dps apertar o botão Confirmar.
O problema é que eu não tenho muita pratica com VBA por isso eu peguei essa Macro que estava pronta e tentei adaptar para as minha necessidades mas não estou conseguindo.
Sub Teste1() Dim endereço As String Dim ie As Object Dim c1 As Integer ' Set ie = CreateObject("InternetExplorer.Application") endereço = "http://sistemas.anac.gov.br/gruinternet/ControladorGru?cmd=ApresentarDadosServico&idServic o=1103" ie.document.getElementById("cnpjCpf").Value = "1099403" 'Navigating from webpage to webpage can be done like this ie.navigate (endereço) ie.Visible = True 'After navigating to a page, it is always a good idea to pause the code until the page completely loads 'This code will do that after the navigation While ie.busy DoEvents Wend End SubAlguém poderia me ajudar??????
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.