Jump to content
Fórum Script Brasil
  • 0

ESTOU TENTANDO MUDAR O SITE DURANTE O CÓDIGO E APARECE O ERRO: RECURSO SOLICITADO EM USO


Question

Quando rodo o código no depurador ele opera tudo certo, quando utilizo no botão no Excel ele da o erro.

 

Durante meu código eu abro a Internet Explorer, acesso um site, realizo o login.....  quando vou acessar um novo site ele aparece erro de recurso em uso, segue abaixo o código e em vermelho a parte do erro:

 

Sub ColetarDados()

    Dim ie As Object
    Dim dado As String
    
    Dim HTMLDoc As HTMLDocument
    Dim oHTML_Element As IHTMLElement
        
    Set ie = CreateObject("internetexplorer.application")
    ie.Visible = True
    ie.navigate "http://siacweb.com.br"
  

    Do
    Loop Until ie.ReadyState = READYSTATE_COMPLETE
    Set HTMLDoc = ie.Document
        HTMLDoc.all.Login.Value = "LOGIN"
        HTMLDoc.all.senha.Value = "SENHA"
    For Each oHTML_Element In HTMLDoc.getElementsByTagName("input")
        If oHTML_Element.ID = "btn_submit" Then oHTML_Element.Click: Exit For
    Next
    
    MsgBox ("Login efetuado, acessando balanço.")

    ie.navigate "http://siacweb.com.br/relatorio_balanco.php?tipo=1"
    
    Do
    Loop Until ie.ReadyState = READYSTATE_COMPLETE
    
    datainicial = Str(Range("K8"))
    datafinal = Str(Range("K9"))
    HTMLDoc.all.datainicial.Value = datainicial
    HTMLDoc.all.datafinal.Value = datafinal
    
    For Each oHTML_Element In HTMLDoc.getElementsByTagName("input")
        If oHTML_Element.Type = "image" Then oHTML_Element.Click: Exit For
    Next
    

End Sub
 

Edited by ibnpinto
Link to post
Share on other sites

0 answers to this question

Recommended Posts

There have been no answers to this question yet

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      148674
    • Total Posts
      644490
×
×
  • Create New...