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

Вход

Регистрация

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

 

= Мир MS Excel/Автоматическое создание гиперссылки на файл с именем из таб. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Автоматическое создание гиперссылки на файл с именем из таб. (Макросы/Sub)
Автоматическое создание гиперссылки на файл с именем из таб.
ortan Дата: Четверг, 10.09.2015, 17:40 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Добрый день!
Пример такой:
Есть таблица exl в которой исполнитель работы берет номер для протокола (столбец А). Оформляет его и сохраняет в папку «D:\Протоколы» в формате pdf с именем идентичным протоколу.
Нужно что бы макрос при следующем открытии exl находил в папке «Протоколы» файл pdf с именем как в столбце А и создавал гиперссылку напротив в столбце F.
Т.е. Иванов открыл таблицу что бы взять номер для протокола (номер 1), ввел данные в графах дата, организация и исполнитель; закрыл таблицу; оформил протокол и сохранил его в папку "протоколы" в формате PDF с именем "1".
Когда Петров открыл таблицу что бы взять номер для своего протокола, в столбце "Протоколы" на против Иванова появилась ссылка на его протокол 1.
Спасибо!
К сообщению приложен файл: 1151846.xlsx (10.4 Kb)
 
Ответить
СообщениеДобрый день!
Пример такой:
Есть таблица exl в которой исполнитель работы берет номер для протокола (столбец А). Оформляет его и сохраняет в папку «D:\Протоколы» в формате pdf с именем идентичным протоколу.
Нужно что бы макрос при следующем открытии exl находил в папке «Протоколы» файл pdf с именем как в столбце А и создавал гиперссылку напротив в столбце F.
Т.е. Иванов открыл таблицу что бы взять номер для протокола (номер 1), ввел данные в графах дата, организация и исполнитель; закрыл таблицу; оформил протокол и сохранил его в папку "протоколы" в формате PDF с именем "1".
Когда Петров открыл таблицу что бы взять номер для своего протокола, в столбце "Протоколы" на против Иванова появилась ссылка на его протокол 1.
Спасибо!
Автор - ortan
Дата добавления - 10.09.2015 в 17:40
KSV Дата: Четверг, 10.09.2015, 18:23 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 770
Репутация: 255 ±
Замечаний: 0% ±

Excel 2013
можно так [vba]
Код
Private Sub Workbook_Open()
     Dim f$, c As Range
     Const sPath$ = "D:\Протоколы\"
     For Each c In Лист1.[F2].Resize([D1].End(xlDown).Row - 1).Cells
         If c.Hyperlinks.Count = 0 Then
             f = sPath & c(, -4) & ".pdf"
             If Len(Dir$(f)) Then c.Hyperlinks.Add c, f, , , "Протокол"
         End If
     Next
End Sub
[/vba]
К сообщению приложен файл: 3504971.xlsm (17.4 Kb)

KSV.VBA@gmail.com
Яндекс.Деньги: 410011921213333
 
Ответить
Сообщениеможно так [vba]
Код
Private Sub Workbook_Open()
     Dim f$, c As Range
     Const sPath$ = "D:\Протоколы\"
     For Each c In Лист1.[F2].Resize([D1].End(xlDown).Row - 1).Cells
         If c.Hyperlinks.Count = 0 Then
             f = sPath & c(, -4) & ".pdf"
             If Len(Dir$(f)) Then c.Hyperlinks.Add c, f, , , "Протокол"
         End If
     Next
End Sub
[/vba]
Автор - KSV
Дата добавления - 10.09.2015 в 18:23
ortan Дата: Четверг, 10.09.2015, 19:19 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
KSV, огромное спасибо!!! Все работает как надо!
 
Ответить
СообщениеKSV, огромное спасибо!!! Все работает как надо!
Автор - ortan
Дата добавления - 10.09.2015 в 19:19
ortan Дата: Воскресенье, 04.10.2015, 15:07 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
KSV, еще раз помогите пожалуйста подправить макрос под новую таблицу, никак не хочет работать. Ссылки должны появляться в графе примечание, но не появляются.
К сообщению приложен файл: 6564874.xlsm (19.4 Kb)
 
Ответить
СообщениеKSV, еще раз помогите пожалуйста подправить макрос под новую таблицу, никак не хочет работать. Ссылки должны появляться в графе примечание, но не появляются.
Автор - ortan
Дата добавления - 04.10.2015 в 15:07
KSV Дата: Воскресенье, 04.10.2015, 21:40 | Сообщение № 5
Группа: Друзья
Ранг: Ветеран
Сообщений: 770
Репутация: 255 ±
Замечаний: 0% ±

Excel 2013
:)
К сообщению приложен файл: 4057081.xlsm (19.7 Kb)

KSV.VBA@gmail.com
Яндекс.Деньги: 410011921213333
 
Ответить
Сообщение:)
Автор - KSV
Дата добавления - 04.10.2015 в 21:40
ortan Дата: Вторник, 13.09.2016, 14:01 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Макрос работал без проблем до недавнего времени. И вот выдает ошибку:

Помогите разобраться пожалуйста.
______________________________________________-

Ошибку нашли. Проблема не актуальна.
К сообщению приложен файл: 1460007.png (84.7 Kb)


Сообщение отредактировал ortan - Вторник, 13.09.2016, 16:38
 
Ответить
СообщениеМакрос работал без проблем до недавнего времени. И вот выдает ошибку:

Помогите разобраться пожалуйста.
______________________________________________-

Ошибку нашли. Проблема не актуальна.
Автор - ortan
Дата добавления - 13.09.2016 в 14:01
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Автоматическое создание гиперссылки на файл с именем из таб. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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