Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Проверка работоспособности гиперссылок
 
#1
13.05.2016 11:19:44
Здравствуйте!
Имеется лист с гиперссылками общим количеством до тысячи, расположенными в одном столбце. Как создать макрос на их проверку (существует ли объект на который она ссылается) и выделение ячейки с ошибочной гиперссылкой.
 
 
 
#2
13.05.2016 12:02:47
Код
Sub Кнопка1_Щелчок()
    
    Dim cell As Range
    Dim winHttpReq As Object
    Set winHttpReq = CreateObject("WinHttp.WinHttpRequest.5.1")
    
    On Error GoTo l_error
        
    For Each cell In Range("Таблица1").Columns(1).Cells
        
        cell.Offset(0, 1).Value = "Неверный адрес"
        Call winHttpReq.Open("GET", cell.Value, False)
        
        Call winHttpReq.Send
        If winHttpReq.Status = 200 Then
            cell.Offset(0, 1).Value = "Всё ок"
        Else
            cell.Offset(0, 1).Value = "Неверный запрос"
        End If
        
l_error:

    Next cell
End Sub
 
 
 
#3
18.05.2016 12:54:07
Спасибо!
Работает, но только с гиперссылками на объекты в интернете. С ссылками на файлы находящиеся на компе и на дисках локальной сети не работает
Что можно сделать?
 
 
 
#4
02.01.2022 13:27:18
Добрый день.

Хороший скрипт.
У меня задача, проверить тучу ссылок интернет-радиостанций и я прикрутил его к своей задаче, но код в месте со всем Экселем виснет намертво на 30-ти% обработанных ссылок.
Помогите пож-ста, может он просто не все типы ссылок может проверить?! Или может вставить паузу между проверкой каждой ссылки, может из-за большого кол-ва он виснет? А список будет постоянно пополняться.

Я не сильно разбираюсь в коде, потому файл прилагаю...
Изменено: Nickolas - 02.01.2022 13:31:07
 
 
 
#5
02.01.2022 15:40:52
Nickolas,  задача по проверке радиостанций или наличия файла по ссылке? Это две разные задачи.
По вопросам из тем форума, личку не читаю.
 
 
 
#6
02.01.2022 15:59:39
, в данном случае не все ссылке ведут на конкретный файл m3u8, поэтому именно проверка работоспособности станции нужна...
 
 
 
#7
02.01.2022 17:48:08
Цитата
написал:
проверка работоспособности станции нужна
Что Вам мешает устроиться поработать на этой радиостанции чтобы проверить ее работоспособность? И что значит "работоспособность" данной радиостанции?
Цитата
написал:
в данном случае не все ссылке ведут на конкретный файл m3u8,
Многие ссылки в интернете ведут на какой-то один файл, а многие - на разные файлы. Объясните доступно и понятно - чего хотите?
С Новым годом!
 
 
 
#8
02.01.2022 17:55:59
Цитата
написал:
то Вам мешает устроиться поработать на этой радиостанции чтобы проверить ее работоспособность?
Оценил Ваш юмор )))...

Цитата
написал:
Объясните доступно и понятно - чего хотите?
А что не так? Просто нужно что бы скрипт помечал не рабочие ссылки и я их в ручную мог удалить.
Он проверяет и помечает, но виснет сам и вешает намертво весь Excel. Нужно что бы код без проблем проверил ВСЕ имеющиеся ссылки без зависаний.
 
 
 
#9
02.01.2022 18:01:50
Цитата
написал:
виснет намертво
Не факт, что ссылки виноваты. Для начала прочитайте #5. В Вашем коде бессмысленный набор букв и ссылок (Call) на макросы, которые никто не видит и не знает, что они делают... Объяснить, что хотите - слабо? Или форумчане должны догадаться и предложить Вам решение, которое Вас устроит?
 
 
 
#10
02.01.2022 18:08:57
Цитата
написал:
Вашем коде
Код не мой, со второго поста.
Вы вообще код файла смотрели?
 
 
 
#11
02.01.2022 18:23:19
2016 и 2021... Не все работает одинаково, приходилось сталкиваться....Поэтому и возникают вопросы о подробных обстоятельствах Вашей задачи.
Найти все рабочие и все нерабочие ссылки в интернете?
В Вашем примере на листе не видно, того, что заявлено в коде. Т.е. "что есть"  - " "что нужно получить".
Вам  нужен поисковик на VBA?
P.S. Набрался смелости и пощёлкал по гиперссылкам.Открывается проигрыватель, но не файлы. С предварительным предупреждение от Винды - "Возможно там вирусы".  
Изменено: _Igor_61 - 02.01.2022 18:33:24
 
 
 
#12
02.01.2022 18:31:58
_Igor_61, тут вопрос в обработке потока, который по сути возвращается, а он как бы бесконечен.
По вопросам из тем форума, личку не читаю.
 
 
 
#13
02.01.2022 18:34:10
Цитата
написал:
2016 и 2021... Не все работает одинаково, приходилось сталкиваться....
У меня 2013 офис.

Цитата
написал:
Вам  нужен поисковик на VBA?
Ну в целом код-то рабочий. Он все правильно отрабатывает. Просто не понятно почему он виснет...  
 
 
 
#14
02.01.2022 18:38:25
БМВ, да, поэтому и пытался ТС-а вытянуть на пояснения задачи, но он скрин приложил в последнем посте.. :Жаль, что не личное фото... ;) По фотке всю музыку нашли бы.. :)  
См. #11 P.S
Изменено: _Igor_61 - 02.01.2022 18:42:37
 
 
 
#15
02.01.2022 18:39:32
Цитата
написал:
_Igor_61 , тут вопрос в обработке потока, который по сути возвращается, а он как бы бесконечен.
Да, нужно что бы после нажатия на кнопку "Проверить" код опросил ссылку и вернул ответ сервера 200 или 403 или 404.
Соответственно код 200 обозначаются в таблице как "ОК", 403 и 404 как "Не существует", вот и все, а он просто виснет...!!!
Я не знаю как еще проще объяснить, в коде сильно не разбираюсь...
 
 
 
#16
02.01.2022 18:57:17
Nickolas, попробуйте ForEach Заменить на For...Next  :) Each может долго искать, до тех пор, пока не появится нужное :) Но и это ничего не гарантирует, т.к. ответ сервера может быть и другим, кроме перечисленных Вами трех значений :)
Изменено: _Igor_61 - 02.01.2022 18:58:43
 
 
 
#17
02.01.2022 19:05:45
Цитата
написал:
попробуйте ForEach Заменить на For...Next
Неа, он сразу ругается на строку, см. скрин -
 
 
 
#18
02.01.2022 19:24:47
If еще нужно, но про это Вам лучше знать, откуда и чего...
Цитата
написал:
существует ли объект на который она ссылается
If
 
 
 
#19
02.01.2022 20:48:53
_Igor_61, стоп, это все бесполезно при синхронном выполнении зависает на .send , а при асинхронном тоже не все гладко.
По вопросам из тем форума, личку не читаю.
 
 
 
#20
03.01.2022 15:41:12
Цитата
БМВ написал:
это все бесполезно
Да, убедился :)
Попробовал свой же совет (For.. Next... , функцию отсюда взял, т.к. сам не имею опыта решения подобных задач, кое-что изменил, думал поможет :). Зависать перестало, но с 47 строки у меня начинает тормозить, но терпимо, главное что не виснет совсем. Но другой момент обнаружился - не соответствие "ОК" и "Не существует". Думаю, что это потому, что запрос в реальном времени идет, а файлы на радиостанциях (соответственно и их URL) тоже в реальном времени меняются, вот и результат не всегда верный. Плэйлист открывается, но файлы не находятся... А где "Не существует" бывает что открываются в обозревателе и воспроизводятся... (Это если щелкать по ссылкам в файле)
Вот код (для контроля цикла добавил счетчик в "I1"):
Код
Function checkURL(strURL)
On Error GoTo 99
Dim objHTTP
Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
objHTTP.SetTimeouts 0, 3000, 2000, 5000
objHTTP.Open "HEAD", strURL, False
objHTTP.Send
checkURL = objHTTP.Status
Exit Function
99 checkURL = ""
End Function

Sub qqq()
For i = 2 To 145
    Range("I1") = i
