Имя: Пароль:
1C
1С v8
ошибка при записи файла опен офис. что не так ?
0 zladenuw
 
19.10.12
16:25
//Подключение к серверу автоматизации OpenOffice
Попытка
   OpenOffice = Новый COMОбъект("com.sun.star.ServiceManager");
   
   scr = Новый COMОбъект("MSScriptControl.ScriptControl");
   scr.language = "javascript";
   
   scr.eval("MassivParametrov = new Array()");
   MassivParametrov = scr.eval("MassivParametrov");
   
   scr.AddObject("OpenOffice", OpenOffice);
   
   scr.eval("MassivParametrov[0]=OpenOffice.Bridge_GetStruct('com.sun.star.beans.PropertyValue')");
   scr.eval("MassivParametrov[0].Name='Hidden'");
   scr.eval("MassivParametrov[0].Value=true");
   
   scr.eval("MassivParametrovSave = new Array()");
   
   MassivParametrovSave = scr.eval("MassivParametrovSave");
   scr.eval("MassivParametrovSave[0]=OpenOffice.Bridge_GetStruct('com.sun.star.beans.PropertyValue')");
   scr.eval("MassivParametrovSave[0].Name='Overwrite'");
   scr.eval("MassivParametrovSave[0].Value=true");
   
   Соединение = OpenOffice.createInstance("com.sun.star.frame.Desktop");
   
   
Исключение
   Сообщить(ОписаниеОшибки() + Символы.ПС + "программа OpenOffice не установлена на данном компьютере!");        
КонецПопытки;





Если МодульOpenOffice = Неопределено Тогда
            МодульOpenOffice = Обработки.МодульOpenOffice.Создать();
    КонецЕсли;
   
   
   sUrl = МодульOpenOffice.URLИзИмениФайла(мВыбФайл);
   Файл = МодульOpenOffice.Соединение.LoadComponentFromURL(sUrl, "_blank", 0, МодульOpenOffice.MassivParametrov);
   
   
   КолЛистов = Файл.GetSheets().GetCount();
       Попытка        
           ТекущийЛист = Файл.sheets.getByIndex(0);
           ReplaceDescriptor     = ТекущийЛист.createReplaceDescriptor();
           ReplaceDescriptor.SearchString = "is";
           ReplaceDescriptor.ReplaceString = "was";
       Исключение
           Сообщить(ОписаниеОшибки());
       КонецПопытки;
    Файл.storeAsURL(sUrl, МодульOpenOffice.MassivParametrovSave);
1 zladenuw
 
19.10.12
16:26
ошибка :)
{Форма.Форма.Форма(26)}: Ошибка при вызове метода контекста (storeAsURL)
   Файл.storeAsURL(sUrl, МодульOpenOffice.MassivParametrovSave);
по причине:
Произошла исключительная ситуация ([automation bridge] ): com.sun.star.task.ErrorCodeIOException:
Я не хочу быть самым богатым человеком на кладбище. Засыпать с чувством, что за день я сделал какую-нибудь потрясающую вещь — вот что меня интересует. Стив Джобс