Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Соединить листы на один лист.
 
#1
06.06.2013 13:34:45
Всем добрый день,
Тема уже заезжена, но все же в данном контексте , помогите найти решение:

Есть папка, в ней .xls файлы. Нужно в другой файл на 1 лист с ячейки A3 положить все данные (по сторкам) из первых листов всех файлов данной папки. Структура данных такая:

Папка
файл 1
файл 2
....
файл n
везде использовать Первый лист, и собирать данные с ячейки А3.

Буду очень признательна за помощь.  :)
Изменено: Кристина Пл - 06.06.2013 14:04:12
 
 
 
#2
06.06.2013 13:35:55
Загляните в "Приемы".
 
 
 
#3
06.06.2013 13:51:37
В приемах собирает данные на разные листы, а мне нужно все на один лист поместить. Делаю так (по аналогии с приемами), но не работает и нужно помещать на 1 лист:

' Макрос1 Макрос
     Dim FilesToOpen
     Dim x As Integer
     Application.ScreenUpdating = False  'отключаем обновление экрана для скорости
     FilesToOpen = All files "С:\Моя папка\*.xls")  
    'проходим по всем выбранным файлам
    x = 1
    While x <= UBound(FilesToOpen)
        Set importWB = Workbooks.Open(Filename:=FilesToOpen(x))
        Sheets(1).Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
        importWB.Close savechanges:=False
        x = x + 1
    Wend
    Application.ScreenUpdating = True
   
End Sub
 
 
 
#4
06.06.2013 13:57:32
во всех файлах количество листов равно единице?
 
 
 
#5
06.06.2013 14:03:03
Копируйте не весь лист, а только  importWB.Sheets(1).usedrange и не в новый лист, а в определённую последнюю+1 ячейку столбца A (ну или в каком там столбце будет нижнее значение - нужно видеть файлы).
 
 
 
#6
06.06.2013 14:03:30
В файлах разное кол-во листов. Данные нужно собирать только с первых листов начиная с 3 строки (или ячейки А3)
 
 
 
#7
06.06.2013 14:04:35
пример выложите, без примера на пльцах вам уже объяснили  ;)
 
 
 
#8
06.06.2013 14:06:01
Кол-во строк в файлах разное.
собирать с первых листов всех файлов папки с 3-строки
 
 
 
#9
06.06.2013 14:07:22
А скрипт можно?
 
 
 
#10
06.06.2013 14:08:00
Ну значит открыли файл, определили диапазон что копировать, определили куда, копируете. Можно всё описать в одной строке, можно в трёх или даже пяти.
 
 
 
#11
06.06.2013 14:08:39
Цитата
Кристина Пл пишет: ... только с первых листов начиная с 3 строки (или ячейки А3)
По сусекам ("Ссылкам") поскрести - http://www.rondebruin.nl/win/addins/rdbmerge.htm ... ;)
"Ctrl+S" - достойное завершение ваших гениальных мыслей!.. ;)
 
 
 
#12
06.06.2013 14:09:27
прилагаю файл Дмитрия (The Prist)

но по-моему он собирает со всех листов всех книг
может сможете сами переделать под себя
 
 
 
#13
06.06.2013 14:12:25
Б А Х Т И Ё Р , да этот скрипт я уже видела, но к сожалению, он не поддался моей переделке :(
 
 
 
#14
06.06.2013 14:13:13
по сусекам не очень подходит, т.к. данный макрос нужно будет постоянно использовать для этой папки
 
 
 
#15
06.06.2013 14:16:11
Цитата
пример выложите, без примера на пльцах вам уже объяснили  ;)  
может не понятно написано?  :)   :)   :)
 
 
 
#16
06.06.2013 14:23:30
если в наименовании листов всех книг прослеживается система:
то в коде Дмитрия имеются и такие возможности:
   'Указываем имя листа
   'Допустимо указывать в имени листа символы подставки ? и *.
   'Если указать только * то данные будут собираться со всех листов
 
 
 
#17
06.06.2013 14:25:50
Вот структура данных
 
 
 
#18
06.06.2013 14:26:20
второй файл, по другому никак
 
 
 
#19
06.06.2013 14:26:44
третий
 
 
 
#20
06.06.2013 14:27:29
В этот файл все собираем. Все данные лежат в одной папке, другого в папке нет.
 
 
 
#21
06.06.2013 14:28:32
Кристина Пл, при создании сообщения есть возможность прикрепить СРАЗУ пять файлов. Вы не заметили?
 
 
 
#22
06.06.2013 14:30:36
Макрос который не работает, но хотелось бы :

Код
Sub Макрос1()
 Dim FilesToOpen
 Dim x As Integer

 Application.ScreenUpdating = False 
 FilesToOpen = Array("c:\Моя папка\*.xls"  ;)  

 x = 1
 While x <= UBound(FilesToOpen)
 Set importWB = Workbooks.Open(Filename:=FilesToOpen(x))
 importWB.Sheets(1).UsedRange
 importWB.Close savechanges:=False
 x = x + 1
 Wend

Application.ScreenUpdating = True

End Sub
Изменено: Кристина Пл - 06.06.2013 21:06:09
 
 
 
#23
06.06.2013 14:35:17
И коды оформляйте соответствующим тегом.
 
 
 
#24
06.06.2013 14:40:05
теги поменяла, 5 фалов не видела.
 
 
 
#25
06.06.2013 14:41:12
а нельзя как-то просто взять и собрать со всех книг папки данные с первых листов, мне кажется это проще чем перечислять что-то , тем более , что наименования разные.
 
 
 
#26
06.06.2013 17:05:23
Цитата
Кристина Пл пишет: а нельзя как-то просто
;)
"Ctrl+S" - достойное завершение ваших гениальных мыслей!.. ;)
 
 
 
#27
07.06.2013 14:46:51
Пользователь Z ,

Вы кажется забыли самое главное - Макрос положить  :)
 
 
 
#28
07.06.2013 15:08:03
Блииин, ну поиск же работает, совсем недавно давал ссылку в подобной теме сюда загляните
 
 
 
#29
07.06.2013 16:15:55
Igor67,
Спасибо, работает!
 
 
 
Страницы: 1
Читают тему
Наверх