Excel: Отключить автоматический расчет формул по OLE #263635


#0 by dk
[1c]    xlCalculationAutomatic    = -4105;    xlCalculationManual    = -4135;    Попытка        scr                = СоздатьОбъект("MSScriptControl.ScriptControl");        scr.language    = "vbscript";        ExcelApp        = scr.eval("CreateObject(""Excel.Application"")");    Исключение        Попытка            ExcelApp = СоздатьОбъект("Excel.Application");        Исключение            Сообщить("Не удалось открыть Excel. " + ОписаниеОшибки);            Возврат;        КонецПопытки;    КонецПопытки;        ExcelApp.Calculation = xlCalculationManual; [/1c] Ругается: ExcelApp.Calculation = xlCalculationManual; {C:DOCUMENTS AND SETTINGSDKРАБОЧИЙ СТОЛEXCEL ДЛЯ ЗАКУПАERTВЫГРУЗКА В EXCEL 1_8.ERT}: Microsoft Office Excel: Нельзя установить свойство Calculation класса Application --- Excel 2003 SP2 Где грабли?
#1 by dk
[1C]Вверх[/1C]
#2 by dk
ждем smaharba
#3 by dend
попробуй ExcelApp.Calculation = -4135;
#4 by dend
сорь верх не увидел...
#5 by smaharbA
[1C] //******************************************* Процедура Сформировать    xlCalculationAutomatic = -4105;    xlCalculationManual = -4135;    Попытка        scr = СоздатьОбъект("MSScriptControl.ScriptControl");        scr.language = "vbscript";        ExcelApp = scr.eval("CreateObject(""Excel.Application"")");        ExcelApp.WorkBooks.Add;        //Вот это, при таком обращении к ехелю нет книг в контексте    Исключение        Попытка            ExcelApp = СоздатьОбъект("Excel.Application");        Исключение            Сообщить("Не удалось открыть Excel. " + ОписаниеОшибки);            Возврат;        КонецПопытки;    КонецПопытки;    ExcelApp.Calculation = xlCalculationManual; КонецПроцедуры [/1C]
#6 by dk
работает, теперь поиграем в "Найти 10 отличий"
#7 by dk
Спасибо, нашел. Нужно было открыть workbook а уже потом запрещать пересчет.
#8 by dk
для
Тэги:
Ответить:
Комментарии доступны только авторизированным пользователям

В этой группе 1С