Имя: Пароль:
1C
 
1С перестала редактировать XLS файлы на некоторых компах
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;
        
КонецПроцедуры


Всё это дело успешно работало несколько недель, а на днях перестало проставлять формулы на некоторых компах. У меня и у коллеги всё работает, у двух пользователей - нет.
В чем может быть причина?
1 Euguln
 
08.09.16
12:31
(0) Параметры Excel, стиль ссылок R1C1 сними.
2 DTX 4th
 
08.09.16
12:45
(1) Не стоит
3 DTX 4th
 
08.09.16
12:52
Черт..

Лист = ПолучитьCOMОбъект(,"Excel.Application");

Это надо закомментить и всё будет работать.. С отладки осталось..
Компьютеры — это как велосипед. Только для нашего сознания. Стив Джобс