Excel: consente di convertire il collegamento ipertestuale in formato testo

Problema

Lavoro con Excel 2003. Il mio problema è che devo alimentare un database con vecchi file Excel. Ci sono migliaia di collegamenti ipertestuali. Il collegamento ipertestuale è stato trasformato in "1". Per ottenere i miei dati nel nuovo database devo importare il nome in formato testo. Come trovarlo automaticamente?

Soluzione

Con VBA:

• Apri la cartella di lavoro,
• Crea una copia (salva come) e lavora sulla copia!
• Nella copia della cartella di lavoro:
• Premere ALT + F11
• Inserisci / Modulo
• Copia / incolla questo codice:

 Sub AfficheNomCompletLienHypertexte () Dim Lign As Long, DrLig As Long Dim Dimolo As Byte Dim NomDuLien As String Col = 1 '==> Adattatore: n ° de la colonne contenant vos liens hypertextes With Sheets ("Feuil1")' ==> DrLig = Columns (Col) .Find ("*",,,, xlByColumns, xlPrevious) .Row For Lign = 1 a DrLig If .Cells (Lign, Col) .Hyperlinks.Count = 1 Quindi NomDuLien = .Cells (Lign, Col) .Hyperlinks (1) .Address .Cells (Lign, Col) .Hyperlinks.Delete .Cells (Lign, Col) .Clear ActiveSheet.Hyperlinks.Add Anchor: =. Cells ( Lign, Col), Indirizzo: = NomDuLien, TextToDisplay: = NomDuLien End If Next Lign End With End Sub 

Puoi adattare questo codice al tuo foglio di lavoro.

Premere ALT + F8, selezionare "AfficheNomCompletLienHypertexte" ed eseguire.

Grazie a Pikaju per questo suggerimento.