Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Проверка работоспособности гиперссылки - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Проверка работоспособности гиперссылки (Макросы/Sub)
Проверка работоспособности гиперссылки
alex_07 Дата: Понедельник, 02.04.2018, 16:04 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Добрый вечер!
Подскажите пожалуйста.
Есть файл в котором более 1500 гиперссылок на файлы, которые находятся на компьютере.
Гиперссылки сделаны по средствам Excel (=Гиперссыла(ячейка с адресом на компьютере))
Как можно проверить работоспособность (т.е. наличие файла по данной гиперссылке) по средствам VBA?

Гуглил данный вопрос, но нашел только код для проверки Web ссылок в интернете.
Заранее спасибо!
 
Ответить
СообщениеДобрый вечер!
Подскажите пожалуйста.
Есть файл в котором более 1500 гиперссылок на файлы, которые находятся на компьютере.
Гиперссылки сделаны по средствам Excel (=Гиперссыла(ячейка с адресом на компьютере))
Как можно проверить работоспособность (т.е. наличие файла по данной гиперссылке) по средствам VBA?

Гуглил данный вопрос, но нашел только код для проверки Web ссылок в интернете.
Заранее спасибо!
Автор - alex_07
Дата добавления - 02.04.2018 в 16:04
Апострофф Дата: Понедельник, 02.04.2018, 16:43 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 467
Репутация: 129 ±
Замечаний: 0% ±

Excel 1997
alex_07, приложите файл с парой гиперссылок.
А навскидку - смотрите в сторону функции DIR
 
Ответить
Сообщениеalex_07, приложите файл с парой гиперссылок.
А навскидку - смотрите в сторону функции DIR
Автор - Апострофф
Дата добавления - 02.04.2018 в 16:43
alex_07 Дата: Вторник, 03.04.2018, 06:21 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Цитата Апострофф, 02.04.2018 в 16:43, в сообщении № 2 ()
приложите файл с парой гиперссылок.

Прикладываю файл, в котором расположил макрос найденный в интернете, однако он не работает.
Как я подозреваю, из за того что он (макрос) проверяет Web ссылки, а не ссылки на файлы.
К сообщению приложен файл: 3837279.xlsm (16.0 Kb)


Сообщение отредактировал alex_07 - Вторник, 03.04.2018, 06:23
 
Ответить
Сообщение
Цитата Апострофф, 02.04.2018 в 16:43, в сообщении № 2 ()
приложите файл с парой гиперссылок.

Прикладываю файл, в котором расположил макрос найденный в интернете, однако он не работает.
Как я подозреваю, из за того что он (макрос) проверяет Web ссылки, а не ссылки на файлы.
Автор - alex_07
Дата добавления - 03.04.2018 в 06:21
Апострофф Дата: Вторник, 03.04.2018, 06:55 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 467
Репутация: 129 ±
Замечаний: 0% ±

Excel 1997
Держите -
[vba]
Код
Sub Main()
    Dim c As Range
    [c6] = ThisWorkbook.FullName 'ЛИШНЯЯ СТРОКА (ДЛЯ ПРОВЕРКИ)
    For Each c In Range("D6:D100")
        c.Offset(, 1) = TestHyperlink(c.Text)
    Next c
End Sub

Function TestHyperlink(s As String) As Boolean
TestHyperlink = Len(s) And Dir(s, 63) > ""
End Function
[/vba]
 
Ответить
СообщениеДержите -
[vba]
Код
Sub Main()
    Dim c As Range
    [c6] = ThisWorkbook.FullName 'ЛИШНЯЯ СТРОКА (ДЛЯ ПРОВЕРКИ)
    For Each c In Range("D6:D100")
        c.Offset(, 1) = TestHyperlink(c.Text)
    Next c
End Sub

Function TestHyperlink(s As String) As Boolean
TestHyperlink = Len(s) And Dir(s, 63) > ""
End Function
[/vba]
Автор - Апострофф
Дата добавления - 03.04.2018 в 06:55
alex_07 Дата: Вторник, 03.04.2018, 15:30 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Цитата Апострофф, 03.04.2018 в 06:55, в сообщении № 4 ()
Держите

Не работает. Везде выдает ЛОЖЬ, при этом файлы существуют, и при нажатии открываются.
 
Ответить
Сообщение
Цитата Апострофф, 03.04.2018 в 06:55, в сообщении № 4 ()
Держите

Не работает. Везде выдает ЛОЖЬ, при этом файлы существуют, и при нажатии открываются.
Автор - alex_07
Дата добавления - 03.04.2018 в 15:30
Апострофф Дата: Вторник, 03.04.2018, 15:59 | Сообщение № 6
Группа: Проверенные
Ранг: Обитатель
Сообщений: 467
Репутация: 129 ±
Замечаний: 0% ±

Excel 1997
А так?
[vba]
Код
Sub Main()
    Dim c As Range
    ChDrive ThisWorkbook.Path
    ChDir ThisWorkbook.Path
    For Each c In Range("D6:D100")
        c.Offset(, 1) = TestHyperlink(c.Text)
    Next c
End Sub

Function TestHyperlink(s As String) As Boolean
TestHyperlink = Len(s) And Dir(s, 63) > ""
End Function
[/vba]
 
Ответить
СообщениеА так?
[vba]
Код
Sub Main()
    Dim c As Range
    ChDrive ThisWorkbook.Path
    ChDir ThisWorkbook.Path
    For Each c In Range("D6:D100")
        c.Offset(, 1) = TestHyperlink(c.Text)
    Next c
End Sub

Function TestHyperlink(s As String) As Boolean
TestHyperlink = Len(s) And Dir(s, 63) > ""
End Function
[/vba]
Автор - Апострофф
Дата добавления - 03.04.2018 в 15:59
alex_07 Дата: Среда, 04.04.2018, 05:18 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Апострофф, да, все работает! Спасибо!
 
Ответить
СообщениеАпострофф, да, все работает! Спасибо!
Автор - alex_07
Дата добавления - 04.04.2018 в 05:18
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Проверка работоспособности гиперссылки (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!