Решила написать макрос, с помощью которого смогу узнать статус 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
Нармина Бунятова, код следует оформлять соответствующим тегом: ищите такую кнопку (см. скрин) и исправьте своё сообщение. И нет смысла растягивать код, оставляя между строками столько пустого места.