PDA

Visualizza versione completa : Come estrarre url da elenco link in celle excel


ghisirds
22-05-2007, 12.12.49
Ciao a tutti.

Ho provato a seguire una guida letta da un newsgroup per estrarre gli url completi da una lista di indirizzi inseriti nelle celle.

La guida diceva cos:

'----------------

Public Function Estrai_Indirizzi(ByVal Collegamento As Excel.Range)

Estrai_Indirizzi Replace _
(Collegamento.Hyperlinks(1).Address, "mailto:", "")

End Function

Devi incollare il codice in un modulo VBA (Alt + F11 e si apre l'editor,
sulla sinsistra, nella finestra Progetto individua il file in cui vuoi
rendere disponibile la funzione (io, ad esempio ce l'ho nella cartella
Personal.xls, in modo da averla sempre disponibile...), clicchi col tasto
destro, sul nome del file, Inserisci, Modulo e vi incolli il codice
postato).

L'utilizzo semplicissimo. Basta andare sul foglio Excel ed inserire la
funzione (basta cliccare sul tasto fx sulla barra della formula, scegliere
come categoria Definite dall'utente, e fare dopio clic sul nome della
funzione) e passarle come parametro la cella in cui si trova il link. A
questo punto, visto che hai i link in colonna, ti basta trascinare lungo la
colonna ed il gioco fatto. Poi se devi trasferire il file su un altro PC
in cui non presente la funzione uttente utilizzata, meglio selezionare
la colonna e fare copia & incolla valori.

'----------------

ora, una volta mi funzionava ma ora ho formatato tutto, e quando vado ad inserire questa funzione mi da l'errore:

"errore di compilazione: tipo non corrispondente" e mi evidenzia il Replace.

Qualcuno sa perch?
Ci sono altri metodi per estrarre questi link, magari un po meno complessi e legati al file in modo che se uno formatta il codice rimane?
Grazie
Marco

Alexsandra
14-06-2007, 15.55.22
hai messo =

ghisirds
14-06-2007, 19.19.09
infatti mi avevano gi risposto da un'altra parte:


Prova a sostituire:

Estrai_Indirizzi Replace _
(Collegamento.Hyperlinks(1).Address, "mailto:", "")

con

Estrai_Indirizzi = Replace _
(Collegamento.Hyperlinks(1).Address, "mailto:", "")

(mancava un '=')

grazie comunque
marco