MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

    Salvar Imagem Web em Pastas local

    avatar
    ivan.romao
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 22/02/2012

    Salvar Imagem Web em Pastas local Empty Salvar Imagem Web em Pastas local

    Mensagem  ivan.romao 30/6/2016, 11:22

    Prezados,
    Preciso de ajuda no seguinte aspecto... Estou criando uma macro para entrar no site dos correios, verificar um AR e salvar a imagem numa pasta local, porém,  não sei como salvar esta imagem, segue macro até o ponto que sei:

    Sub Salvar_Imagem_Web()
       Dim Dc_Usuario As String
       Dim Dc_Senha As String
       Dim Dc_URL As String
       Dim objIE As New InternetExplorer 'Referencie "Microsoft Internet Controls"
       Dim linha1 As String
       Dim resp As String
       
       'Abre o IE
       objIE.Visible = True
           
       'Define os dados de acesso e link da página de login
       Dc_Usuario = "89208447"
       Dc_Senha = "1224"
       Dc_URL = "http://www.correiohibridoreverso.com.br/sgd/"
       
       'Navega até o link informado
       objIE.Navigate2 Dc_URL
       
       'Espera até que o IE carregue por completo
       Do Until objIE.Busy = False Or objIE.ReadyState = READYSTATE_COMPLETE
           DoEvents
       Loop

       Application.Wait Now + TimeValue("00:00:08")

       'Nessa parte você deve conhecer a propriedade "name" dos elementos input do site que irá logar
       objIE.Document.all("codUsuario").innerText = Dc_Usuario
       objIE.Document.all("senha").innerText = Dc_Senha
       objIE.Document.all("btnOk").Click
       
       Do Until objIE.Busy = False Or objIE.ReadyState = READYSTATE_COMPLETE
           DoEvents
       Loop
           
       Application.Wait Now + TimeValue("00:00:05")
           
               linha1 = "JC366211958BR"
     
                   objIE.Navigate2 "http://www.correiohibridoreverso.com.br/sgd/ConsultarObjetoDiversoServlet?acao=0"
       
       Do Until objIE.Busy = False Or objIE.ReadyState = READYSTATE_COMPLETE
           DoEvents
       Loop

       Application.Wait Now + TimeValue("00:00:10")
                   
       objIE.Document.all("txtCodObjetoDiverso").innerText = linha1
       objIE.Document.all("btnConsultar").Click
       
       Do Until objIE.Busy Or objIE.ReadyState = READYSTATE_COMPLETE
           DoEvents
       Loop

       Application.Wait Now + TimeValue("00:00:05")

                   objIE.Navigate2 "http://www.correiohibridoreverso.com.br/sgd/ImageServlet?codObjeto=" & linha1 & "&acao=2"
       
    End Sub


    A partir deste ponto (objIE.Navigate2 "http://www.correiohibridoreverso.com.br/sgd/ImageServlet?codObjeto=" & linha1 & "&acao=2"), preciso salvar esta imagem em uma pasta local do meu micro!

      Data/hora atual: 21/1/2022, 00:02