|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
06.09.2011, 11:50 | #1 |
Новичок
Джуниор
Регистрация: 06.09.2011
Сообщений: 9
|
Не работает в MS Excel 2007 Application.FileSearch
Комрады, помогите плз решить проблему: макрос работает в MS Excel 2003, но не работает в 2007-м. Выдается ошибка "Run time error '445': Object doesn't support this action". При этом, пример кода взят из справки MS Excel 2007. Макрос выполняет поиск файлов с заданной маской в заданном каталоге и выводит результат на экран в сообщении (msgbox).
Ошибка выдается на строке - With Application.FileSearch. Собственно макрос: # Sub filesearch() With Application.FileSearch .NewSearch .LookIn = "C:\0" .SearchSubFolders = True .Filename = "*.dbf" If .Execute() > 0 Then MsgBox "There were " & .FoundFiles.Count & _ " file(s) found." Else MsgBox "There were no files found." End If End With End Sub |
06.09.2011, 12:04 | #2 |
Форумчанин
Регистрация: 22.06.2011
Сообщений: 325
|
Заказать макрос можно на сайте http://excel4you.ru/
|
06.09.2011, 12:13 | #3 |
Новичок
Джуниор
Регистрация: 06.09.2011
Сообщений: 9
|
Ага. Пасиб. Это я уже видел. Аднака, в той ссылке пример дан для поиска только заданной папки, а у меня задача перебрать все файлы во всех подпапках, причем, кол-во подпапок заранее неизвестно..
|
06.09.2011, 12:37 | #4 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
А поиск по форуму не рулит?
Могли бы этот пример найти.
Анализ,обработка данных Недорого
|
06.09.2011, 12:50 | #5 |
Новичок
Джуниор
Регистрация: 06.09.2011
Сообщений: 9
|
Я конечно извиняюсь, но не ясно как этот пример работает...
|
06.09.2011, 12:57 | #6 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
А что не понятно.
Выбираете папку для поиска,и он ищет ваши dbf файлы. Это как пример для вашей модеренизации Результат поиска файлов xls
Анализ,обработка данных Недорого
|
06.09.2011, 14:48 | #7 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
|
06.09.2011, 15:49 | #8 |
Новичок
Джуниор
Регистрация: 06.09.2011
Сообщений: 9
|
To EducatedFool: во це дило! Благодарю, хлопче!!!
|
06.09.2011, 16:10 | #9 |
Новичок
Джуниор
Регистрация: 06.09.2011
Сообщений: 9
|
Погонял ваш макрос, выдает не полный список файлов. Но не всегда. Например, файлов .txt в каталоге - 2604, а макрос строит список только из 73-х файлов...
|
06.09.2011, 16:17 | #10 |
Новичок
Джуниор
Регистрация: 06.09.2011
Сообщений: 9
|
глубину поиска не задаю.. 999.
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Ссылки на ВСЕ Excel.Application (VS2008, VB .Net, Excel2002/2003) | пасечник | Microsoft Office Excel | 7 | 16.11.2015 14:36 |
excel 2007, Регистрация библиотеки от excel 2003 | maksim_serg | Microsoft Office Excel | 1 | 12.01.2011 14:05 |
Windows Application not responding, когда долго работает цикл | serres | Общие вопросы .NET | 5 | 18.02.2010 13:45 |
FileSearch не ищет ф-лы с кириллицей | maximusu | Microsoft Office Excel | 0 | 23.10.2009 18:12 |
Как запретить запуск программы на VBA Excel 2003 в Excel 2007 | kovalevskivf | Microsoft Office Excel | 2 | 15.05.2009 16:47 |