Имя: Пароль:
1C
1С v8
сохранить несколько табличных документов в разные листы 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));
           
       КонецЦикла;
Проблемы невозможно решaть нa том же уровне компетентности, нa котором они возникaют. Альберт Эйнштейн