Новости:

Подпишитесь на рассылку новых сообщений форума через службу рассылок: Subscribe.ru

Главное меню

свод из множества файлов в один

Автор Jim, 18.01.2012, 12:01

« назад - далее »

Jim

всем привет!

такой вопрос:
имеется папка на диске С, там много файлов excel, во всех таблица одиннковые но разнные данные. нужно чтобы из всех этих файлов с листа "Лист1" со столбца Т, данные собирались в отдельный файл, начиная со столбца F (и так далее, из следующего файла в столбец G, потом H и т.д.)
+ необходимо чтобы шапка перенесенного столбца подписывалась как название файла откуда столбец был взят.

папка с файлами всегда одна и не перемещается "C:\Рабочий стол\инфо\"

заранее спасибо за помощь

Wasilic

Цитата: Jim от 18.01.2012, 12:01
всем привет!

такой вопрос:
Jim, такой вопрос на форуме не впервой как и Вы.
Можно было и поискать.
Пробуйте.
Может и я на что сгожусь ... Если сгодился, можете меня по+благодарить+.

Jim

сорри если такое было, я находил чтобы листы собрать в один файл, а вот чтобы столбцы не видел.

Wasilic, чтото не срабатывает макрос, вообще ничего не происходит.

Wasilic

#3
Цитата: Jim от 18.01.2012, 15:13
Wasilic, чтото не срабатывает макрос, вообще ничего не происходит.
В макросе:
iPath$ = "C:\Рабочий стол\инфо\"
Путь указан правильно?

ЗЫ У меня рабочий стол в:
C:\Documents and Settings\All Users\Рабочий стол
Может и я на что сгожусь ... Если сгодился, можете меня по+благодарить+.

Jim

работает, но есть вопрос..

после запуска макроса, у меня возникает окно,:
ЦитироватьВ буфере обмена находится большой объем данных. Сохранить эти данные для последюущей вставки в другую прогрумму?

ДА       НЕТ      ОТМЕНА

если нажать НЕТ, то макрос выдает ошибку, если ДА то работает.

и возникает это окно на каждый файл откуда копируется столбец.
возможно ли как то от него избавиться?


Wasilic

Код подправил.
А окна предупреждений отключаются где-то в настройках, не помню.
Может и я на что сгожусь ... Если сгодился, можете меня по+благодарить+.

Jim

с окнами разобрался...

а как обозначить чтобы инфо бралось с определенного листа, который называется к примеру "Лист1", но этот лист может находится где угодна, даже в самом конце... т.е. листы идут не попорядку..

Wasilic

В коде, после строки:
    Workbooks.Open Filename:=IPath$ & FAIL$
надо вписать строку
    Sheets("Лист1").Select
"Лист1" - и есть имя листа, если другое - заменить.
Может и я на что сгожусь ... Если сгодился, можете меня по+благодарить+.

Jim

столкнулся с новой проблемой..
макрос некоторые данные переносит без дробной запятой.
к примеру число 1,875, он переносит просто 1875
но некоторые числа с "," он переносит правильно, но число делает как текст.

Wasilic

Цитата: Jim от 19.01.2012, 17:29
макрос некоторые данные переносит без дробной запятой.
к примеру число 1,875, он переносит просто 1875
Но у меня-то нет этих "некоторых данных".
Выкладывайте, посмотрю.
Может и я на что сгожусь ... Если сгодился, можете меня по+благодарить+.

Jim

выложил образец файла из которого подтягиваются цифры.

Wasilic

Понятно.
Пробуем так!
Может и я на что сгожусь ... Если сгодился, можете меня по+благодарить+.