Извлечь URL гиперссылку в Excel документе

Ссылки из html документа в excel вставляются в виде заголовков. Чтобы извлечь ссылки нужно добавить макрос: With ActiveSheet For I = 1 To .Hyperlinks.Count .Hyperlinks (I).Range.Offset (0,1).Value = .Hyperlinks (I).Address Next I End With   После выделяем столбец с ссылками и запускаем на выполнение макрос