Excel 2013 - Come ripristinare i collegamenti ipertestuali?

[Cruzeiro]

Salve, ho un problema con excel.
All'interno di un foglio di lavoro di un file xlsx, sono presenti delle celle con collegamenti ipertestuali a file in pdf all'interno di una cartella.
Avendo dovuto per questioni pratiche riorganizzare i file pdf in più cartelle, di conseguenza ho perso tutti i collegamenti ad essi associati.

Esempio: Ho il file prova.xlsx e sono presenti collegamenti a file pdf allocati all'interno della cartella "cartella2014"
Avendo dovuto spostare la cartella all'interno di un'altra "cartella2015", come faccio a ripristinare i collegamenti in automatico anziché farlo manualmente?

[alfrimpa]

Ciao Cruzeiro.

Prova con questa macro

Codice: Seleziona tutto

Sub CreaCollegamenti()
Dim objFSO As Object
Dim objFolder As Object
Dim objFile As Object
Dim i As Integer
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("c:\TuoPercorso\") <=======
i = 1
For Each objFile In objFolder.Files
   Cells(i + 1, 1).Hyperlinks.Add Anchor:=Cells(i + 1, 1), Address:= _
        "c:\TuoPercorso\" & objFile.Name & ".pdf" <=======
    i = i + 1
Next objFile
End Sub


Ovviamente devi mettere il tuo percorso nei punti indicati.

Fai sapere.

[giostacchio]

Ciao Alf
ho un problema simile a quello al quale ai risposto in questo post.
Non so per quale motivo ma, nel mio file xls si sono modificati tutti i collegameti da un percorso di rete collegato ad una cartella in rete appunto ad una cartella in C: users

praticamente il mio collegamento era :

File:///\\XenFS01\Gruppi\Qualità\01 SGQ\12 Qualifica ......

mentre ora sono diventati

File:///\\C:\users\AppData\Roaming\12 Qualifica...

sono circa 400 hyperlink nella solo colonna P poi ne ho altri con altre estensioni in altre colonne

si può fare qualcosa ?
ti ringrazio

[alfrimpa]

Ciao giostacchio

ma la macro che è più sopra l'hai provata (ovviamente sostituendo le righe marcate con i tuoi dati)?

[Anthony47]

Domanda duplicata, si continua per favore qui: viewtopic.php?f=26&t=107651&p=631316#p631316

Ciao e grazie.