Excel - конвертировать гиперссылку в текстовый формат

вопрос

Я работаю с Excel 2003. Моя проблема в том, что мне нужно заполнить базу данных старыми файлами Excel. Есть тысячи гиперссылок. Гиперссылка была преобразована в «1». Чтобы получить мои данные в новую базу данных, я должен импортировать имя в текстовом формате. Как найти это автоматически?

Решение

С VBA:

• Откройте книгу,
• Сделайте копию (сохранить как) и работайте над копией!
• В копии рабочей книги:
• Нажмите ALT + F11
• Вставить / Модуль
• Скопируйте / Вставьте этот код:

 Sub AfficheNomCompletLienHypertexte () Dim Lign As Long, DrLig As Long Dim Col As Byte Dim NomDuLien As String Col = 1 '==> Адаптер: n ° de la colon contenant vos liens hypertextes с листами ("Feuil1")' ==> Адаптер в именном конторе vL liens DrLig = Columns (Col) .ind ("*",,,, xlByColumns, xlPrevious) .Row для Lign = 1 до DrLig, если .Cells (Lign, Col) .Hyperlinks.Count = 1 Тогда NomDuLien = .Cells (Lign, Col) .Hyperlinks (1). Адрес .Cells (Lign, Col) .Hyperlinks.Delete .Cells (Lign, Col) .Clear ActiveSheet.Hyperlinks.Add Anchor: =. Cells ( Lign, Col), адрес: = NomDuLien, TextToDisplay: = NomDuLien End, если следующий Lign заканчивается с End Sub 

Вы можете адаптировать этот код к вашей электронной таблице.

Нажмите ALT + F8, выберите «AfficheNomCompletLienHypertexte» и запустите.

Спасибо Пикаджу за этот совет.