Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/VBA скопировать из 28 одинаковых фалов данные в один файл - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
VBA скопировать из 28 одинаковых фалов данные в один файл
qpp Дата: Понедельник, 06.08.2012, 16:54 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 117
Репутация: 11 ±
Замечаний: 0% ±

Здравствуйте, я как всегда со своими вопросами.

Я точно знаю что это можно сделать при помощи VBA, логика подсказывает Пишешь путь, открыть скопировать, вставить закрыть.

Что я хочу получить:
Файл .xlsx (name: Union)

В строке М пишется название файла из которого скопированы данные.

Файлы всегда называются одинаково (по филиалам)
Кол-во столбцов одинаково и тд.
Макрос, желательно, должен запрашивать адрес к папке где лежат эти 28 файлов.

Ранее мне писали схожий код, но он копировал на разные листы данные из паки.

Если необходимо, могу выложить код.
К сообщению приложен файл: Arkhangelsk--.xlsx (11.3 Kb) · Astrakhan--.xlsx (11.2 Kb)


bigqpp
скайп


Сообщение отредактировал qpp - Понедельник, 06.08.2012, 16:55
 
Ответить
СообщениеЗдравствуйте, я как всегда со своими вопросами.

Я точно знаю что это можно сделать при помощи VBA, логика подсказывает Пишешь путь, открыть скопировать, вставить закрыть.

Что я хочу получить:
Файл .xlsx (name: Union)

В строке М пишется название файла из которого скопированы данные.

Файлы всегда называются одинаково (по филиалам)
Кол-во столбцов одинаково и тд.
Макрос, желательно, должен запрашивать адрес к папке где лежат эти 28 файлов.

Ранее мне писали схожий код, но он копировал на разные листы данные из паки.

Если необходимо, могу выложить код.

Автор - qpp
Дата добавления - 06.08.2012 в 16:54
RAN Дата: Понедельник, 06.08.2012, 17:05 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010


Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщениеhttp://www.excel-vba.ru/chto-um....li-knig

Автор - RAN
Дата добавления - 06.08.2012 в 17:05
qpp Дата: Понедельник, 06.08.2012, 17:32 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 117
Репутация: 11 ±
Замечаний: 0% ±

[vba]
Code
ThisWorkbook.Sheets.Add After:=Sheets(Sheets.Count)
[/vba]

у меня не работает.. на этом месте пишет баг

скачал пример ! все работает ! ! ! )))) biggrin

С кнопки в примере работает , а с диалогового окна макросов выдает ошибку cry


bigqpp
скайп


Сообщение отредактировал qpp - Понедельник, 06.08.2012, 18:26
 
Ответить
Сообщение[vba]
Code
ThisWorkbook.Sheets.Add After:=Sheets(Sheets.Count)
[/vba]

у меня не работает.. на этом месте пишет баг

скачал пример ! все работает ! ! ! )))) biggrin

С кнопки в примере работает , а с диалогового окна макросов выдает ошибку cry

Автор - qpp
Дата добавления - 06.08.2012 в 17:32
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!