Да написано, название файла и его краткое описание, и так на каждой ячейке. Я плохо разбираюсь в макросе, но мне очччень нужно. Я в инете нашла такой макрос
Этот макрос переберет все файлы в указанной папке. Если файл - pdf, добавит ссылку на него в первый столбец активного листа. Текстом гиперссылки будет имя файла без расширения.
Но я его не понимаю(((((((((((((
| Код |
|---|
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
