1С 8.x : Добавим документы ODF (OpenOffice/LibreOffice) в стандартную обработку Загрузки Табличного документа

 

// Функция считывает в табличный документ данные из файла в формате ODF Calc(ods)

//

// Параметры:

// ТабличныйДокумент – ТабличныйДокумент, в который необходимо прочитать данные

// ИмяФайла – имя файла в формате ODF, из которого необходимо прочитать данные

// НомерЛистаCalc – номер листа книги Calc, из которого необходимо прочитать данные

//

// Возвращаемое значение:

// Истина, если файл прочитан, Ложь – иначе

//

Функция мПрочитатьТабличныйДокументИзCalc(ТабличныйДокумент, ИмяФайла, НомерЛистаCalc = 1) Экспорт



ВыбФайл = Новый Файл(ИмяФайла);

Если НЕ ВыбФайл.Существует() Тогда

Сообщить(“Файл не существует!”);

Возврат Ложь;

КонецЕсли;



Попытка

ServiceManager = Новый COMОбъект(“com.sun.star.ServiceManager”);

Desktop = ServiceManager.CreateInstance(“com.sun.star.frame.Desktop”);

Desktop.getCurrentFrame().getContainerWindow().setVisible(Ложь); //сделаем невидимым основное окно.



//установим параметры – не показывать таблицу Calc

Параметры = Новый COMSafeArray(“VT_DISPATCH”, 1);

Свойство = ServiceManager.Bridge_GetStruct(“com.sun.star.beans.PropertyValue”);

Свойство.Name = “Hidden”;

Свойство.Value = true;

Параметры.SetValue(0,Свойство);



Document = Desktop.LoadComponentFromURL(“file:///” + ИмяФайла, “_blank”, 0, Параметры);

Состояние(“Обработка файла Office Calc …”);

Листы = Document.getSheets();

Лист = Листы.getByIndex(НомерЛистаCalc-1);

Исключение

Сообщить(“Ошибка загрузки данных. Возможно неверно указан номер листа книги Calc.”);

Возврат ложь;

КонецПопытки;



ТабличныйДокумент.Очистить();



//Определение максимум ячейки с данными…

НульЯчейка = Лист.GetCellbyPosition(0,0);

НульКурсор = Лист.createCursorByRange(НульЯчейка);

НульКурсор.GotoEndOfUsedArea(1);

НульАдрес = НульКурсор.RangeAddress;

ПослСтрока = НульАдрес.EndRow;

ПослКолонка = НульАдрес.EndColumn;



//Для Column = 1 По ПослКолонка + 1 Цикл

// ТабличныйДокумент.Область(“C” + Формат(Column, “ЧГ=”)).ШиринаКолонки = Лист.getColumns.getByIndex(Column-1).Width;

//КонецЦикла;



Для Row = 1 По ПослСтрока + 1 Цикл



Если Лист.getCellByPosition(Column-1,Row-1).getType() = 0 Или Лист.getCellByPosition(Column-1,Row-1).getType() = 1 Тогда ТабличныйДокумент.Область(“R” + Формат(Row, “ЧГ=”) +”C” + Формат(Column, “ЧГ=”)).Текст = Лист.getCellByPosition(Column-1,Row-1).value;

ИначеЕсли Лист.getCellByPosition(Column-1,Row-1).getType() = 2 Тогда ТабличныйДокумент.Область(“R” + Формат(Row, “ЧГ=”) +”C” + Формат(Column, “ЧГ=”)).Текст = Лист.getCellByPosition(Column-1,Row-1).string;

КонецЕсли;

КонецЦикла;



//ServiceManager.quit();

Document.Dispose();

Document = 0;

Параметры = 0;

Desktop = 0;

ServiceManager = 0;



Возврат Истина;



КонецФункции   

 ДиалогВыбораФайла.Фильтр = “Табличный документ (*.mxl)|*.mxl|Лист Calc (*.ods)|*.ods|Лист Excel (*.xls)|*.xls|Текстовый документ (*.txt)|*.txt|dBase III (*.dbf)|*.dbf|”;