склеить файлы

Natalia Пользователь Сообщений: 283 Регистрация: 01.01.1970	#1 10.11.2010 15:10:26 Всем добрый день! Подскажите, пожалуйста, как можно склеить из большого количества файлов, хранящихся в одной папке, первые листы в один файл?

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#2 10.11.2010 16:59:26 В разделе "Приемы" смотрели? http://www.planetaexcel.ru/tip.php?aid=111

Guest Гость	#3 10.11.2010 17:46:47 Этот макрос осуществляет сборку листов в один файл, а мне нужно данные из этих листов склеить друг под другом на итоговый лист. Как быть?

Димон Гость	#4 10.11.2010 19:05:35 в Плексе есть такая функция но у меня почему то не работает

Guest

Гость

11.11.2010 12:20:00

Спасибо большое!
Подскажите, пожалуйста, вот в программе склеивания листов из нескольких файлов есть часть кода, где

x = 1
While x <= UBound(FilesToOpen)
Workbooks.Open Filename:=FilesToOpen(x)
Sheets().Move After:=ThisWorkbook.Sheets _
(ThisWorkbook.Sheets.Count)
x = x + 1
Wend

Программа склеивает листы в эту же книгу, а как склеить их в другую книгу?

Natalia Пользователь Сообщений: 283 Регистрация: 01.01.1970	#6 11.11.2010 12:35:33 То есть, как вместо ThisWorkbook поставить вновь созданную новую книгу?

ТолькоУчусь

Пользователь

Сообщений: 1220 Регистрация: 13.05.2010

11.11.2010 13:14:50

Вместо:
-------------
Sheets().Move After:=ThisWorkbook.Sheets (ThisWorkbook.Sheets.Count)
-------------
так:
-------------
Sheets().Move
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & ИмяКниги & ".xls"
-------------
Например, переменной "ИмяКниги" присвойте значение любой ячейки (главное чтобы значение ячейки было разным, иначе сами понимаете...).

Natalia Пользователь Сообщений: 283 Регистрация: 01.01.1970	#8 11.11.2010 14:42:39 Спасибо! Но всё равно не то! Мне нужно, чтобы он эти листы добавлял не в этот же файл с макросом, а к примеру в книгу 1.xls Как быть?

ТолькоУчусь Пользователь Сообщений: 1220 Регистрация: 13.05.2010	#9 11.11.2010 14:55:58 А Вы пробовали? У меня "Sheets().Move" это и есть "вновь созданную новую книгу". <FONT COLOR="CadetBlue">

Guest Гость	#10 11.11.2010 15:11:04 {quote}{login=Дъмитръ}{date=11.11.2010 02:55}{thema=}{post}А Вы пробовали? У меня "Sheets().Move" это и есть "вновь созданную новую книгу".{/post}{/quote} Пробовала, у меня выскакивает ошибка "Method MOVE of object Sheets failed"

Guest

Гость

#11

11.11.2010 15:13:38

{quote}{login=}{date=11.11.2010 03:11}{thema=Re: }{post}{quote}{login=Дъмитръ}{date=11.11.2010 02:55}{thema=}{post}А Вы пробовали? У меня "Sheets().Move" это и есть "вновь созданную новую книгу".{/post}{/quote}

Пробовала, у меня выскакивает ошибка "Method MOVE of object Sheets failed"{/post}{/quote}

Можете показать ваш вариант?

ТолькоУчусь Пользователь Сообщений: 1220 Регистрация: 13.05.2010	#12 11.11.2010 15:36:07 http://www.planetaexcel.ru/forum.php?thread_id=21020 <FONT COLOR="CadetBlue">

ТолькоУчусь Пользователь Сообщений: 1220 Регистрация: 13.05.2010	#13 11.11.2010 15:37:35 "Sheets().Move" - Вы забыли в скобках что-то добавить... <FONT COLOR="CadetBlue">

Читают тему