Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 27.03.2009, 07:25   #1
Technolog
Пользователь
 
Регистрация: 17.09.2008
Сообщений: 10
По умолчанию Перенос данных

Имеется куча файлов (больше тысячи). Как пробежаться по всем файлам екселя в директории и для каждого выполнить макрос?
Technolog вне форума Ответить с цитированием
Старый 27.03.2009, 07:27   #2
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

На форуме масса подобных примеров. Поищите, не ленитесь. Или у Вас конкретно что-то не получается?
Чем шире угол зрения, тем он тупее.
SAS888 вне форума Ответить с цитированием
Старый 27.03.2009, 07:40   #3
Technolog
Пользователь
 
Регистрация: 17.09.2008
Сообщений: 10
По умолчанию

Отправил не дописав всю суть

Макрос должен создавать 2 листа (с этим разобрался).
В эти листы из 3 должен переносить данные с 4 строки, пока не встретится определенное слово.
Столбцы в одном месте должны перебираться с D по O.

На VBA опыт программирования не имею, но опыт программирования есть.
Проблема в том, что я не знаю синтаксиса языка, подскажите какие функции использовать.

А может быть у кого-то есть справочник на русском со списком функций, разбитом на главы типа: работа с файлами, циклы и тп
Technolog вне форума Ответить с цитированием
Старый 27.03.2009, 07:55   #4
Sasha_Smirnov
Особый статус
Участник клуба
 
Аватар для Sasha_Smirnov
 
Регистрация: 24.11.2008
Сообщений: 1,535
По умолчанию

Dir
Введите эту функцию в код (без параметров) — и почитайте справку (по F1, поставив курсор на эту Dir).

Пример программы см. по ссылке. Она работала, но подробностей сейчас я не помню.

Ну раз недоступна — вот в приложенном файле та же программа. Запускается через альт-F8.

Сам код смотрите по альт-F11. Тем более что там (в коде) необходимо изменить путь к папке.
Вложения
Тип файла: rar LinksToFiles.rar (6.0 Кб, 20 просмотров)

Последний раз редактировалось Sasha_Smirnov; 27.03.2009 в 21:21.
Sasha_Smirnov вне форума Ответить с цитированием
Старый 27.03.2009, 10:17   #5
Technolog
Пользователь
 
Регистрация: 17.09.2008
Сообщений: 10
По умолчанию

Ссылка чего-то не открывается.

Программу написал сам (все оказалось элементарно), осталось только выяснить, как сделать так, чтоб макрос отработал для всех файлов ексель текущей директории, или в явно указанной директории.
Technolog вне форума Ответить с цитированием
Старый 27.03.2009, 10:45   #6
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

Неоднократно решал подобные задачи на форуме. Воспользуйтесь поиском.

Пример можете посмотреть здесь: http://www.programmersforum.ru/showp...4&postcount=26

Или во вложении:
(Сначала нажмите желтую кнопочку для выбора папки, потом зеленую "Загрузить список файлов". Перед нажатием зелёной кнопки можете снять флажок "Просматривать подпапки")
Вложения
Тип файла: rar Чтение имён файлов из выбранной папки.rar (562.8 Кб, 43 просмотров)
EducatedFool вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
перенос данных Romuald Microsoft Office Excel 8 23.02.2009 12:40
Перенос данных Nesta1384 Microsoft Office Excel 4 19.01.2009 02:28
перенос данных Viento Microsoft Office Excel 10 16.01.2009 00:13
Перенос данных. Victor Microsoft Office Excel 8 01.09.2007 21:02
перенос база данных asale БД в Delphi 2 21.06.2007 11:35