Risultati da 1 a 4 di 4

Discussione: download immagine da url



  1. #1
    L'avatar di Samuela
    Clicca e Apri
    Data Registrazione
    Sep 2016
    Località
    padova
    Messaggi
    60
    Versione Office
    2013
    Mi Piace ricevuti
    0
    Mi Piace dati
    0

    download immagine da url

    Ciao,
    ho una richiesta che ho postato su una discussione già chiusa, non sapendo se si può fare la ricopio sotto:

    Ho usato la macro sotto fornita dai super esperti del forum e modificata da PATEL e tutto è andato bene. Ora però scaricando alcune immagini, dopo alcune foto scaricate mi appare questo errore che allego oppure il download si ferma improvvisamente senza errori.

    Codice: 
    Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
    "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal _
    szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
    
    
    Sub ScaricaImmagini()
    Dim strSavePath As String
    Dim URL As String, ext As String
    Dim buf, ret As Long
    Dim miorange As Range
    Dim cll As Range
    Set miorange = Range("a6:a6") '<--- Eventualmente da modificare
    For Each cll In miorange
    URL = cll.Value
    strSavePath = ThisWorkbook.Path & "\" & cll.Offset(0, 1).Value & "." & "jpg"
    ret = URLDownloadToFile(0, URL, strSavePath, 0, 0)
    Next cll
    End Sub


    grazie infinite
    File Allegati File Allegati
    Ultima modifica fatta da:cromagno; 12/10/16 alle 20:39 Motivo: Inserito codice tra i tag CODE...

  2. #2
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    71
    Messaggi
    580
    Versione Office
    2010
    Mi Piace ricevuti
    72
    Mi Piace dati
    1

    Re: download immagine da url

    prova a lanciare la macro con F8, step by step, riesci ad arrivare a caricarle tutte ?

  3. #3
    L'avatar di Anthony
    Clicca e Apri
    Data Registrazione
    Sep 2016
    Località
    Ivrea (TO)
    Messaggi
    217
    Versione Office
    2003-2010-2016
    Mi Piace ricevuti
    155
    Mi Piace dati
    31

    Re: download immagine da url

    In aggiunta a quanto suggerito da patel:
    Aggiungi questa istruzione in questa posizione, poi quando va in debug premi Contr-g per aprire la finestra "Immediata" e dicci quale e' il contenuto dell'ultima riga scritta.
    Codice: 
    strSavePath = ThisWorkbook.Path & "\" & cll.Offset(0, 1).Value & "." & "jpg"
        Debug.Print ThisWorkbook.Path & "\" & cll.Offset(0, 1).Value                          '<<< AGGIUNTA
    ret = URLDownloadToFile(0, URL, strSavePath, 0, 0)
    Ciao
    Anthony

  4. #4
    L'avatar di Samuela
    Clicca e Apri
    Data Registrazione
    Sep 2016
    Località
    padova
    Messaggi
    60
    Versione Office
    2013
    Mi Piace ricevuti
    0
    Mi Piace dati
    0

    Re: download immagine da url

    Ciao,
    ho trovato, il problema era che nella lista delle url da scaricare c'erano degli errori tipo url non valide oppure la scritta valore proveniente da una formula precedente.
    Tutto ok, grazie mille

Discussioni Simili

  1. [Risolto] download immagine da url e rinomina immagine
    Di Samuela nel forum Domande su Excel VBA e MACRO
    Risposte: 12
    Ultimo Messaggio: 11/10/16, 20:47
  2. download File con codici vba per imparare meglio il linguaggio
    Di Sonic89 nel forum Pausa caffè (Off-Topic)
    Risposte: 16
    Ultimo Messaggio: 24/09/16, 20:07
  3. download File con codici vba per imparare meglio il linguaggio
    Di Sonic89 nel forum Domande su Microsoft Access
    Risposte: 15
    Ultimo Messaggio: 24/09/16, 18:44
  4. Download file facendo il login
    Di Berna11 nel forum Problemi, suggerimenti e Novità del forum
    Risposte: 2
    Ultimo Messaggio: 30/05/16, 18:27
  5. immagine
    Di Gerardo Zuccalà nel forum Test dei vostri post
    Risposte: 0
    Ultimo Messaggio: 05/02/16, 15:50

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •