Проверка гиперссылки на ошибку 404

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Проверка гиперссылки на ошибку 404 (Макросы/Sub)

StoTisteg

Дата: Воскресенье, 29.04.2018, 10:04 | Сообщение № 1

Группа: Авторы

Ранг: Старожил

Сообщений: 1161

Репутация: 103 ±

Замечаний: 0% ±

Excel 2010

Уважаемы коллеги! Кто знает, существует ли какой-нибудь способ проверить, не вернёт ли гиперссылка ошибку 404 без использования FollowHyperlink? Гиперссылок потенциально может быть довольно много, скорость не особо важна.

Интуитивно понятный код - это когда интуитивно понятно, что это код.

Ответить

anvg

Дата: Воскресенье, 29.04.2018, 13:09 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 581

Репутация: 271 ±

Замечаний: 0% ±

2016, 365

Доброе время суток
У объекта Worksheet есть коллекция Hyperlinks, у каждого члена коллекции есть свойство Address.
Проверяете, что начало или http:// или https:// , если без полного определения, то положим все ссылки ведут в Web <_<

И такой функцией проверяете, что вернёт
[vba]

Код

Public Function testUrl(ByVal thisUrl As String) As Long
    Dim pHttp As Object
    Set pHttp = CreateObject("Msxml2.XMLHTTP")
    pHttp.Open "GET", thisUrl
    pHttp.send
    Do Until pHttp.readyState = 4
        'можно вписать проверку на выход за временные рамки
        DoEvents
    Loop
    testUrl = pHttp.Status
End Function

[/vba]
Для примера
[vba]

Код

Public Sub test()
Debug.Print testUrl("http://www.excelworld.ru/forum/10-38166-100")
Debug.Print testUrl("http://www.excelworld.ru/forum/10-38166-1")
End Sub

[/vba]
Успехов.