0
DTX 4th
08.09.16
✎
12:29
|
Сохраняю файл из 1С, а потом пытаюсь проставить там суммы вот таким образом:
ТабДок.Записать(ИмяФайла, ТипФайлаТабличногоДокумента.XLS);
ОбработатьExcel(ИмяФайла);
...
Процедура ОбработатьExcel(ИмяФайла)
Эксель = Новый COMОбъект("Excel.Application");
Книга = Эксель.WorkBooks.Open(ИмяФайла);
Лист = Книга.WorkSheets(1);
Лист = ПолучитьCOMОбъект(,"Excel.Application");
ВсегоКолонок = Лист.Cells(1,1).SpecialCells(11).Column;
ВсегоСтрок = Лист.Cells(1,1).SpecialCells(11).Row;
Для Строка = 5 По ВсегоСтрок Цикл
С = Формат(Строка, "ЧГ=0");
Лист.Cells(Строка,10).Formula = "=SUM(G"+С+"*F"+С+")";
КонецЦикла;
Лист.Cells(ВсегоСтрок,10).Formula = "=SUM(J5:J"+Формат(ВсегоСтрок-1, "ЧГ=0")+")";
Эксель.DisplayAlerts = 0;
Книга.Close(1);
Эксель.DisplayAlerts = 1;
КонецПроцедуры
Всё это дело успешно работало несколько недель, а на днях перестало проставлять формулы на некоторых компах. У меня и у коллеги всё работает, у двух пользователей - нет.
В чем может быть причина?
|
|