Открытие всех файлов xls в папке - Microsoft Office Excel - Страница 2

EducatedFool · 23.09.2010, 13:59

Цитата:

На ошибки не ругается, но даже список папок не печатает.

Значит, в корне диска D нет папок с названиями, начинающимися на 09...
Названия обрабатываемых файлов выводятся в строку состояния Excel:
Обрабатывается книга: D:\09-01-2010\123.xls

Цитата:

Никакие библиотеки подключать специально не надо для работы кода?

Ничего подключать не нужно.

Milo4ka_Lucy · 23.09.2010, 14:05

В строке состояния файлы тоже не пишет.
Папки на D точно есть.
Причем маски все точно правильные.

Milo4ka_Lucy · 23.09.2010, 14:11

Файл с макросом и пример папки.
Если есть время, посмотрите, пожалуйста.

EducatedFool · 23.09.2010, 14:16

Я ж вам дал готовый код в виде файла.
Не надо было убирать строки, которые вы сочли ненужными...

Поставьте ПЕРВОЙ строкой в модуле это:

Код:

Option Compare Text

Или же соблюдайте регистр символов:

Код:

Set coll = SubFoldersCollection("D:\данные для обработки\", "09-*")

Milo4ka_Lucy · 23.09.2010, 14:22

поставила. Ничего.=((
С Вашим файлом то же самое

Milo4ka_Lucy · 23.09.2010, 14:48

Руководство требует программу через час.
Не знаете, почему у меня она может не срабатывать?

EducatedFool · 23.09.2010, 15:29

Цитата:

Не знаете, почему у меня она может не срабатывать?

Не знаю - у меня всё работает.
Вы добавили строку Option Compare Text перед первым макросом?
Пробовали вместо Set coll = SubFoldersCollection("D:\данные для обработки\", "09-*")
написать Set coll = SubFoldersCollection("D:\данные для обработки", "09-*")

Если так срочно надо - пишите в личку
(установите себе программу TeamViewer - я удалённо подключусь к вашему компу, и найду причину)

Milo4ka_Lucy · 28.09.2010, 14:50

Извините, что так долго не отвечала. EducatedFool, спасибо Вам огромное за помощь. Программа заработала на "ура", когда я запустила ее на более мощном, чем у меня на работе, компьютере.
И еще раз спасибо за доходчивые объяснения, что провозились со мной. В следующий раз подобная задача уже не поставит меня в тупик, благодаря Вам я теперь капельку больше знаю.

23.09.2010, 14:16	#14
EducatedFool Программист VBA СуперМодератор Регистрация: 13.07.2008 Сообщений: 6,858	Я ж вам дал готовый код в виде файла. Не надо было убирать строки, которые вы сочли ненужными... Поставьте ПЕРВОЙ строкой в модуле это: Код: `Option Compare Text` Или же соблюдайте регистр символов: Код: `Set coll = SubFoldersCollection("D:\данные для обработки\", "09-")` __Полезные надстройки для Excel. Парсинг сайтов и файлов.* Макросы любой сложности на заказ. Мониторинг цен конкурентов

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Достать названия всех файлов в папке	BETONOMESHALKA	Помощь студентам	5	23.01.2015 10:05
Изменение всех ссылок в XLS.	KOM-STAR	Microsoft Office Excel	2	13.05.2010 15:50
Взять инфо со всех файлов находящихся в папке	sasha_prof	Microsoft Office Excel	1	15.03.2010 10:47
Переименование файлов в папке.	mr_Smitt	Общие вопросы Delphi	1	28.09.2009 17:20
Отслеживает появление в папке файлов. слежение за определенным файлом в определенной папке.	RammFan	Win Api	1	09.06.2007 11:09

23.09.2010, 14:05	#12
Milo4ka_Lucy Пользователь Регистрация: 25.06.2010 Сообщений: 31	В строке состояния файлы тоже не пишет. Папки на D точно есть. Причем маски все точно правильные.

23.09.2010, 14:22	#15
Milo4ka_Lucy Пользователь Регистрация: 25.06.2010 Сообщений: 31	поставила. Ничего.=(( С Вашим файлом то же самое

23.09.2010, 14:48	#16
Milo4ka_Lucy Пользователь Регистрация: 25.06.2010 Сообщений: 31	Руководство требует программу через час. Не знаете, почему у меня она может не срабатывать?

28.09.2010, 14:50	#18
Milo4ka_Lucy Пользователь Регистрация: 25.06.2010 Сообщений: 31	Извините, что так долго не отвечала. EducatedFool, спасибо Вам огромное за помощь. Программа заработала на "ура", когда я запустила ее на более мощном, чем у меня на работе, компьютере. И еще раз спасибо за доходчивые объяснения, что провозились со мной. В следующий раз подобная задача уже не поставит меня в тупик, благодаря Вам я теперь капельку больше знаю.