MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Baixar comprovante de pagamento judicial pelo Banco do Brasil

    Compartilhe

    patrickdias
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 18/12/2015

    Baixar comprovante de pagamento judicial pelo Banco do Brasil

    Mensagem  patrickdias em Seg 07 Ago 2017, 00:18

    Pessoal, boa noite, precisava muito de uma ajuda, para baixar o comprovante de pagamento pelo site do Banco do Brasil.
    Eu até descobri um código para acessar via vba o site do facebook e preencher com nome de usuário e senha, o código funcionou perfeitamente, mas quando tentei pelo site do Banco do Brasil não funcionou;
    Desta forma, poderiam me ajudar a acessar o site do Banco do Brasil através do Access e preencher o numero do ID automaticamente e salvar com o nome especifico?
    o link do site é: bb.com.br/portalbb/djo/id/comprovante/consultaDepositoJudicial.bbx
    O número do Id seria informado através de um campo do banco de dados em access, que seria inserido no site e logo após seria impresso o comprovante em pdf com o nome do beneficiario (também está em access).
    Agradeço muito a quem poder me ajudar.

    patrickdias
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 18/12/2015

    Re: Baixar comprovante de pagamento judicial pelo Banco do Brasil

    Mensagem  patrickdias em Ter 08 Ago 2017, 03:59

    Pessoal, boa noite!

    Eu testei o código abaixo, que funcionou com o Facebook, só apenas excluir os dados de usuario e senha, pois neste caso só informo o numero do id, contudo, não está preenchendo. (obs, só alterei o numero do id porque pertence a outra pessoa)

    Public Function FNCLOGINBB()
    Dim HTMLDoc As HTMLDocument
    Dim oBrowser As InternetExplorer


    Dim oHTML_Element As IHTMLElement
    Dim sURL As String
    On Error GoTo Err_Clear
    sURL = "https://www63.bb.com.br/portalbb/djo/id/comprovante/consultaDepositoJudicial,802,4647,4650,0,1.bbx?_ga=2.34492385.1722897102.1493387865-1360208279.1493387865"
    Set oBrowser = New InternetExplorer
    oBrowser.Silent = True
    oBrowser.timeout = 60
    oBrowser.Navigate sURL
    oBrowser.Visible = True

    Do
    Loop Until oBrowser.ReadyState = READYSTATE_COMPLETE

    Set HTMLDoc = oBrowser.Document

    HTMLDoc.all.formulario: numPreDeposito.Value = "08101000002895714"

    For Each oHTML_Element In HTMLDoc.getElementsByTagName("input")
    If oHTML_Element.Type = "submit" Then oHTML_Element.Click: Exit For

    Next
    Err_Clear:

    Resume Next

    End Function

    patrickdias
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 18/12/2015

    Re: Baixar comprovante de pagamento judicial pelo Banco do Brasil

    Mensagem  patrickdias em Dom 13 Ago 2017, 00:29

    Pessoal, boa noite!

    Eu já consegui preencher o numero da guia e clicar no botão continuar através dos seguintes códigos:

    O problema é que ao clicar no botão continuar, abre uma outra pagina onde preciso selecionar a guia, depois clicar em visualizar e em seguida baixar o arquivo em PDF, mas não estou conseguindo avançar desde essa parte.


    ith ieApp
    .Visible = True
    .Navigate "https://www63.bb.com.br/portalbb/djo/id/comprovante/consultaDepositoJudicial,802,4647,4650,0,1.bbx?_ga=2.34492385.1722897102.1493387865-1360208279.1493387865"

    Do Until .ReadyState = 4
    DoEvents
    Loop

    .Document.all.Item("formulario:numPreDeposito").Value = Me.Guia_Nº
    .Document.all.Item("formulario:btnContinuar").Click

    End With

    Ou também:

    With ieApp
    .Visible = True
    .Navigate "https://www63.bb.com.br/portalbb/djo/id/comprovante/consultaDepositoJudicial,802,4647,4650,0,1.bbx?_ga=2.34492385.1722897102.1493387865-1360208279.1493387865"

    Do Until .ReadyState = 4
    DoEvents
    Loop

    .Document.all.Item("formulario:numPreDeposito").Value = Me.Guia_Nº

    End With

    For Each Button In ieApp.Document.getElementsByTagName("input")
    If Button.id = "formulario:btnContinuar" Then Button.Click: Exit For
    Next

      Data/hora atual: Qui 21 Set 2017, 02:36