|
сохранить несколько табличных документов в разные листы excel
| ☑ |
0
gosn1ck
14.06.12
✎
10:00
|
доброе утро
у меня имеется несколько сформированных табличных документов, можно ли их сохранить на разные листы одного файла эксель? или сначала сохранить их в экселе и объединить на разные листы
|
|
1
Rounder
14.06.12
✎
10:02
|
Можно и на разные. Программно.
|
|
2
Cube
14.06.12
✎
10:02
|
Можно.
|
|
3
Happy Bear
14.06.12
✎
10:09
|
Делал сохранить по-отдельности, потом объединял.
|
|
4
Pro-tone
14.06.12
✎
10:11
|
|
|
5
gosn1ck
14.06.12
✎
10:16
|
(1),(2),(3) можно код глянуть?
|
|
6
Rounder
14.06.12
✎
10:17
|
(5) Стучись в Асю.
|
|
7
gosn1ck
14.06.12
✎
10:42
|
(6) я бы с радостью но на работе нельзя... есть вариант написать в почту? gosn1ck@yandex (точка) ru
|
|
8
Rounder
14.06.12
✎
10:54
|
Сча попробую тут написать
|
|
9
gosn1ck
14.06.12
✎
13:23
|
(8) ты еще пишешь ?
|
|
10
Cube
14.06.12
✎
14:04
|
(8) Угу, три часа уже пишет в поте лица))
|
|
11
gosn1ck
14.06.12
✎
16:11
|
(10) он мне в почту написал, за что ему спасибо.
результат таков
ДокЭксель = Новый COMОбъект("Excel.Application");
ДокЭксель.DisplayAlerts=0;
ОбщаяКнига= ДокЭксель.WorkBooks.Add();
Для каждого ПутьКФайлуXLS Из МассивПутейФайловXLS Цикл
Книга = ДокЭксель.WorkBooks.Open(ПутьКФайлуXLS);
ЛистСДанными = Книга.Sheets(1);
ЛистСДанными.Select();
ЛистСДанными.Copy(ОбщаяКнига.Sheets(1));
КонецЦикла;
// удалим последние 3 пустых листа
КолЛистов = ДокЭксель.Sheets.Count;
ЛистОсталось= 3;
Пока ЛистОсталось > 0 Цикл
ДокЭксель.WorkSheets(КолЛистов).Delete();
КолЛистов = КолЛистов - 1;
ЛистОсталось = ЛистОсталось - 1;
КонецЦикла;
ОбщаяКнига.SaveAs(КудаСохранитьЭксель);
ОбщаяКнига.close();
ДокЭксель.Quit();
ДокЭксель = Неопределено;
Для каждого ПутьКФайлуXLS Из МассивПутейФайловXLS Цикл
УдалитьФайлы(СокрЛП(ПутьКФайлуXLS));
КонецЦикла;
|
|