Проверка битых ссылок при помощи эксель

2
2648
test website url
test website url

Для того чтобы проверить битая ссылка или нет, можно использовать excel, при том постоянно. Достаточно написать небольшой макрос.
Предложенная функция проверяет наличие доступа к ресурсу URL, это может быть, страница, файл, каталог, страница с UTM метками и тд. Результатом работы есть код ответа сервера (число), либо 0, если ссылка ошибочная 200 — ресурс доступен, 404 — не найден, 403 — нет доступа, и т.д.
Для открытия консоли редактирования макросов в режиме работы с ексель нажмите [ ALT + F11 ], после этого, появится консоль редактирования. Нажмите «Insert Module» и скопируйте код приведенный ниже.

Function TryURLstatus(ByVal URL$) As Long
 On Error Resume Next: URL$ = Replace(URL$, "\", "/")
 Set xmlhttp = CreateObject("Microsoft.XMLHTTP")
 xmlhttp.Open "GET", URL, "False"
 xmlhttp.setRequestHeader "If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT"
 xmlhttp.send
 TryURLstatus = Val(xmlhttp.Status)
 Set xmlhttp = Nothing
End Function

Сохраните модуль, теперь всё готово!

Теперь при работе с книгой вы должны подготовить список URL для проверки и добавить их так:

=TryURLstatus(ВАШ_URL_для_проверки)

В ячейку, где введена данная формула будет выведен статус ответа страницы, например: код 200, код 301, 404 и тд. Соответственно, вы сможете понять, битая ссылка или нет.

Важно:

Книга должна быть сохранена в формате .xlsm

Excel должен иметь доступ в интернет


Презентация нового самолёта Airbus a320

2 КОММЕНТАРИИ

  1. Поправочка! Формулу нужно писать так =TryURLstatus(«ВАШ_URL_для_проверки»), то есть URL берем в кавычки. Если подтягиваете ссылку из ячейки, то без кавычек, например =TryURLstatus(А2)

ОСТАВЬТЕ ОТВЕТ