Доброго времени суток!
Помогите в excel вытащить из ячейки с текстом гиперссылку.

Есть экселевский файл. В нём таблица и в одной из колонок текст к которому привязана гиперссылка.
В адресе гиперссылки указан путь к интернет странице. Вот этот путь мне необходимо вытащить и вставить в соседнюю ячейку.

Вот этот макрос вроде должен помочь, но он почему то у меня не срабатывает. Думаю не хватает строчки, по которой происходит копирование полученной гиперссылки в другую ячейку.

Sub NameAddress()
Dim i As Long, item As Object
Application.ScreenUpdating = False
For Each item In ActiveSheet.Hyperlinks
item.Address = item.Name
Next
Application.ScreenUpdating = True
End Sub

Этот макрос тоже не работает.

Dim oExselApplication As Excel.Application
Dim oExselWorkbook As Excel.Workbook
Dim oExselWorksheet As Excel.Worksheet
Dim Ячейка As Object
Dim АдресСсылки As String
Set oExselApplication = New Excel.Application
Set oExselWorkbook = oExselApplication.Workbooks.Open(ИмяФайла)
Set oExselWorksheet = oExselWorkbook.Sheets(ИмяСтраницы)
' -------------------------------------------
Dim intColumnLink As Integer
Dim intColumnRes As Integer
Dim intRowStart As Integer
Dim intRowFinish As Integer
intColumnLink = 1 ' Колонка с сылкой
intColumnRes = 2 ' Колонка в которую вставляется адресс ссылки
intRowStart = 10 ' Первая строка колонки из которой берется ссылка
intRowFinish = 20 ' Последняя строка колонки из которой берется ссылка
Dim intRowNow As Variant ' Номер текущей строки прайса
intRowNow = intRowStart
' Проход по всем строкам прайса
Do While intRowNow <= intRowFinish
Set Ячейка = oExselWorksheet.Cells(intRowNow, intColumnLink)
' Получаем адресс гиперссылки
If Ячейка.Hyperlinks.Count > 0 Then
АдрессСсылки = Ячейка.Hyperlinks(1).Address
Else
АдрессСсылки = ""
End If
' Помещаем адресс гиперссылки в колонку-результата
oExselWorksheet.Cells(intRowNow, intColumnRes).Value = АдрессСсылки
' Переход на след.строку
intRowNow = intRowNow + 1
Loop

Спасибо. Все получилось.