![]() |
![]() |
![]() |
|
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
|
Ну...я думала, что СОВСЕМ ничего менять не нужно было, вычитала в инете, что эта штучка перехватывает вызовы....
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |