Имя: Пароль:
1C
1С v8
AutomateIT
0 1C_Enigma
 
21.06.12
18:51
Вроде "разжовываний" здесь особо не было, поэтому рискну.
v8: Выгрузка 1с8.1-Open Office Calc
Здесь dimbasbear писал, что "Для решения проблемы - использовал "AutomateIT!". Обработка по выгрузке полностью работает без единого изменения. ", но у меня в самом простом кусочке кода, взятого из типовой УТ
xlLastCell = 11;
   
   ВыбФайл = Новый Файл(ИмяФайла);
   Если НЕ ВыбФайл.Существует() Тогда
       Сообщить("Файл не существует!");
       Возврат Ложь;
   КонецЕсли;
   
   Попытка
       Excel = Новый COMОбъект("Excel.Application");
       Excel.WorkBooks.Open(ИмяФайла);
       Состояние("Обработка файла Microsoft Excel...");
       ExcelЛист = Excel.Sheets(НомерЛистаExcel);
   Исключение
       //Сообщить("Ошибка. Возможно неверно указан номер листа книги Excel.");
       Сообщить(ИнформацияОбОшибке().Описание);
       Возврат ложь;
   КонецПопытки;
   
   ТабличныйДокумент.Очистить();
   
   ActiveCell = Excel.ActiveCell.SpecialCells(xlLastCell);
   RowCount = ActiveCell.Row;
   RowCount = Excel.Cells.CurrentRegion.Rows.Count;
   RowCount = Excel.Cells(1,1).SpecialCells(11).Row;
   ColumnCount = ActiveCell.Column;
   Для Column = 1 По ColumnCount Цикл
       ТабличныйДокумент.Область("C" + Формат(Column, "ЧГ=")).ШиринаКолонки = ExcelЛист.Columns(Column).ColumnWidth;
   КонецЦикла;
   Для Row = 1 По RowCount Цикл
       
       Для Column = 1 По ColumnCount Цикл
           ТабличныйДокумент.Область("R" + Формат(Row, "ЧГ=") +"C" + Формат(Column, "ЧГ=")).Текст = ExcelЛист.Cells(Row,Column).Value;
       КонецЦикла;
       
   КонецЦикла;
   
   Excel.WorkBooks.Close();
   Excel = 0;
   
   Возврат Истина;
выскакивает ошибка, что
{Обработка.ЗагрузкаДанныхИзТабличногоДокумента.МодульОбъекта(566)}: Значення не є значенням об`єктного типу (Row)
   RowCount = ActiveCell.Row

ПАЧИМУ =(
Обещали, что менять не нужно. А если нужно, то не могу в инете найти кучи инфы по работе с этим LibreOfficce.Calc
1 1C_Enigma
 
21.06.12
18:53
тьфу....по работе с AutomateIT!!!
2 Nik_nik_nik
 
21.06.12
18:56
"Excel = Новый COMОбъект("Excel.Application");"

"v8: Выгрузка 1с8.1-Open Office Calc"

" по работе с этим LibreOfficce.Calc"

Вы вообще о чем???
3 1C_Enigma
 
21.06.12
19:04
Ну...я думала, что СОВСЕМ ничего менять не нужно было, вычитала в инете, что эта штучка перехватывает вызовы....
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух. Фредерик Брукс-младший