Boas pessoal,
Tenho que acessar uma determinada pagina, fazer login e continuar navegando tudo pelo vba.
Consegui entrar na home, fazer o login mas após entrar no menu do site não sei como continuar, segue algumas informações caso auguem consiga me ajudar:
Dim IE As Object
Set IE = CreateObject("InternetExplorer.application")
With IE
.Visible = True
.Navigate ("http://nfpaulistana.prefeitura.sp.gov.br/")
While .Busy Or .ReadyState <> 4: DoEvents: Wend
.Document.getElementById("j_username").Focus
.Document.getElementById("j_username").Value = "CNPJ"
.Document.getElementById("j_password").Focus
.Document.getElementById("j_password").Value = "SENHA"
.Document.All("enviar").Click
'Aqui deve conter mais um comando para abrir uma pagina este é o HTML do botão:
a class="ctl00_wpMenuLateral_mnuRotinas_1 submenuItem ctl00_wpMenuLateral_mnuRotinas_5" href="consultas.aspx" style="border-style:none;font-size:1em;">Consulta de NFS-e
'Após carregar a pagina deve continuar...
.Document.getElementById("ct100_body_tbNFe").Focus
.Document.getElementById("ct100_body_tbNFe").Value = "1"
.Document.All("ct100_body_btNFe").Click
End With
Grato.
Tenho que acessar uma determinada pagina, fazer login e continuar navegando tudo pelo vba.
Consegui entrar na home, fazer o login mas após entrar no menu do site não sei como continuar, segue algumas informações caso auguem consiga me ajudar:
Dim IE As Object
Set IE = CreateObject("InternetExplorer.application")
With IE
.Visible = True
.Navigate ("http://nfpaulistana.prefeitura.sp.gov.br/")
While .Busy Or .ReadyState <> 4: DoEvents: Wend
.Document.getElementById("j_username").Focus
.Document.getElementById("j_username").Value = "CNPJ"
.Document.getElementById("j_password").Focus
.Document.getElementById("j_password").Value = "SENHA"
.Document.All("enviar").Click
'Aqui deve conter mais um comando para abrir uma pagina este é o HTML do botão:
a class="ctl00_wpMenuLateral_mnuRotinas_1 submenuItem ctl00_wpMenuLateral_mnuRotinas_5" href="consultas.aspx" style="border-style:none;font-size:1em;">Consulta de NFS-e
'Após carregar a pagina deve continuar...
.Document.getElementById("ct100_body_tbNFe").Focus
.Document.getElementById("ct100_body_tbNFe").Value = "1"
.Document.All("ct100_body_btNFe").Click
End With
Grato.