ошибка при записи файла опен офис. что не так ?
☑
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:
Я не хочу быть самым богатым человеком на кладбище. Засыпать с чувством, что за день я сделал какую-нибудь потрясающую вещь — вот что меня интересует. Стив Джобс