1C И OpenOffice

@RedPirate · Регистрация: 13.05.2011

Кто нибудь проболвал загружать информация из OpenOffice в 1с?

Наткнулся вот на такую штуку, но нефига не получается...

1C

процедура Сформировать();
перем tOO,яч;
    tOO=СоздатьОлеОбъект("TOpenOffice.Bridge");
    tOO.Open("c:\sample.xls");
    tOO.Cells(1,1).text="Это текст из 1С!";
    яч=tOO.Cells(1,2);
    сообщить("В ячейке B3 содержится текст:"+яч.text);
    tOO=0;
конецПроцедуры // Сформировать();

@fimbulwinter · 21.09.2011, 16:51

что конкретно не получается?

@RedPirate · 21.09.2011, 17:13 **[ТС]**

Конкретно:
Есть фыайл созданный в экселе из которого нужно получить данные.
Использовать вот такую штуку не получается Excel = Новый COMОбъект("Excel.Application"); так как не установлен сам Excel и есть только OpenOffice. Как выгрузить данные из файла .xls в 1с не имея Excel?

Нашёл ещё вот такую штуку:

1C

Функция ЗагрузитьТЗизФайла(ПутьКФайлу)
 
       //OpenOffice Calc//////////////////////////////////////////////////////////////////////////////////////////////
       Попытка 
                ServiceManager = Новый COMОбъект("com.sun.star.ServiceManager");
       Исключение
                Предупреждение(ОписаниеОшибки() + Символы.ПС + "программа OpenOffice\LibreOffice не установлена на данном компьютере!");
       Возврат Неопределено;
       КонецПопытки;
       Desktop = ServiceManager.createInstance("com.sun.star.frame.Desktop");
       Свойства = ServiceManager.Bridge_GetStruct("com.sun.star.beans.PropertyValue");
       Свойства.Name = "AsTemplate";
       Свойства.Value = Истина;
       Args = Новый COMSafeArray("VT_VARIANT", 2);
       Args.SetValue(0, Свойства);
       Свойства1 = ServiceManager.Bridge_GetStruct("com.sun.star.beans.PropertyValue");
       Свойства1.Name = "Hidden";
       Свойства1.Value = Истина;
       Args.SetValue(1,Свойства1);
       Document = Desktop.LoadComponentFromURL(ПривестиФайлКУРЛ(ПутьКФайлу), "_blank", 0, Args);
       Sheets = Document.getSheets(); 
       Sheet = Sheets.getByIndex(текЛист-1); 
       локТабЗнач = Новый ТаблицаЗначений;
       begCol = 0;
       begRow = 0;
       endCol = Sheet.Data.GetLength(6) - 1;
       endRow = Sheet.Data.GetLength() - 1;
       нКол = 0;
       локТабЗнач.Колонки.Очистить();
 
       КС = Новый КвалификаторыСтроки(50);
       Массив = Новый Массив;
       Массив.Добавить(Тип("Строка"));
 
       ОписаниеТиповСтрока = Новый ОписаниеТипов(Массив, , КС);
 
       Пока нКол <= endCol Цикл
            ИмяКол = "К"+Строка(нкол+1);
            локТабЗнач.Колонки.Добавить(ИмяКол,ОписаниеТиповСтрока);
            нКол = нКол + 1;
       КонецЦикла;
       Range = Sheet.getCellRangeByPosition(begCol, begRow, endCol, endRow);
       МассивКом = Новый COMSafeArray("VT_VARIANT", Range.Columns.Count, Range.Rows.Count);
       МассивКом = Range.getDataArray();
       тмпПростойМассив = МассивКом.Выгрузить();
       Для каждого массив из тмпПростойМассив Цикл
             ит = 0;
             НовСтрока = локТабЗНач.Добавить();
             Для каждого ЭлементМассива из массив цикл
                   НовСтрока[ит] = ЭлементМассива;
                   ит = ит + 1;
             КонецЦикла;
       КонецЦикла;
       Возврат локТабЗнач;
 
КонецФункции

Но не могу разобраться в коде. Неужели сложно комментарий писать...

@fimbulwinter · 21.09.2011, 19:20

первый кусок кода для 7.7
СОМ объект создается СоздатьОбъект(<Имя>)
Смотри в сторону Йокселя

@Dethmontt · 21.09.2011, 23:40

Так надо для 7.7 или 8 ????
Через драйвер ADO можно это сделать!

@RedPirate · 22.09.2011, 11:04 **[ТС]**

Надо для 8, а как через ADO это сделать? Подскажи пожалуйста.

