Excel - Konverter hyperlink til tekstformat

Problem

Jeg arbejder med Excel 2003. Mit problem er, jeg skal feed en database med gamle Excel-filer. Der er tusindvis af hyperlinks. Hyperlinket er blevet transformeret til at fremstå som "1". For at få mine data til den nye database skal jeg importere navnet i tekstformat. Hvordan finder man det automatisk?

Opløsning

Med VBA:

• Åben arbejdsbogen,
• Lav en kopi (gem som) og arbejde på kopien!
• I eksemplet af projektmappen:
• Tryk ALT + F11
• Indsæt / modul
• Kopier / Indsæt denne kode:

 SubAfficheNomCompletLienHypertexte () Dim Lign As Long, DrLig As Long Dim Col Som Byte Dim NomDuLien Som String Col = 1 '==> En adapter: Nej, det er ikke tilfældet med hyperlinks med Sheets ("Feuil1")' ==> En adapter er den perfekte løsning for drømmene DrLig = Columns (Col) .Find ("*",,, xlByColumns, xlForrige) .Row For Lign = 1 til DrLig Hvis .Cells (Lign, Col) .Hyperlinks.Count = 1 Then NomDuLien = .Cells (Lign, Col). Hyperlinks (1) .Address .Cells (Lign, Col) .Hyperlinks.Delete .Cells (Lign, Col) .Ryd ActiveSheet.Hyperlinks.Add Anchor: =. Cells ( Lign, Col), Adresse: = NomDuLien, TextToDisplay: = NomDuLien-ende, hvis næste ende slutter med slutdel 

Du kan tilpasse denne kode til dit regneark.

Tryk ALT + F8, vælg "AfficheNomCompletLienHypertexte" og kør.

Takket være Pikaju for dette tip.