| 
    
            
         
         | 
    
    
  | 
OpenOffice *.xls 1с 8.2 | ☑ | ||
|---|---|---|---|---|
| 
    0
    
        Nikoss    
     17.08.12 
            ✎
    14:08 
 | 
         
        Мне нужно почитать ексельку, а МайксасофтОфиса нет на том компе.
  
        Будет ли работать: Excel = Новый COMОбъект("Excel.Application"); на ОО? А если никакого офиса вообще нет, как можно почитать ексельку?  | 
|||
| 
    1
    
        spleen    
     17.08.12 
            ✎
    14:12 
 | 
         
        (0)Что с тобой?     
         | 
|||
| 
    2
    
        spleen    
     17.08.12 
            ✎
    14:14 
 | 
         
        (0) Вот тут есть компонента http://infostart.ru/public/14480/     
         | 
|||
| 
    3
    
        spleen    
     17.08.12 
            ✎
    14:16 
 | 
         
        слушай, а причем тут OpenOffice?     
         | 
|||
| 
    4
    
        andrewks    
     17.08.12 
            ✎
    14:24 
 | 
         
        в топку все ВК и оффисы. ADODB.Connection - наше всё     
         | 
|||
| 
    5
    
        Nikoss    
     17.08.12 
            ✎
    14:24 
 | 
         
        (3) это не при чем? :) ну значит не причем.
  
        Ну я думал может есть какой КОМ для ОО... О_о  | 
|||
| 
    6
    
        Nikoss    
     17.08.12 
            ✎
    14:24 
 | 
         
        (4) что это?     
         | 
|||
| 
    7
    
        Nikoss    
     17.08.12 
            ✎
    14:25 
 | 
         
        (4) можно пример?     
         | 
|||
| 
    8
    
        andrewks    
     17.08.12 
            ✎
    14:25 
 | 
         
        (6) ком-объект такой есть     
         | 
|||
| 
    9
    
        andrewks    
     17.08.12 
            ✎
    14:26 
 | 
||||
| 
    10
    
        spleen    
     17.08.12 
            ✎
    14:31 
 | 
         
        (5) ну если нужен 
  
        v8: Загрузка из open office в 1С  | 
|||
| 
    11
    
        Nikoss    
     17.08.12 
            ✎
    14:31 
 | 
         
        (10), я так понял это нужно что-то устанавливать на компьютер?     
         | 
|||
| 
    12
    
        Nikoss    
     17.08.12 
            ✎
    14:32 
 | 
         
        (11) к (9)     
         | 
|||
| 
    13
    
        Лоботряс    
     17.08.12 
            ✎
    14:33 
 | 
         
        Внешний источник данных используй     
         | 
|||
| 
    14
    
        Саша Питерский    
     17.08.12 
            ✎
    15:36 
 | 
         
        (0) Вот тебе пример чтения файла с установленным ОО без дополнительных компонент.
  
        Основное отличие от MS Excel, строки и колонки в параметрах указаны в противоположной последовательности. функция URLИзИмениФайла(Знач ИмяФайла) ИмяФайла = СтрЗаменить(ИмяФайла," ","%20"); ИмяФайла = СтрЗаменить(ИмяФайла,"\","/"); Возврат "file:/" + "/localhost/" + ИмяФайла; Конецфункции 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"); Desktop = OpenOffice.createInstance("com.sun.star.frame.Desktop"); ФайлОбмена = Desktop.LoadComponentFromURL(URLИзИмениФайла(ИмяФайла), "_blank", 0, MassivParametrov); Для НомерЛиста = 0 По ФайлОбмена.sheets.count - 1 Цикл ТекущийЛист = ФайлОбмена.sheets.getByIndex(НомерЛиста); КоличествоСтрокНаЛисте = ТекущийЛист.rows.count - 1; Для НомерСтроки = 0 По КоличествоСтрокНаЛисте Цикл ДеньСобытия1 = ТекущийЛист.getCellByPosition(1, НомерСтроки).Value; КонецЦикла; КонецЦикла; ФайлОбмена.Close(Истина);  | 
 | Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |