список файлов

[legion-mia]

Добрый день
прошу небольшой помощи...
собрал из найденных в сети такой вот макрос
он выполняет все что мне нужно просто идеально, но в 2003 экселе.
в 2007 FileSearch вроде как отключили (читал где-то)
а есть некоторая доля вероятности что его будут юзать и на 2007

Sub qq()


Dim DPath As String


'запрос папки
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "выбери папку"
        If .Show = -1 Then
            DPath = .SelectedItems(1) & "/"
        Else
            Exit Sub
        End If
    End With

On Error Resume Next

With Application.FileSearch
.LookIn = DPath
.FileType = msoFileTypeAllFiles
.SearchSubFolders = True
.Execute
For i = 1 To .FoundFiles.Count
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, "A"), Address:=.FoundFiles(i), _
TextToDisplay:=.FoundFiles(i)
Next
End With
End Sub

возможно ли прикрутить к нему другой механизм "сбора" файлов из папок и главное подпапок

в сети находил парочку примеров, как можно собрать файлы из папки, но чтоб он еще подпапки просматривал... такой не попадался

[EducatedFool]

А здесь искали? http://www.programmersforum.ru/showthread.php?t=30219
Или здесь: http://www.programmersforum.ru/showthread.php?t=31135

Есть ещё несколько примеров (здесь на форуме)
Только искать неохота...

Еще здесь поглядите: http://www.programmersforum.ru/showp...33&postcount=6

Ключевое слово для поиска: subfolders

[valerij]

Сообщение от legion-mia

вот макрос
он выполняет все что мне нужно просто идеально, но в 2003 экселе.....будут юзать и на 2007

А, что мешает в 2003, сохранить для 2007?
Существует у Microsoft для этих целей, конвертор.

Office 2007 File Format Converters

[legion-mia]

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

Еще здесь поглядите: http://www.programmersforum.ru/showp...33&postcount=6

Ключевое слово для поиска: subfolders

до такого ключевого слова я не додумался...
искал по список файлов папка

спасибо...
думаю третий пример я смогу дооптимизировать для своих нужд