Страница: 1 |
Вопрос: Список файлов в директории . | Добавлено: 07.05.07 17:08 |
Автор вопроса: ![]() |
Привет всем.
Как с помощю VBA вывести на лист список всех *.xls файлов определенной директории? Если можна, проилюстрируйте исходником ... буду очень признателен. |
Ответы | Всего ответов: 5 |
Номер ответа: 1 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() ![]() Вопросов: 5 Ответов: 5 |
Профиль | Цитата | #1 | Добавлено: 07.05.07 18:01 |
Нашел такой вариант. Правда пока без фильтра, но думаю с этим проблем не будет.
Если кому надо ... Dim m As integer Dim fso As FileSystemObject Dim f As Folder Dim fc As Files Dim fl As File MyPath = "C:\temp" 'путь к папке Set fso = CreateObject ("Scripting.FileSystemObject" ![]() Set f = fso.GetFolder(MyPath) Set fc = f.Files m = 0 For Each fl In fc m = m + 1 Range("A" & m).Value = fl.Name Next Может попросить подключить библиотеки. Я лично в ссылках добавил: Microsoft Scripting Runtime |
Номер ответа: 2 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ICQ: 387093431 Вопросов: 1 Ответов: 70 |
Профиль | Цитата | #2 | Добавлено: 07.05.07 18:11 |
Также можно юзать и классические примеры, например :
Dim A As String A = Dir$("C:\*.*", vbHidden + vbArchive + vbReadOnly + vbSystem) Do While A <> "" Debug.Print A A = Dir$ Loop |
Номер ответа: 3 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ICQ: 387093431 Вопросов: 1 Ответов: 70 |
Профиль | Цитата | #3 | Добавлено: 07.05.07 18:17 |
Да, есть одно замечание к Zhenja_.
Во-первых когда юзаешь CreateObject, тогда подключать никаких библиотек не нужно, т.е. вот такой код у тебя прокатит : Dim fso 'As FileSystemObject Dim f 'As Folder Dim fc 'As Files Dim fl 'As File MyPath = "C:\" 'путь к папке Set fso = CreateObject("Scripting.FileSystemObject" ![]() Set f = fso.GetFolder(MyPath) Set fc = f.Files m = 0 For Each fl In fc Debug.Print fl.Name Next End Sub И во вторых если уже подключил библиотеки тогда забери строчку Set fso = CreateObject ("Scripting.FileSystemObject" ![]() А вместо Dim fso As FileSystemObject напишы Dim fso As new FileSystemObject |
Номер ответа: 4 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() ![]() Вопросов: 5 Ответов: 5 |
Профиль | Цитата | #4 | Добавлено: 07.05.07 20:36 |
Да, есть одно замечание к Zhenja_.
Спасибо что прокоментировали мой пост. А то на радостях что все роботает, даже не обратил внимания на такие вещи. |
Номер ответа: 5 Автор ответа: ![]() ![]() ![]() Вопросов: 11 Ответов: 160 |
Web-сайт: Профиль | Цитата | #5 | Добавлено: 07.05.07 21:29 |
Для информации - посмотри справку на Application.FileSearch |
Страница: 1 |
|