Risultati da 1 a 13 di 13

Discussione: download immagine da url e rinomina immagine



  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 e rinomina immagine

    Ciao a tutti,

    in excel 2013 dovrei creare una macro per scaricare e rinominare alcune immagini che provengono da internet.

    Nella colonna A in ogni cella è presente un url immagine che punta in internet, nella colonna B sono presenti dei numeri di codice.

    Devo fare in modo che la macro mi scarichi l'immagine e la salvi in una cartella rinominandola con lo stesso numero di codice della colonna B


    Grazi infinite
    Ultima modifica fatta da:Gerardo Zuccalà; 18/09/16 alle 21:20 Motivo: Messo Risolto

  2. #2
    L'avatar di Powerwin
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Milano
    Messaggi
    417
    Versione Office
    2010
    Mi Piace ricevuti
    66
    Mi Piace dati
    27

    Re: download immagine da url e rinomina immagine

    Ciao Samuela, visto che non hai postato un file di esempio ti allego un codice che dovrebbe (adattato alla tua esigenza) fare quello che hai chiesto.
    Preciso che non è farina del mio sacco ma l'ho trovato in rete ed è di Alfrimpa (che saluto) utente del nostro forum

    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("a2:a4000") '<--- 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
    Ciao
    Flavio
    Non scrivetemi in MP per risolvere i problemi ed un grazie è sempre ben accetto quando ricevete degli aiuti

  3. #3
    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    63
    Messaggi
    1995
    Versione Office
    2007 - 2013
    Mi Piace ricevuti
    249
    Mi Piace dati
    38

    Re: download immagine da url e rinomina immagine

    Flavio non è neanche mia; anch'io l'ho trovata in rete e poi l'ho adattata.

    Non arrivo a tali livelli di sofisticazione
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"
    Cit. Berna11: "Se ti piace la risposta di qualcuno, oltre a ringraziarlo, puoi cliccare su "Mi Piace" in basso a sinistra del loro messaggio."

  4. #4
    L'avatar di Powerwin
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Milano
    Messaggi
    417
    Versione Office
    2010
    Mi Piace ricevuti
    66
    Mi Piace dati
    27

    Re: download immagine da url e rinomina immagine

    Citazione Originariamente Scritto da alfrimpa Visualizza Messaggio
    Flavio non è neanche mia; anch'io l'ho trovata in rete e poi l'ho adattata.

    Non arrivo a tali livelli di sofisticazione
    Ecco, allora ringraziamo chi l'ha scritta
    Flavio
    Non scrivetemi in MP per risolvere i problemi ed un grazie è sempre ben accetto quando ricevete degli aiuti

  5. #5
    L'avatar di Dillina
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    Tenerife
    Messaggi
    976
    Versione Office
    2013
    Mi Piace ricevuti
    126
    Mi Piace dati
    512

    Re: download immagine da url e rinomina immagine

    Benvenuta nel nostro Forum, Samuela
    Quando hai due minuti passi di QUI presentarti?

    Ti aspetto...
    (Scusate l'intrusione ragazzi)
    Sii gentile quando possibile. È sempre possibile
    (Dalai Lama)

  6. #6
    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 e rinomina immagine

    ciao e grazie,

    purtroppo con il mio livello non ci capisco molto.

    vorrei sapere dove inserire le celle contenenti il codice da usare per rinominare l'immagine, inoltre non capisco dove mettere la cartella che ospiterà le immagini salvate e rinominate.

    allego file, grazie molte.



    Citazione Originariamente Scritto da Powerwin Visualizza Messaggio
    Ciao Samuela, visto che non hai postato un file di esempio ti allego un codice che dovrebbe (adattato alla tua esigenza) fare quello che hai chiesto.
    Preciso che non è farina del mio sacco ma l'ho trovato in rete ed è di Alfrimpa (che saluto) utente del nostro forum

    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("a2:a4000") '<--- 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
    Ciao

  7. #7
    L'avatar di Powerwin
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Milano
    Messaggi
    417
    Versione Office
    2010
    Mi Piace ricevuti
    66
    Mi Piace dati
    27

    Re: download immagine da url e rinomina immagine

    Scusa Samuela, ho visto che hai postato in VBA e macro e pensavo ne capissi qualcosa.
    Quello che chiedi non è fattibile con le formule

    p.s. non vedo il file allegato


    Ciao
    Flavio
    Non scrivetemi in MP per risolvere i problemi ed un grazie è sempre ben accetto quando ricevete degli aiuti

  8. #8
    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 e rinomina immagine

    scusa a te per il disturbo, provo a reinserirlo......

    Citazione Originariamente Scritto da Powerwin Visualizza Messaggio
    Scusa Samuela, ho visto che hai postato in VBA e macro e pensavo ne capissi qualcosa.
    Quello che chiedi non è fattibile con le formule

    p.s. non vedo il file allegato


    Ciao
    File Allegati File Allegati

  9. #9
    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 e rinomina immagine

    nel tuo caso il codice è questo, c'era un piccolo errore evidenziato in rosso
    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

  10. #10
    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 e rinomina immagine

    ciao,
    dove andrebbe a salvarmi le immagini rinominate ?

    grazie

  11. #11
    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 e rinomina immagine

    nella stessa cartella in cui tieni il file excel con la macro, se ne vuoi una specifica indicala in una cella e riallega il file

  12. #12
    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 e rinomina immagine

    fantastico, grazie grazie !!!

  13. #13
    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 e rinomina immagine

    Ciao Patel,

    ti disturberei ancora per chiederti aiuto.

    Ho usato la tua macro e tutto è andato bene. Ora però sto scaricando alcune immagini e dopo alcune foto scaricate mi appare questo errore.

    Cortesemente ti chiedo se riesci ad aiutarmi, purtroppo non riesco senza aiuto.

    grazie infinite

    Citazione Originariamente Scritto da patel Visualizza Messaggio
    nella stessa cartella in cui tieni il file excel con la macro, se ne vuoi una specifica indicala in una cella e riallega il file
    File Allegati File Allegati

Discussioni Simili

  1. [Risolto] download immagine da url
    Di Samuela nel forum Domande su Excel VBA e MACRO
    Risposte: 3
    Ultimo Messaggio: 15/10/16, 08:58
  2. prova immagine
    Di Alessandro nel forum Test dei vostri post
    Risposte: 2
    Ultimo Messaggio: 29/09/16, 12:22
  3. test immagine
    Di angelo1961 nel forum Test dei vostri post
    Risposte: 1
    Ultimo Messaggio: 15/03/16, 00:10
  4. immagine
    Di Gerardo Zuccalà nel forum Test dei vostri post
    Risposte: 0
    Ultimo Messaggio: 05/02/16, 15:50
  5. test Immagine JPG NPG
    Di Gerardo Zuccalà nel forum Test dei vostri post
    Risposte: 0
    Ultimo Messaggio: 03/06/15, 00:09

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
  •