Vraag : Hoe te om Hyperlinks in Excel 2003 bij te werken?

Ik heb een gebruiker die een dossier van Excel met een kolom voor Hyperlinks heeft. Deze verbindingen richten aan een plaats in onze dossierserver. wegens serverconsolidatie hadden wij de gegevens naar een andere server verplaatst. Nu blinken de verbindingen in dossier uit moet worden bijgewerkt. Er zijn rond 2000 lijnen van verbindingen allen die aan de zelfde server maar verschillende plaatsen richten. Voor b.v. Row1 --> \ \ serverx \ activaafdeling \ prod.pdf,
Row2 --> \ \ serverx \ Afgelegen Gebied \ prod2.pdf.

Is daar om het even welke manier om alle verbindingen met nieuwe servername bij te werken?

Antwoord : Hoe te om Hyperlinks in Excel 2003 bij te werken?

Het is niet volledig duidelijk hoe voorgesteld maar het volgende probeer die serverx met servery voor alle hyperlinks op activesheet vervangt.

Vervang bothe duidelijk koorden in sub voor de daadwerkelijke vereiste waarden

Chris
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

Sub redirectLink ()
Schemerige rng als Waaier

    Voor Elke rng in ActiveSheet.UsedRange.Cells
        Als rng. Hyperlinks.Count = 1 toen
            Met rng. Hyperlinks (1)
                . Het adres = vervangt (. Adres, „ServerX“, „ServerY“, 1, vbTextCompare)
                .TextToDisplay = vervang (.TextToDisplay, „ServerX“, „ServerY“, 1, vbTextCompare)
            Eind met
        Eind als
    Daarna
Sub van het eind
Andere oplossingen  
 
programming4us programming4us