Endre stort antall hyperkoblinger

July 25  by Eliza

Wendy har et enkelt Excel-regneark som inneholder over 1200 linker til TIFF-filer. (Dette er hyperkoblinger, ikke vanlige lenker.) Excel hiccupped og måtte stenge, så Emily brukte autolagret filene til å gjenopprette den tidligere lagrede filen. Nå er alle de tidligere arbeidshyperkoblinger ikke fungerer. Hun hadde hyperkoblinger til bildene på en delt nettverksstasjon, men den autolagrede endret hyperkoblinger for å referere til C: stasjonen. Hun lurer på om det er en enkel måte å fikse dem tilbake til den delte nettverksstasjon.

Ved første rødme kan det virke som du kunne bruke Excel ordinære Søk og erstatt-funksjonen for å finne harddisken (som i file: // c :) og erstatte den med en nettverksstasjon (som i file: // shareddrive). Problemet er at denne tilnærmingen bare løser en del av problemet-det bare endrer den viste delen av hyperkoblingen, ikke den underliggende hyperkobling selv. Den eneste måten du kan få til hyperkoblingen selv er gjennom bruk av en makro.

Forutsatt at alle hyperkoblinger som trenger endring er på samme regnearket, så kan du bruke følgende makro:

Sub FixHyperlinks1 ()
Dim wks Som regneark
Dim hl Som link
Dim Selges som String
Dim snew As String

Satt wks = Active
Selges = "c: \"
snew = "S: \ Network \"
For Hver hl I wks.Hyperlinks
hl.Address = Erstatt (hl.Address, selges, snew)
Neste hl
End Sub

Alt du trenger å gjøre er å endre verdiene tilordnet den solgte og snew variabler. Hvis du får en feilmelding når du prøver å kjøre makroen-en feil med den linjen som inneholder Erstatt funksjons det er fordi Erstatt funksjonen er ikke tilgjengelig i alle versjoner av Excel. I så fall bør du bruke følgende makro, stedet:

Sub FixHyperlinks2 ()
Dim wks Som regneark
Dim hl Som link
Dim Selges som String
Dim snew As String

Satt wks = Active
Selges = "c: \"
snew = "S: \ Network \"
For Hver hl I wks.Hyperlinks
hl.Address = Application.WorksheetFunction. _
Substitute (hl.Address, selges, snew)
Neste hl
End Sub

Legg merke til at den eneste forskjellen er bruken av Substitute regnearkfunksjon.

ExcelTips er din kilde for kostnadseffektiv Microsoft Excel trening. Dette tipset (8622) gjelder for Microsoft Excel 97, 2000, 2002, og 2003. Du kan finne en versjon av dette tipset for Båndet av Excel (Excel 2007 og senere) her: Endre stort antall hyperkoblinger.