Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Нармина Бунятова
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Формула для извлечения домена с под доменами из URL
 
#
27.07.2020 17:44:27
Всем огромное спасибо за помощь! Все работает!!  
 
Перейти    
Формула для извлечения домена с под доменами из URL
 
#
27.07.2020 12:41:04
Благодарю за быстрый ответ!
Но формула не работает, так же попробовала изменить в Найти ";"  на "," все так же не работает. Если Вас не затруднит, не могли бы вы вставить формулу в пример из моего первого сообщения? Уже очень долгое время вожусь с этой формулой.
 
Перейти    
Формула для извлечения домена с под доменами из URL
 
#
27.07.2020 12:00:39
День добрый!
Помогите изменить уже имеющую формулу для извлечения домена из URL. Данная формула извлекает только последний домен.
Нужно, что бы все под домены так же были извлечены.
Прилагаю подробный пример.
Заранее благодарю за помощь.
 
Перейти    
Макрос для проверки статуса URL, Создание макроса для проверки статуса URL
 
#
04.06.2020 19:10:09
Написание кода в вопросе исправила, спасибо.
 
Перейти    
Макрос для проверки статуса URL, Создание макроса для проверки статуса URL
 
#
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
 
Перейти    
Страницы: 1
Наверх