Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Salvare file relativi a collegamenti ipertestuali

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Salvare file relativi a collegamenti ipertestuali

Postdi alfrimpa » 09/06/15 13:25

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.
Alfredo

Win7 + Office 2007
Avatar utente
alfrimpa
Utente Senior
 
Post: 842
Iscritto il: 30/12/13 17:01
Località: Napoli

Sponsor
 

Re: Salvare file relativi a collegamenti ipertestuali

Postdi Anthony47 » 09/06/15 14:34

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
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Salvare file relativi a collegamenti ipertestuali

Postdi alfrimpa » 09/06/15 14:49

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.
Alfredo

Win7 + Office 2007
Avatar utente
alfrimpa
Utente Senior
 
Post: 842
Iscritto il: 30/12/13 17:01
Località: Napoli

Re: Salvare file relativi a collegamenti ipertestuali

Postdi alfrimpa » 09/06/15 17:45

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
Alfredo

Win7 + Office 2007
Avatar utente
alfrimpa
Utente Senior
 
Post: 842
Iscritto il: 30/12/13 17:01
Località: Napoli

Re: Salvare file relativi a collegamenti ipertestuali

Postdi Anthony47 » 09/06/15 23:33

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
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "Salvare file relativi a collegamenti ipertestuali":


Chi c’è in linea

Visitano il forum: alfrimpa, patel e 17 ospiti