„Excel“ - konvertuokite nuorodą į teksto formatą

Problema

Dirbu su „Excel 2003“. Mano problema yra, kad turiu maitinti duomenų bazę su senais „Excel“ failais. Yra tūkstančiai nuorodų. Hiperlinkas buvo pakeistas, kad būtų rodomas kaip „1“. Norėdami gauti duomenis į naują duomenų bazę, turiu importuoti pavadinimą teksto formatu. Kaip jį rasti automatiškai?

Sprendimas

Su VBA:

• Atidarykite darbaknygę,
• Padarykite kopiją (išskyrus kaip) ir dirbkite su kopija!
• Darbo knygos kopijoje:
• Paspauskite ALT + F11
• Įterpti / modulį
• Kopijuoti / įklijuoti šį kodą:

 „Sub AfficheNomCompletLienHypertexte“ () „Dim Lign As Long“, „DrLig“ kaip ilgas „Dim Col“ kaip baitas „Dim Nomadu“ kaip eilutė Col = 1 '==> Adapteris: n ° de la colonne kontenentas vos liens hipertekstai su lapais („Feuil1“)' ==> Adapteris le nom de la feuille kontenentas vos liens drLig = stulpeliai (Col) .Pasirinkite ("*",,,, xlByColumns, xlPrevious) .Row For Lign = 1 į DrLig Jei .Cells (Lign, Col). = 1 Tada NomDuLien = .Cells (Lign, Col) .Hyperlinkiai (1) .Adress .Cells (Lign, Col) .Hyperlinks.Delete .Cells (Lign, Col) .Clear ActiveSheet.Hylinks.Add Anchor: =. Lign, Col), adresas: = NomDuLien, TextToDisplay: = NomDuLien pabaiga Jei kitas Lign pabaiga su pabaiga 

Šį kodą galite pritaikyti prie skaičiuoklės.

Paspauskite ALT + F8, pasirinkite „AfficheNomCompletLienHypertexte“ ir paleiskite.

Ačiū Pikaju už šį patarimą.