Нармина Бунятова (Автор тем)

Формула для извлечения домена с под доменами из URL

Пользователь

Сообщений: 5 Регистрация: 04.06.2020

27.07.2020 12:00:39

День добрый!
Помогите изменить уже имеющую формулу для извлечения домена из URL. Данная формула извлекает только последний домен.
Нужно, что бы все под домены так же были извлечены.
Прилагаю подробный пример.
Заранее благодарю за помощь.

Перейти

Макрос для проверки статуса URL, Создание макроса для проверки статуса URL

Нармина Бунятова

Пользователь

Сообщений: 5 Регистрация: 04.06.2020

04.06.2020 17:02:20

День добрый!

Решила написать макрос, с помощью которого смогу узнать статус 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

Перейти