Проверка гиперссылок в Excel 2003

[Medet6085]

Здраствуйте.

В общем, мне нужна помощь :-)

Я создал excel файл со 130,000 гиперссылками. Размер 21 мегабайт. Теперь мне нужно проверить какие гиперссылки работают, а какие нет.

Это может выглядить как автоматизированная функция follow hyperlink (в этом случае надо заблокировать появляющееся окошко о невозможности открытия ссылки), которая заменяет значение неработающих ссылок на "not available".

Вот, вручную проверил 45,000 линков... гемор еще тот. Помогите плз.

[Игорь Акопян]

часто помогает начать запись макроса и потом посмотреть что там получилось... потом слегка подкрутить

[Medet6085]

Если бы я знал какой клавише приписано нажатие линка, то это облегчило бы мне работу.
Дело еще и в том что гиперссылка нажимается только кликом мышки. А в макросе при нажатии мышки появляется команда Selection.

[Игорь Акопян]

вот что написал мне макрописатель:

Код: Выделить всё

Sub Макрос1()
    Range("B2").Select 'тут собсно ссылка
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub

а вот что пишет хэлп при нажатии F1 на слове Hyperlinks

Код: Выделить всё

Example
This example checks to see whether any of the hyperlinks on worksheet one contain the word “Microsoft.”

For Each h in Worksheets(1).Hyperlinks
    If Instr(h.Name, "Microsoft") <> 0 Then h.Follow
Next

идея понятна?