Вопрос по интеграции с OpenOffice

Форум 1С: Одинэс.Ру

Найти!

Вопрос по интеграции с OpenOffice

Man783
22.07.2009 - 10:57
Исходная задача: нужно из файла xls загрузить данные в ТЗ 1С
Решаем так:
//Создаем объект для работы с OpenOffice
Попытка
ОбъектОО = Новый COMОбъект("com.sun.star.ServiceManager");
Исключение
Предупреждение("Невозможно загрузить OpenOffice.org !!!" + Символы.ПС + ОписаниеОшибки(), 10, "Ошибка");
Возврат;
КонецПопытки;
 
ОбъектДесктоп = ОбъектОО.CreateInstance("com.sun.star.frame.Desktop");
МассивТипа = Новый COMSafeArray("VT_VARIANT", 1);
CoreReflection = ОбъектОО.CreateInstance("com.sun.star.reflection.CoreReflection");
CoreReflection.forName("com.sun.star.beans.PropertyValue").createObject(PropertyValue);
PropertyValue.Name = "Hidden";
PropertyValue.Value = true;
МассивТипа.SetValue(0, PropertyValue);
 
ФлагТолькоЗаписать=Ложь;
ИмяФайлаДляЗагрузки = СтрЗаменить(ПутьКФайлу, "\", "/");
ИмяФайлаДляЗагрузки = "file:///"; + ИмяФайлаДляЗагрузки;
 
Попытка
Объект = ОбъектДесктоп.LoadComponentFromURL(ИмяФайлаДляЗагрузки, "_blank", 0, МассивТипа);
Исключение
Предупреждение("Невозможно открыть файл " + ИмяФайлаДляЗагрузки + " !!!" + Символы.ПС + ОписаниеОшибки(), , "Ошибка");
Возврат;
КонецПопытки;
Листы = Объект.getSheets();
Попытка
Лист = Листы.getByIndex(0);
Исключение
Возврат;
КонецПопытки;
 
//цикл загрузки данных
 
ОбъектДесктоп = NULL;
ОбъектОО = NULL;
 
Процедура работает корректно, но после ее использования загружаемый файл доступен только для чтения... Как этого избежать?
К списку тем К списку форумов

Интересные темы

odines.ru
22.07.2024 - 11:25
Смотри также:
ЗУП - как реализовать расчет
Не закрываются 25 и 26 счета (((
Ошибка СУБД

Re: Вопрос по интеграции с OpenOffice

real
1 - 22.07.2009 - 11:48
Попробуй заменить _blank на _default в LoadComponentFromURL.

Re: Вопрос по интеграции с OpenOffice

Man783
2 - 22.07.2009 - 12:10
1-real >не помогает(((

Re: Вопрос по интеграции с OpenOffice

VZ
3 - 22.07.2009 - 19:52
Есть библиотека, перехватывающая вызовы к M$ Office, и перенаправляющие их к ОО. Т.е., можно писать универсальный вызов...

Re: Вопрос по интеграции с OpenOffice

user1C
4 - 22.07.2009 - 20:18
(0)
почему ОО?

Re: Вопрос по интеграции с OpenOffice

Man783
5 - 23.07.2009 - 06:38
4, корпоративный стандарт не предусматривает Excel...

Интересные темы

odines.ru
22.07.2024 - 11:25
Смотри также:
Как в 8.1 версии программно узнать имена SQL таблиц, зная имена реквизитов и справочника?
Ищу человека, который установит и настроит 1С
Правила обмена для УТ в БУ

Re: Вопрос по интеграции с OpenOffice

Man783
6 - 23.07.2009 - 08:04
Всем спасибо за внимание, проблема решилась следующим образом:
в конец исходного кода следует поместить
Объект.Close(-1);
К списку тем К списку форумов

Добавить новое сообщение

Ваше имя:
Тема сообщения:
Сообщение:
« Вылетает ЗУП при работе с SQL 2000 Подскажите плз по записьXML: Поле объекта недоступно для записи (Кодировка) »
© 2009 Форум 1С: Одинэс.Ру