come fare trova e sostituisci nei collegamenti ipertestuali a documenti in excel 2003?

Question

Ho un super problema.

ho un documento in excel con più di 20.000 righe e per ogni riga c'è una cella con un collegamento ipertestuale a un file .eml salvato sul pc. lavoro in rete con altri pc e dopo un problema (ancora non si sa quale) parte dei collegamenti funziona perchè è in C:\administrator\documents and settings\ ecc. mentre una parte è collegata ad un altro pc. \carla\documenti\ ecc. e quando è spento non posso vedere i collegamenti naturalmente.

Domanda:

si può usare una macro per fare trova e sostituisci nei collegamenti ipertestuali (dato che il normale non funziona perchè non viene visualizzato tutto l'indirizzo del collegamento)??? cercherei la parte \carla\documenti... e la sostituirei con C:\ ecc dato che i file sono in cartelle diverse ma la prima parte è uguale solo su due pc diversi.

oppure un modo per visualizzare tutto l'indirizzo del collegamento nella cella così si può usare il trova e sostituisci semplicemente

usiamo windows xp

è urgentissimo!!!

qualcuno mi può aiutare?????

grazie!

Answer 1

Ho un super problema.

si può usare una macro per fare trova e sostituisci nei collegamenti ipertestuali (dato che il normale non funziona perchè non viene visualizzato tutto l'indirizzo del collegamento)??? cercherei la parte \carla\documenti... e la sostituirei con C:\ ecc dato che i file sono in cartelle diverse ma la prima parte è uguale solo su due pc diversi.

<cut>

Questa macro sostituisce il percorso C:\Prova con D:\miaCartella per tutti gli hyperlinks presenti nel Foglio1:

Public Sub m()

    Dim sh As Worksheet

    Dim hyp As Hyperlink

    Set sh = ThisWorkbook.Worksheets("Foglio1")

    With sh

        For Each hyp In .Hyperlinks

            hyp.Address = Replace(hyp.Address, "C:\Prova", "D:\miaCartella")

        Next

    End With

    Set hyp = Nothing

    Set sh = Nothing

End Sub

Focalizza questa riga:

hyp.Address = Replace(hyp.Address, "C:\Prova", "D:\miaCartella")

All'interno della parentesi, il secondo ed il terzo elemento sono rispettivamente la parte da modificare e come modificarla.

Un altro esempio potrebbe essere:

hyp.Address = Replace(hyp.Address, "Prova", "miaCartella")

che trasforma questo percorso: C:\Prova\file.xls in questo: C:\miaCartella\file.xls

Modifica il nome del foglio con il tuo, prova un po' e fai sapere.

Grazie

Answer 2

Ho provato quanto sotto su un mio file ma non esegue la modifica... 

Public Sub sostituisci_link()

    Dim sh As Worksheet

    Dim hyp As Hyperlink

    Set sh = ThisWorkbook.Worksheets("QUA")

    With sh

        For Each hyp In .Hyperlinks

            hyp.Address = Replace(hyp.Address, "02%20QUA", "H:\Qualità\TEMP_NUOVA%20STRUTTURA%20AREA%20QUALITA'\0.%20DOCUMENTI%20RILASCIATI\01%20PROCEDURE%20DI%20SISTEMA%20(GES)")

        Next

    End With

    Set hyp = Nothing

    Set sh = Nothing

End Sub

Ne devo fare parecchi e non capisco come mai non va... :(