Excel - teisendage hüperlink tekstivormingusse

Probleem

Ma töötan Excel 2003.My probleem on, ma pean toita andmebaasi vana Exceli failidega. On tuhandeid hüperlinke. Hüperlink on muudetud "1" -iks. Uue andmebaasi andmete saamiseks tuleb importida tekst tekstivormingus. Kuidas seda automaatselt leida?

Lahendus

VBA-ga:

• Avage töövihik,
• Tehke koopia (salvestage kui) ja töötage koopiaga!
• Tööraamatu koopia:
• Vajutage ALT + F11
• Sisesta / moodul
• Kopeeri / kleebi see kood:

 Sub AfficheNomCompletLienHypertexte () Dim Lign nii pikk, DrLig kui pikk Dim Col By Byte Dim NomDuLien kui string Col = 1 '==> Adapter: n ° de la colonne kontingendi vos liens hüpertekstid lehtedega ("Feuil1")' ==> Adapter le nom de la feuille kontinant vos liens DrLig = veerud (Col) .Saada ("*",,,, xlByColumns, xlPrevious). Rida = 1 - DrLig - kui .Cells (Lign, Col). = 1 Siis NomDuLien = .Cells (Lign, Col) .Lingid (1) .Aadress .Kellad (Lign, Col) .Lingid.Laadi .Kellad (Lign, Col) .Tühjenda ActiveSheet.Hyperlinks.Add Anchor: =. Lign, Col), Aadress: = NomDuLien, TextToDisplay: = NomDuLien End Kui Järgmine Lign Lõpeta Lõpp-Sub 

Seda koodi saate oma arvutustabelisse kohandada.

Vajutage ALT + F8, valige "AfficheNomCompletLienHypertexte" ja käivitage.

Täname Pikaju selle näpunäite eest.