Excel - конвертувати гіперпосилання в текстовий формат
Проблема
Я працюю з Excel 2003.My проблема, я повинен годувати базу даних зі старими файлами Excel. Є тисячі гіперпосилань. Гіперпосилання було перетворено на "1". Щоб отримати мої дані в нову базу даних, я повинен імпортувати ім'я в текстовому форматі. Як його знайти автоматично?
Рішення
З VBA:
- Відкрийте книгу,
- Зробіть копію (збережіть як) і працюйте на копії!
- У копії робочої книги:
- Натисніть ALT + F11
- Вставити / модуль
- Копіювати / вставити цей код:
Sub AfficheNomCompletLienHypertexte () Dim Lign As Long, DrLig як довгий Dim Col У байті Dim NomDuLien As String Col = 1 '==> Адаптер: n ° de la colonne contenant vos liens hypertextes З Sheets ("Feuil1")' == Адаптер призначений для оформлення контенту DrLig = Стовпці (Col) .Find ("*",,,, xlByColumns, xlPrevious) .Row Для Lign = 1 Для DrLig Якщо .Cells (Lign, Col) .Hyperlinks.Count = 1 Потім NomDuLien =. Клетки (Lign, Col). Гіперпосилання (1) .Адреса. Цели (Lign, Col) .Hyperlinks.Delete. Cells (Lign, Col). Очистити ActiveSheet.Hyperlinks.Add Anchor: =. Lign, Col), Адреса: = NomDuLien, TextToDisplay: = NomDuLien Кінець, якщо наступний Lign кінець з кінця Sub
Цей код можна адаптувати до таблиці.
Натисніть ALT + F8, виберіть "AfficheNomCompletLienHypertexte" і запустіть.
Завдяки Pikaju за цей чайові.