_Об = ВнешнийОбъект("Excel.Application");
   _wb = _Об.Workbooks.Open( _ВыходнойФайл, 0, 0, 1, "450194" );

   names = _Об.Sheets( _Лист );
   names.Select();

   _Длина = _Ширина = 0;
   ДляВсех( ПодОбъектов( _мЭксель, инд ) )
   {
      ДляВсех( Элементов( _мЭксель[ инд ], минд ) )
      {
         Если( _Ширина < Число( минд ) )
            _Ширина = Число( минд );
      }
      Если( _Длина < Число( инд ) )
         _Длина = Число( инд );
   }
   cell1     = names.Cells.Item( _ЛСтрока, _ЛСтолбец );
   _ПСтрока  = Число( _ЛСтрока ) + Число( _Длина );
   _ПСтолбец = Число( _ЛСтолбец ) + Число( _Ширина );
   cell2     = names.Cells.Item( _ПСтрока, _ПСтолбец );
   names     = _Об.Range( cell1, cell2 );
   names.Value = _мЭксель;
   
   Если( _Макрос )
   {
      _ИмяФайла = _ВыходнойФайл;
      Пока( _поз = Найти( _ИмяФайла, "\\" ) )
         _ИмяФайла = ПодСтрока( _ИмяФайла, _поз + 1, -1 );
      _Макрос = _ИмяФайла + "!" + _Макрос;
      s = _Об.Run( _Макрос ); 
   }

   names = _Об.Sheets( _Лист );
   names.Select();
   
   _Об.ActiveWorkBook.Save();
   _wb.Close();

   УдалитьПеременную( _wb );
   УдалитьПеременную( _Об );