День добрый!
Решила написать макрос, с помощью которого смогу узнать статус URL. Список адресов расположен в колонке I, а статус проверки URL должен быть в колонке P.
К сожалению, он не работает. Может кто-нибудь знает, в чем проблема?
Вот что у меня получилось:
Заранее благодарю,
Нармина
Решила написать макрос, с помощью которого смогу узнать статус URL. Список адресов расположен в колонке I, а статус проверки URL должен быть в колонке P.
К сожалению, он не работает. Может кто-нибудь знает, в чем проблема?
Вот что у меня получилось:
| Код |
|---|
Set sh = ThisWorkbook.Sheets("Sheet1")
Dim column_number: column_number = 9
For i = 1 To 200
strURL = sh.Cells(i, column_number)
sh.Cells(p) = CallHTTPRequest(strURL)
Next
Function CallHTTPRequest(strURL)
Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
objXMLHTTP.Open "HEAD", strURL, False
objXMLHTTP.send
Status = objXMLHTTP.Status
Set objXMLHTTP = Nothing
CallHTTPRequest = Status
End Function |
Нармина
Изменено: - 04.06.2020 19:08:21
