Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Список файлов из папки с гиперссылками
 
Всем доброго дня! Помогите, пожалуйста, еще раз, не пойму, что случилось. Я как-то на просторах форума старого форума нашла чудеснейший макрос, который создавал список из файлов из конкретной папки с гиперссылками на эти файлы. Я его чуть-чуть переделала, чтобы путь к папке на листе указывать, и в 2003 все замечательно работало. А в 2010 перестало, причем, ругается на первую же строчку.
Код
Sub qq()
With Application.FileSearch
.LookIn = Cells(1, 1)
.FileType = msoFileTypeAllFiles
.SearchSubFolders = True
.Execute
For i = 2 To .FoundFiles.Count
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, "A"), Address:=.FoundFiles(i), _
TextToDisplay:=.FoundFiles(i)
Next
End With
End Sub

Ну, и до кучи, подскажите, пожалуйста, как подправить  «.LookIn =», чтобы не надо было в ячейке А1 указывать папочку, а чтобы список составлялся из папки в который лежит файлик с макросом.
Заранее Вам ОЧЕНЬ благодарна.
 
Стешка, в версиях Excel, начиная с 2007 метод FileSearch заблокирован и обратиться к нему не поулчится. Посмотрите статью: Просмотреть все файлы в папке
Эта же статья должна помочь в назначении папки для поиска. Просто назначаете нужное для переменной sFolder.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
Спасибо! Пошла читать. Но если не пойму, вернусь приставать.   :)
 
Все здорово, только без гиперссылок. Куда ее прикрутить? Помогите, пожалуйста!
 
Код
Sub Filename()
Dim Directory As String, f As String, r As Long
With Application.FileDialog(msoFileDialogFolderPicker)
.Show
Directory = .SelectedItems(1) & "\"
End With
f = Dir(Directory, vbDirectory)
Do While f <> ""
If Left(f, 1) <> "." Then
r = r + 1
Selection.Offset(r) = f
ActiveSheet.Hyperlinks.Add Anchor:=Selection.Offset(r), Address:=Directory & Selection.Offset(r)
End If
f = Dir()
Loop
End Sub
 
Роман! Спасибо огромное! Все работает.
 
Есть директория, в которой есть папки названные по ФИО, и в каждой из них различные файлы (графические в основном).
Подскажите, пожалуйста, как сделать, чтобы подобно выше макросу на лист в столбец А подтягивались название папок (ФИО), а по столбцам разносились название файлов с гиперссылками из этих папок. При обновлении добавлялись лишь новые папки/файлы.
Пример:
С:\
   \Иванов ИИ
     \2015.05.jpg
   \Смирнов СС
     \2015.04.jpg
     \2015.02.bmp
   \Сидоров АА
     \2014.12.jpg
     \2015.07.pdf
Должно получиться:

Иванов ИИ | 2015.05.jpg
Смирнов СС | 2015.04.jpg | 2015.02.bmp
Сидоров АА | 2014.12.jpg | 2015.07.pdf
Страницы: 1
Читают тему (гостей: 1)