![]() |
![]() |
![]() |
|
сохранить несколько табличных документов в разные листы 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)); КонецЦикла; |
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |