Имя: Пароль:
1C
 
Выгрузка 1с8.1-Open Office Calc
0 dimbasbear
 
13.11.10
09:27
Добрый день! Есть обработка, которая выгружает данные в книгу Excel. Нужно, чтобы выгружала в Open Office Calc.

По сути надо заменить подключение к Excel :


   
   Попытка
       Excel = Новый COMОбъект("Excel.Application");
       Excel.WorkBooks.Open(ИмяФайлаДанных);
       Состояние("Обработка файла Microsoft Excel...");
   Исключение
       Сообщить("Ошибка. Возможно неверно указан номер листа книги Excel.");
       Excel.WorkBooks.Close();
       Excel = 0;    
       Возврат;
   КонецПопытки;



и саму выгрузку в нужные места:

       Если РЕЖИМ Тогда
                   ExcelЛист.Cells(RowCount,11).Value = ТекущОстаток + ОстатокЗАК;
               Иначе
                   ExcelЛист.Cells(RowCount,11).Value = ТекущОстаток - ОстатокЗАК;
               КонецЕсли;


Заранее спасибо!
1 dimbasbear
 
13.11.10
13:10
Для решения проблемы - использовал "AutomateIT!". Обработка по выгрузке полностью работает без единого изменения. Единственная проблема, при выполнении

  Excel.WorkBooks.Close();
  Excel = 0;  

закрывает, но не сохраняет. Пока убрал этот кусочек - пользователь сохраняет руками. Скажите , как можно принудительно сохранить книгу Excel ?
Компьютер — устройство, разработанное для ускорения и автоматизации человеческих ошибок.