|
|
|
Регистрация Восстановить пароль |
Повторная активизация 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 |