Добавлено через 1 час 53 минуты
Нашел библиотеку TOpenOffice которая позволяет работать с OpenOffice как с Excel
OpenOffice = Новый COMОбъект("TOpenOffice.Bridge") и т.д.
Щас разбираюсь в ней. Пока вроде все норм, наверное через неё буду делать.

@Dethmontt · 22.09.2011, 13:15

Может вот так прокатит?

C

MyCon = Новый COMОбъект ("ADODB.Connection");
MyCon.Open("Driver={Microsoft Excel Driver (*.xls)};" +
   "DriverId=790;" +
   "Dbq=d:\1.xls;" +
   "DefaultDir=d:\");
MyRst = Новый COMОбъект ("ADODB.Recordset");
MyStr = "select * from [Sklad$]";
MyRst.Open (MyStr, MyCon, 2, 3);//adOpenDynamic, adLockOptimistic

@RedPirate · 22.09.2011, 16:52 **[ТС]**

Можно комментарий к этому коду?

Я вот что написал:

1C

//Создаем объект "Приложение Excel" или "Приложение OpenOffice", открвыаем нужную книгу
    //Попытаемся загрузить через Excel  
    Приложение_Excel = 1;
    Попытка
        Excel = Новый COMОбъект("Excel.pplication"); //Пытаемся создаем объект Excel
        Excel.WorkBooks.Open(ПутьКФайлу); //Открываем файл
        Лист = Excel.Sheets(1);; //Устанавливаем нужный лист
    Исключение
        Приложение_Excel = 0;
    КонецПопытки;
    
    Если Приложение_Excel = 0 Тогда
        // Попытаемся загрузить через OpenOffice
        Попытка
            OpenOffice = Новый COMОбъект("TOpenOffice.Bridge"); //Пытаемся создаем объект OpenOffice
            //Открываем файл
        Исключение
            Приложение_OpenOffice = 0;
        КонецПопытки;
        
    ИначеЕсли (Приложение_Excel = 0) И (Приложение_OpenOffice = 0) Тогда
        Сообщить("Ошибка! Установите OpenOffice или Excel", СтатусСообщения.Внимание);    
        Возврат;
    КонецЕсли;
 
********** 
 
Если Приложение_Excel = 1 тогда
            Значение = Лист.Cells(Стр,КолонкаНаименование).Value;
        КонецЕсли;
        Если Приложение_Excel = 0 Тогда
            Значение = OpenOffice.Cells(Стр,КолонкаНаименование).Value;
        КонецЕсли;
 
**********
 
 
Если Приложение_Excel = 1 Тогда
        Excel.WorkBooks.Close();
        Excel.Quit();
    КонецЕсли;
    Если Приложение_Excel = 0 Тогда
        OpenOffice.Close(); 
        OpenOffice = 0;
    КонецЕсли;

Предварительно нужно скопировать библиотеку TOpenOffice на комп и запустить один раз.
Правда есть два минуса:
1. Команда OpenOffice.Open(ПутьКФайлу); открывает оболочку OpenOffice и в нем выбранный файл. В то время как аналогичная команда Excel открывает выбранный файл не показывая оболочку Экселя.
2. После закрытия файла OpenOffice.Close();, OpenOffice продолжает висеть в задачах.
Ну и конечно же нет возможности например подсчитать сколько всего строк в файле или сколько колонок и т.д.

@fimbulwinter 308 / 308 / 1 Регистрация: 16.01.2011 Сообщений: 1,073
	21.09.2011, 16:51	2
	что конкретно не получается? 0

@fimbulwinter 308 / 308 / 1 Регистрация: 16.01.2011 Сообщений: 1,073
	21.09.2011, 19:20	4
	первый кусок кода для 7.7 СОМ объект создается СоздатьОбъект(<Имя>) Смотри в сторону Йокселя 1

@Dethmontt Модератор 3708 / 2905 / 572 Регистрация: 10.03.2011 Сообщений: 11,442 Записей в блоге: 1
	21.09.2011, 23:40	5
	Так надо для 7.7 или 8 ???? Через драйвер ADO можно это сделать! 1

@RedPirate 22 / 22 / 0 Регистрация: 13.05.2011 Сообщений: 197
	22.09.2011, 11:04 [ТС]	6
	Надо для 8, а как через ADO это сделать? Подскажи пожалуйста. Добавлено через 1 час 53 минуты Нашел библиотеку TOpenOffice которая позволяет работать с OpenOffice как с Excel OpenOffice = Новый COMОбъект("TOpenOffice.Bridge") и т.д. Щас разбираюсь в ней. Пока вроде все норм, наверное через неё буду делать. 0

Опции темы