Нужно вычитать все гиперссылки в колонке Exсel

Программирование на Visual Basic for Applications
TrueTrue
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 152
Зарегистрирован: 20.05.2009 (Ср) 23:18

Нужно вычитать все гиперссылки в колонке Exсel

Сообщение TrueTrue » 19.04.2016 (Вт) 18:02

Ребята, кто разбирается в VBA, подскажите пожалуйста.



Есть 2 Листа Excel, назовём их Лист1 и Лист2, на на Лист1 я делаю копипаст таблицы, ДАННЫЕ ПОИСКА с ВЕБ Сайта.
После этого, я делаю выборку данных из этого Листа1 ПОСТРОЧНО в Лист2, в цикле.

Так как в в Лист1 информация с сайта ложится в ДВЕ СТРОКИ, то я ввёл переменную "N" с шагом 2
На Лист2 я ввожу информацию построчно, потому ввёл переменную "I".

В колонке "G" содержатся рисунки с ГиперСсылками. Я вычитываю в Цикле построчно все Гиперссылки, такой строкой.

Вот этой строкой в Цикле я пытаюсь считать гиперссылки с первого Листа и загнать на второй. Но я видимо что-то неверно делаю, потому как из
Код: Выделить всё
Worksheets("Лист2").Range("AB" & 2 + I).Value = Worksheets("Лист1").Range("G" & N).Cells(0 + N, 6).Hyperlinks(1).Address


Но он почему из 45 строк, вычитывает только 24, остальные выдаёт "SubScript out of range"

Template
Обычный пользователь
Обычный пользователь
 
Сообщения: 70
Зарегистрирован: 09.09.2006 (Сб) 18:03

Re: Нужно вычитать все гиперссылки в колонке Exсel

Сообщение Template » 19.04.2016 (Вт) 21:35

А ежели так ?

Код: Выделить всё
Dim hLink As Excel.Hyperlink, lRow As Long
For Each hLink In Worksheets("Лист1").Hyperlinks
    lRow = lRow + 1
    Worksheets("Лист2").Cells(lRow, "AB") = hLink.Address
Next

TrueTrue
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 152
Зарегистрирован: 20.05.2009 (Ср) 23:18

Re: Нужно вычитать все гиперссылки в колонке Exсel

Сообщение TrueTrue » 30.07.2016 (Сб) 21:08

Простите, в запаре не поблагодарил, спасибо за помощь, всё сработало. :)))


Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 3

    TopList