Vediamo come estrarre, tramite una funzione, l’URL completo presente nel testo di un collegamento ipertestuale in una cella di Excel.
Dovendo lavorare tramite codice VBA apriamo la relativa finestra.
In Excel XP o 2003:
Menù Strumenti – Macro – Visual Basic Editor
In Excel 2007:
Bottone di Office – Pulsante Opzioni di Excel – Impostazioni generali – Opzione “Mostra scheda Sviluppo sulla barra multifunzione”
A questo punto ritornando nella finestra di Excel verrà visualizzata anche la Scheda Sviluppo nella quale troviamo il pulsante Visual Basic
Nella finestra Visual Basic inserire un nuovo modulo (menù Inserisci – Modulo)
Copiare il codice riportato sotto:
Public Function Estrai_Indirizzi(ByVal Collegamento As Excel.Range)
Estrai_Indirizzi = Replace _
(Collegamento.Hyperlinks(1).Address, “mailto:”, “”)
End Function
Chiudere la finestra e ritornare in Excel.
La funzione che deve essere inserita per estrarre l’URL completo del collegamento ipertestuale è la seguente:
=Estrai_Indirizzi(Riferimento)
In cui:
Riferimento: La cella che contiene il collegamento ipertestuale del quale si vuole estrarre l’URL completo.
Esempio:
=Estrai_Indirizzi(Riferimento)
Tags:
Informatics, ski racer, loves travels, Finland, Norway, mountains, squash, photography, Drones and RC Helicopter
RSS - Articoli
Grazie mille, veramente utile!
Salve, ho un problema.
Ho seguito le utili indicazioni sopra ma quando vado ad inserire nella cella =Estrai_Indirizzi(Riferimento)mi apre VB e compare la scritta “Errore di compilazione. Errore di sintassi” e mi evidenzia in giallo la prima linea “Public function ……………”
Cosa sbaglio?
Grazie
Risolto! Avevo inserito il modulo nel posto sbagliato.
Grazie, veramente molto utile
Grazie mille!
A me dava lo stesso problema di ENR, l’ho risolto eliminando i due punti : dopo “mailto:”, quindi
Public Function Estrai_Indirizzi(ByVal Collegamento As Excel.Range)
Estrai_Indirizzi = Replace _
(Collegamento.Hyperlinks(1).Address, “mailto”, “”)
End Function
Ciao
@Marco: i due punti vanno lasciati, non si devono cancellare. L’errore potrebbe nascere dalle virgolette che non sono quelle giuste, facendo copia/incolla. In quel caso basta riscriverle nel modulo.
Ciao, ho un file excel con 150 caselle contententi ognuna un collegamento ad una pagina web. Premetto di avere Office 2010 e di non sapere proprio nulla di VB. Seguendo le istruzioni apro il file, vado su sviluppo, apro Visual Basic, INSERISCI-MODULO, e faccio incolla. Chiudo, eseguo la funzione e mi da come ad ENR la prima riga evidenziata in giallo con errore compilazione/sintassi. Francamente non ho idea sul da farsi, il modulo penso si inserisca univocamente in VBAProject (nomefile.xlsx) nella “cartellina” Moduli dopo quella Oggetti…
In cosa sbaglio?!
Grazie dell’aiuto!!!
Rob
grazie mille!
utilissimo
Grazie mille anche io ho risolto ridigitando le virgolette.
Spettacolo. risolto anche io ridigitando le virgolette! Grazie!
buongiorno Andrea,
ho trovato questo suggerimento è mi è stato utilissimo 🙂 GRAZIEEE!
Avrei un ‘altra situazione da risolvere: come potrei visualizzare l’immagine che mi viene scaricata da web tramite url ?
In pratica estrapolo una serie di dati dal portale di Idealista in un file excel ed ho:
in colonna A tutti gli url con immagine (vedi link di esempio) – in Colonna B i prezzi – in colonna C i mq (https://img3.idealista.it/blur/WEB_LISTING/0/id.pro.it.image.master/f9/dd/52/232252253.jpg)
Come posso impostare un comando per fare in modo che possa vedere l’immagine accanto ai dati delle altre colonne?