Вытащить файлы из вложенных папок

[ZORRO2005]

Друзья,
есть список имен файлов на листе.
Нужно кликая по имени файла открыть файл с этим именем
в определенной папке независимо от вложенности папок.
Пример прилагается.
Открывать надо Заказы.xls
P.S.
Гиперссылки не предлагать.

[Serge_Bliznykov]

а поясните, немного не понял - у Вас в столбце E есть полный путь... достаточной из него выкинуть "Заказы\", вначале пристыковать к текущему пути application, в конце добавить последовательно - сначала ".xls" - проверить наличие файлика, если нет, то добавить ".xlsx" - проверить, если нет, то - ".xlsm"
если такой файлик есть - то открыть его...
я правильно понял? и что вызывает затруднение?..

[КаМММ]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Путь = Mid(ActiveWorkbook.FullName, 1, Len(ActiveWorkbook.FullName) - Len(ActiveWorkbook.Name))
Расширение = "xls" 'Или какое хочешь
ИмяСпец = ActiveCell.Value & "." & Расширение
Set FS = Application.FileSearch 'поиск файлов
On Error Resume Next
With FS
.NewSearch
.LookIn = Путь 'Задать переменную путь заранее
.Filename = ИмяСпец 'ИмяСпец = ActiveCell.Value & "." & Расширение
.Execute
.SearchSubFolders = True 'Просматривать подкаталоги
End With
If FS.FoundFiles.Count = 0 Then MsgBox "Файл не найден"
Workbooks.Open Filename:=FS.FoundFiles(1)
MsgBox FS.FoundFiles(1)
End Sub

[КаМММ]

Это если все файлы в том-же каталоге что и Заказ но в директориях имена которых неизвестны

[ZORRO2005]

Serge_Bliznykov,

у Вас в столбце E есть полный путь... достаточной из него выкинуть "Заказы\"

Его нет,это я для наглядности
КаМММ,

Это если все файлы в том-же каталоге что и Заказ но в директориях имена которых неизвестны

Именно так.
Но что-то у меня не получается.
Можно файл приложить?

[дмидми]

КаМММ, насчёт FileSearch народ уже плакался.
http://www.sql.ru/forum/actualthread...&hl=filesearch

[КаМММ]

КаМММ,
Именно так.
Но что-то у меня не получается.
Можно файл приложить?[/QUOTE]
У меня 2003й стоит.
Если активна ячейка с названием (именно из активной ячейки берётся название файла)
то всё работает. (вырывал с корнями из другого макроса так что запись слегка не локанична)
я так просто в качестве идеи подкинул.

[SAS888]

С подпапками рекомендую работать с помощью объекта FileSystemObject.
Могу предложить. Только такие вопросы:
1. В файле "заказы.xls" столбец "B" (Марка) - это и есть имя искомого файла?
2. В самих файлах заказов адреса ячеек "Количество" и "Сумма" фиксированны?

[ZORRO2005]

Сообщение от SAS888

С подпапками рекомендую работать с помощью объекта FileSystemObject.
Могу предложить. Только такие вопросы:
1. В файле "заказы.xls" столбец "B" (Марка) - это и есть имя искомого файла?
2. В самих файлах заказов адреса ячеек "Количество" и "Сумма" фиксированны?

1.Имя искомого файла в A2:An(только без расширения xls или xlsx)
2.В будущем хотел сделать чтобы подставлялось.
Адреса ячеек тогда сделаю фиксированными.

[SAS888]

Посмотрите вложение. Набросал на скорую руку.
С расширениями "xlsx" и "xlsm" не пробовал, но должно работать.
Что нужно изменить - пишите, сделаем. Только... в понедельник.