Имя: Пароль:
1C
1С v8
При выгрузке из 1С 8 в Excel сбиваются формулы автосуммы
0 Альбатрос
 
18.06.12
15:44
Всем привет. Подскажите что упустил?
1) Создал объект: ВходExcel = новый COMОбъект("Excel.Application");
2) Открыл файл: ВходExcel.Workbooks.Open(НазваниеФайла);
           ЭксельЛист= ВходExcel.Sheets(НомерЛиста);
       ВходExcel.Sheets(НомерЛиста).Select();
       Область = ВходExcel.ActiveSheet.UsedRange;
3) Считал номера заказов:
            Для а=НачальнаяСтрока по КонечнаяСтрока цикл
          НомЗаказа = Формат(Область.Cells(а, 14).Value,"ЧГ=0");
            КонецЦикла;
4) Записал в файл:
            Область.Cells(а,49).NumberFormat="Д.МММ";
        Область.Cells(а,49).Value=Рез.Дата;
5) Сохранил: ЭксельЛист.SaveAs(НазваниеФайла);
6) Закрыл файл и отпустил процесс:
               ВходExcel.displayAlerts    = 0;
       ВходExcel.ActiveWorkbook.Close();
       КнигаЭксель    = Неопределено;
       ВходExcel.Quit();