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();
|
|