| 
    
 | 
        сохранить несколько табличных документов в разные листы 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));
              
          КонецЦикла;     
         | 
 |