v7: Открыть XLS файл средствами Libre Office 3.4

как то так

 
//*******************************************
 
Процедура Сформировать()
 
    Перем Имя,Путь,Шел,ФСО,Файл,Параметр;
 
    Перем Ошибка,СервисМанагер,ШелСкрипт,Стр,ЗапускОО,Запуск,Версия,КласИд,Сп,База,Заголовок;
 
    Попытка
 
        СервисМанагер=СоздатьОбъект("com.sun.star.ServiceManager");
 
    Исключение
 
        Ошибка=1;
 
    КонецПопытки;
 
    Если Ошибка=1 Тогда
 
        Если ФС.ВыбратьФайл(0,Имя,Путь,"Выберете Носимый офис...","Файл Настройки Офиса (*.ini)|*.ini","ini")=0 Тогда
 
            Возврат;
 
        КонецЕсли;
 
        Текст=СоздатьОбъект("Текст");
 
        Текст.Открыть(Путь+Имя);
 
        Для Сч=1 По Текст.КоличествоСтрок() Цикл
 
            Стр=СокрЛП(Текст.ПолучитьСтроку(Сч));
 
            Если Найти(Врег(Стр),Врег("OpenOfficeDirectory"))=1 Тогда
 
                Файл=Путь+"\"+СокрЛП(Сред(Стр,Найти(Стр,"=")+1))+"\program\soffice.exe";
 
                Прервать;
 
            КонецЕсли;
 
        КонецЦикла;
 
        Если ФС.СуществуетФайл(Файл)=0 Тогда
 
            Сообщить("Фигня какая то!!! Нету пускалки.","!!!");
 
            Возврат;
 
        КонецЕсли;
 
        ФСО=СоздатьОбъект("Scripting.FileSystemObject");
 
        Шел=СоздатьОбъект("Shell.Application");
 
        Путь=Шел.NameSpace(ФСО.GetFile(Файл).ParentFolder.Path);
 
        Файл=Путь.ParseName(ФСО.GetFile(Файл).Name);
 
        Сообщить(Путь.GetDetailsOf(Файл,35));
 
        Если Найти(Врег(Путь.GetDetailsOf(Файл,35)),"OPENOFFICE")=0 Тогда
 
            Сообщить("Фигня какая то!!! Пускалка то не та вроде.","!!!");
 
            Возврат;
 
        КонецЕсли;
 
        ШелСкрипт=СоздатьОбъект("WScript.Shell");
 
        ЗапускОО=""""+Файл.Path+""" -nodefault -nologo";
 
        ШелСкрипт.exec(ЗапускОО).Terminate();
 
        Запуск=ШелСкрипт.exec(ЗапускОО);
 
        Ожидание=20000;
 
        Нач=_GetPerformanceCounter();
 
        Пока (Запуск.Status=0) или (_GetPerformanceCounter()-Нач>Ожидание) Цикл
 
            ВвестиСтроку("Ждем...","Ждем...",7,,1);
 
        КонецЦикла;
 
        //КлассИд=Лев(СкриптЛет.GUID,38);
 
        //КлассИд="{096FA06A-0374-5F54-C4F6-BDCEAAE420ED}";
 
        Стр="com.sun.star.ServiceManager";
 
        Версия=1;
 
        КлассИд="{82154420-0FBF-11d4-8313-005004526AB4}";
 
        Сп=СоздатьОбъект("СписокЗначений");
 
        СкриптЛет=СоздатьОбъект("Scriptlet.TypeLib");
 
        База="HKCU\Software\Classes";
 
        Путь=База+"\CLSID\" + КлассИд;
 
        Заголовок="OpenOffice.org Service Manager (Ver 1.0 OOPortable)";
 
        Сп.ДобавитьЗначение(Заголовок,Путь);
 
        Сп.ДобавитьЗначение(ЗапускОО,Путь+"\LocalServer32\");
 
        Сп.ДобавитьЗначение("",Путь+"\NotInsertable\");
 
        Сп.ДобавитьЗначение(Стр+"."+Версия,Путь+"\ProgID\");
 
        Сп.ДобавитьЗначение("",Путь+"\Programmable\");
 
        Сп.ДобавитьЗначение(Стр,Путь+"\VersionIndependentProgID\");
 
        Путь=База+"\"+Стр;
 
        Сп.ДобавитьЗначение(Заголовок,Путь+"\");
 
        Сп.ДобавитьЗначение(КлассИд,Путь+"\CLSID\");
 
        Сп.ДобавитьЗначение(Стр+"."+Версия,Путь+"\CurVer\");
 
        Сп.ДобавитьЗначение("",Путь+"\NotInsertable\");
 
        Сп.ДобавитьЗначение(Заголовок,Путь+"."+Версия+"\");
 
        Сп.ДобавитьЗначение(КлассИд,Путь+"."+Версия+"\");
 
        Сп.ДобавитьЗначение("",Путь+"."+Версия+"\NotInsertable\");
 
        Для Сч=1 По Сп.РазмерСписка() Цикл
 
            Зн=Сп.ПолучитьЗначение(Сч,Стр);
 
            ШелСкрипт.RegWrite(Стр,Зн);
 
        КонецЦикла;
 
        Скрипт=СоздатьОбъект("MSScriptControl.ScriptControl");
 
        Скрипт.language="javascript";
 
        Скрипт.Eval("
 
        |ПрототипМассива=Array.prototype;
 
        |ПрототипМассива.ПолучитьЗначение=function(x){return this[x-1]};
 
        |ПрототипМассива.УстановитьЗначение=function(x,y){this[x-1]=y;return this[x-1]};
 
        |ПрототипМассива.РазмерМассива=function(){return this.length};
 
        |УстановитьБулево=function(x){x.Value=Boolean(x.Value)};
 
        |Массив=new Array();");
 
        Это=Скрипт.Eval("this");
 
        Сообщить("file:///"+Это.encodeURI(СтрЗаменить(Файл.Path,"\","/")));
 
        СервисМанагер=СоздатьОбъект("com.sun.star.ServiceManager.OOPortable");
 
        Обновлялка=СервисМанагер.createInstance("com.sun.star.reflection.CoreReflection");
 
        Массив=Это.Массив;
 
        Обновлялка.forName("com.sun.star.beans.PropertyValue").createObject(Массив);
 
        Параметр=Массив.ПолучитьЗначение(1);
 
        Параметр.Name="Hidden";
 
        Параметр.Value=1;//Если 0 или любое пустое значение то Ложь, иначе Истина
 
        Это.УстановитьБулево(Параметр);
 
        Сообщить(Массив.ПолучитьЗначение(1).Value);;
 
        Десктоп = СервисМанагер.createInstance("com.sun.star.frame.Desktop");
 
        Док = Десктоп.LoadComponentFromURL("private:factory/scalc", "_blank", 0, Массив );
 
    КонецЕсли;
 
    Сообщить(СервисМанагер);
 
КонецПроцедуры