skazan
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Суть проблемы: Приходят в екселе остатки, надо добавить колонку заказ и внее вносить заказы. Открываю ексель, сохраняю как новый файл, зарываю стары, открываю новый, дописываю столбец заказ, сохраняю, а меняется старый. Может кто увидит в чем причина. Код привожу
Excel = СоздатьОбъект("Excel.Application");
Excel.Workbooks.Close();
Excel.Quit();
КопФайл=Сред(ИмяФайла,1,СтрДлина(ИмяФайла)-4)+"_Заказ.xls";
// Фс.КопироватьФайл(ИмяФайла,КопФайл,0);
Excel.Workbooks.Open(ИмяФайла);
Excel.Save(КопФайл);
Excel.Workbooks.Close();
Excel.Quit();
ExcelЗ = СоздатьОбъект("Excel.Application");
ExcelЗ.Workbooks.Open(КопФайл);
ExcelЗ.Visible = 0;
ExcelЗ.WorkSheets(1).Activate();
Спр=СоздатьОбъект("Справочник.Номенклатура");
Лист=ExcelЗ.WorkSheets(1);
Лист.Cells(4, 9).Value = "ЗАКАЗ";
Лист.Cells(4,9).Font.Name = "Arial";
Лист.Cells(4,9).Font.Size = 11;
Лист.Columns(9).ColumnWidth = 10;
Лист.Cells(4,9).Font.Bold = 1;
Попытка
ExcelЗ.Save(КопФайл);
Исключение
Сообщить(ОписаниеОшибки()+" Файл не сохранен!");
Возврат;
КонецПопытки;
Excel.Workbooks.Close();
Excel.Quit();
|
