Excel - Konverter hyperkobling til tekstformat

Utgave

Jeg jobber med Excel 2003. Mit problem er, jeg må mate en database med gamle Excel-filer. Det er tusenvis av hyperkoblinger. Hyperkoblingen er blitt forvandlet til å vises som "1". For å få dataene mine til den nye databasen må jeg importere navnet i tekstformat. Hvordan finner du det automatisk?

Løsning

Med VBA:

• Åpne arbeidsboken,
• Lag en kopi (lagre som) og arbeid på kopien!
• I kopien av arbeidsboken:
• Trykk ALT + F11
• Sett inn / modul
• Kopier / lim inn denne koden:

 SubAfficheNomCompletLienHypertexte () Dim Lign As Long, DrLig As Long Dim Col Som Byte Dim NomDuLien As String Col = 1 '==> En adapter: n ° de la colonne contenant for liens hypertextes Med Sheets ("Feuil1")' ==> En adapter som gir deg det beste for deg selv. DrLig = Columns (Col) .Find ("*",,, xlByColumns, xlPrevious) .Row For Lign = 1 til DrLig Hvis .Cells (Lign, Col) .Hyperlinks.Count = 1 Så NomDuLien = .Cells (Lign, Col) .Hyperlinks (1) .Address .Cells (Lign, Col) .Hyperlinks.Delete .Cells (Lign, Col) .Rene ActiveSheet.Hyperlinks.Add Anchor: =. Cells ( Lign, Col), Adresse: = NomDuLien, TextToDisplay: = NomDuLien-slutt hvis neste ende slutter med sluttdel 

Du kan tilpasse denne koden til regnearket ditt.

Trykk ALT + F8, velg "AfficheNomCompletLienHypertexte" og kjør.

Takk til Pikaju for dette tipset.