Одновременное создание гиперссылок.

Сэм Пользователь Сообщений: 2 Регистрация: 10.10.2016	#1 10.10.2016 07:53:46 Здравствуйте. Помогите пожалуйста, как одновременно в разных ячейках таблицы эксель, создать гиперссылки, на разные пдф файлы? Спасибо. Изменено: Сэм - 10.10.2016 07:54:15

Catboyun Пользователь Сообщений: 1631 Регистрация: 09.05.2015	#2 10.10.2016 08:32:37 И где эти файлы? В ячейках уже что-то написано?

Игорь Пользователь Сообщений: 3695 Регистрация: 23.12.2012	#3 10.10.2016 08:34:33 это делается при помощи макроса Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Сэм

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

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

10.10.2016 15:04:11

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

Код

Sub addLinks() 
Application.ScreenUpdating = False
Dim fName, mDir As String
mDir = "c:\tst\" 'имя папки со сканами 
fName = Dir(mDir) 'получаем имя первого файла 
r = 1 'строка, с которой начинается заполнение листа 
Do While fName <> ""
If Right(fName, 3) = "pdf" Then 'проверка, pdf файл или нет 
ActiveSheet.Hyperlinks.Add Anchor:=Cells(r, 1), Address:=mDir & fName, TextToDisplay:=Replace(fName, ".pdf", "") 'добавляем ссылку 
r = r + 1 'переходим на следующую строку листа 
End If
fName = Dir ' получаем имя следующего файла 
Loop
Application.ScreenUpdating = True
End Sub

Этот макрос переберет все файлы в указанной папке. Если файл - pdf, добавит ссылку на него в первый столбец активного листа. Текстом гиперссылки будет имя файла без расширения.

Но я его не понимаю(((((((((((((

Изменено: Сэм - 10.10.2016 15:56:06

Читают тему