Всем доброго дня! Помогите, пожалуйста, еще раз, не пойму, что случилось. Я как-то на просторах форума старого форума нашла чудеснейший макрос, который создавал список из файлов из конкретной папки с гиперссылками на эти файлы. Я его чуть-чуть переделала, чтобы путь к папке на листе указывать, и в 2003 все замечательно работало. А в 2010 перестало, причем, ругается на первую же строчку.
Ну, и до кучи, подскажите, пожалуйста, как подправить «.LookIn =», чтобы не надо было в ячейке А1 указывать папочку, а чтобы список составлялся из папки в который лежит файлик с макросом.
Заранее Вам ОЧЕНЬ благодарна.
Код |
---|
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 указывать папочку, а чтобы список составлялся из папки в который лежит файлик с макросом.
Заранее Вам ОЧЕНЬ благодарна.