Salvare file relativi a collegamenti ipertestuali

[alfrimpa]

Ciao a tutti.

Non so se quello che sto per chiedere è realizzabile con una macro in VBA ed è un po' che ci penso ma non sono riuscito a pervenire nemmeno ad un'ipotesi di soluzione.

Supponiamo di avere un foglio di lavoro all'interno del quale vi siano n collegamenti ipertestuali che puntano ad altrettanti file memorizzati in differenti directory sull'Hard Disk (che non sono file di excel ma pdf).

Come dicevo prima, è possibile con una macro salvare i file (di cui ai collegamenti ipertestuali) mettendoli in un'unica directory?

Ringrazio sin d'ora chiunque mi potrà dare indicazioni in merito.

[Anthony47]

Ad esempio:

Codice: Seleziona tutto

Sub SaveHLA()
Dim NewDest As String, myLink, mySplit
'
NewDest = "D:\PIPPO\"       '<<< La destinazione
'
For i = 1 To ActiveSheet.Hyperlinks.Count
    myLink = ActiveSheet.Hyperlinks(i).Address
    mySplit = Split(myLink, "\", , vbTextCompare)
    FileCopy myLink, NewDest & mySplit(UBound(mySplit, 1))
Next i
End Sub


La riga marcata <<< va personalizzata con il percorso su cui i file linkati saranno copiati, compreso la "\" finale; il percorso deve gia' esistere.

Ciao

[alfrimpa]

Ciao Anthony

Speravo nel Tuo autorevole intervento e ti ringrazio tantissimo (purtroppo le mie competenze non arrivano a tanto).

Devo precisare, per onestà intellettuale, che la domanda derivava da una richiesta postata su altro forum per cui nel dare riscontro specificherò che la risposta non è merito mio bensì tuo.

[alfrimpa]

Ciao Anthony

Potresti cortesemente spiegarmi le due istruzioni antecedenti il Next i? (Soprattutto la seconda)

Più o meno ho intuito quello che fanno ma se mi fornisci qualche dettaglio in più sarà più facile per me ricordarmene in futuro.

Grazie mille

[Anthony47]

La funzione Split suddivide myLink, cioè nome e percorso, usando il separatore "\"; l'help on line ti dira' molto di più. Quindi la riga successiva usa l'ultimo valore, cioè il nome file, per comporre il nome e percorso di salvataggio.

Ciao