If checkURL(Range("B" & i).Value) = "200" Then
   Cells(i, 3) = "ok"
Else
   Cells(i, 3) = "Не существует"
End If
Next i
End Sub


'http://bbs.vbstreets.ru/viewtopic.php?f=1&t=40806
Наверное или саму задачу конкретней нужно обозначить (например, радиостанция сейчас в сети или нет или что-то другое - но опять же, сервер ответ может постоянно менять (ИМХО)), или другие средства использовать (наверное, это вернее будет)...  
Изменено: _Igor_61 - 03.01.2022 15:46:53
 
 
 
#21
03.01.2022 18:18:09
Цитата
написал:
Вот код (для контроля цикла добавил счетчик в "I1"):
Спасибо большое, пол дела сделано, не виснет намертво и весь список отрабатывает, но не понятно почему он считает НЕКОТОРЫЕ ссылки не рабочими, хотя они работают..?!

И второй момент - список будет меняться\пополнятся и строка - For i = 2 To 145 там не актуальна...
Очень вам благодарен, дальше может кто придаст ума коду, буду очень признателен...
 
 
 
#22
05.07.2025 09:02:43
Всем привет! Уважаемые знатоки, помогите пожалуйста.

Имеется файл где есть столбец с гиперссылками на файлы, только одни файлы лежат у меня на компе, а другие лежат на подключённом сетевом диске, путь до них копируется как ссылка на веб ресурс.

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

Знаний у меня не достаточно что бы это исправить, прошу вашей помощи.

Нужно сделать из двух макросов один, что бы проверял доступность файлов по ссылкам независимо от того, ссылка на локальное расположение или на веб ресурс.

Я не особо знаю порядок написания макроса, но могу предложить следующую последовательность:
1. Сначала очистить столбец 4 "Проверка работоспособности гиперссылок" и столбец 5 "Тип размещения данных гиперссылки" согласно диапазона "гиперссылки" от предыдущих результатов проверки
2. Проверить гиперссылки на доступность файлов, по макросу на локальное расположение (если доступно то поставить статус "Доступно" в столбце 4 и тип расположения например "local # 1" в столбце 5 указать
3. Оставшиеся строки должны быть пустые
4. Далее проверить уже оставшиеся пустые гиперссылки на доступность файлов, по макросу на web расположение (если доступно то поставить статус "Доступно" в столбце 4 и тип расположения например "web # 2" в столбце 5 указать
5. Оставшиеся строки должны быть пустые
6. Если есть ещё какие то типы проверки доступности данных при локальном или веб расположении, указать их уже маркируя local # 2 или web # 2 и так далее
7. Уж если нет вариантов как проверить, то на оставшиеся присвоить что то типа "Не известный тип гиперссылки" а там где совсем нет гиперссылки (могут быть и пустые ячейки) указать "Отсутствует гиперссылка"

С меня небольшой бонус для хорошего настроения)
 
 
 
#23
05.07.2025 09:24:39
Помню, что уже подобное решали)
Согласие есть продукт при полном непротивлении сторон
 
 
 
#24
05.07.2025 09:54:55
Sanja, Кажется там не мой вариант проверки) ну да, тоже проверка файлов по наличию на локальном компьютере (даже просто в папке где сам файл эксель, где бы эта папка ни находилась)

но на сколько я понял есть разница между проверками локально расположенных файлов и где то в сети по web адресу, а ещё и проверок по веб расположению может быть много

в моём примере гипер ссылка создаётся следующим образом

1. открывается папка с расположением файла (либо это папка на компьютере либо в локальной сети, либо это подключенный сетевой диск.
2. Правой кнопкой мыши кликаю на файл и в контекстном меню выбираю "Копировать как путь"
3. Далее в ячейке эксель пишу название файла и прикрепляю гиперссылку по скопированному пути
4. Гиперссылка готова)
5. Далее этих гипер ссылок сделанных одинаково но при различном расположении файлов - тысячи гиперссылок, а ещё и в диапазоне есть пропущенные строки, то есть макрос должен их просто стороной обойти если нет гиперссылки или указать "Отсутствует гиперссылка"
 
 
 
Страницы: 1
Читают тему
Наверх