Разместил на форме документа ActiveX, компоненту "Microsoft Office Spreadsheet 11.0", как записать в нее данные с Excel файла

Ап, ап

Сохранил xls в xml, но загрузить не могу

Пишет метод объекта не обнаружен Open

XLSОбъектКниги = ЭлементыФормы.ЭлементУправления1.Application.Workbooks;
   Попытка
       XLSОбъект = XLSОбъектКниги.Open(ОбъектXLS);
   Исключение
       Возврат;
   КонецПопытки;

Подскажите как с компонентой работать

(4) Посмотри методы в справке компоненты, там должен быть хелп

(5) Там не описано как импортировать(

(2) если через xml, то

Текст = Новый ТекстовыйДокумент;
Текст.Прочитать("C:\ПутьКФайлу\Книга1.xml");
ЭлементыФормы.ЭлементУправления1.XMLData = Текст.ПолучитьТекст();

{Документ.ПланограммаКДоговору.Форма.ФормаДокумента(148)}: Ошибка при установке значения атрибута контекста (XMLData): Произошла исключительная ситуация (Microsoft Office 2003 Web Components): Компоненту "Электронная таблица Microsoft Office" не удалось загрузить XML-данные.

Документ электронной таблицы XML должен в качестве корневого узла иметь тег <Workbook>.
   ЭлементыФормы.ЭлементУправления1.XMLData = Текст.ПолучитьТекст();
по причине:
Произошла исключительная ситуация (Microsoft Office 2003 Web Components): Компоненту "Электронная таблица Microsoft Office" не удалось загрузить XML-данные.

Документ электронной таблицы XML должен в качестве корневого узла иметь тег <Workbook>.

Сейчас попробую добавить этот тег

(8) а чё у тебя за xml? я просто нажал в экселе файл/сохранить как/тип файла таблица xml 2003 и оно открылось. если оно с русским текстом, скажи еще тексту кодировку utf-8

а так еще можно xls через ado открыть

(10) Подскажи как xls открыть?

(10) Куда пропал?)

(10) А как цвет передать xml файлом?

(10) Оформление xml в теге передает, но компонента загружает только данные

+(14) Мб потому что считываю данные с xml как текст?

(11)

ЭлементыФормы.ЭлементУправления1.ActiveSheet.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\ПутьКФайлу\Книга1.xls;Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1""";
ЭлементыФормы.ЭлементУправления1.ActiveSheet.CommandText = "SELECT * FROM [Лист1$]";

(14) там прямого импорта нет. оформление можно передать через буфер обмена. не получится, если исходная задача - отказаться от использования excel

(16) Пишет не допустимое имя Лист1

(17) Задача загрузить данные с xls, можно без оформления, но если есть какой то формат который передаст и оформление в компоненту, буду использовать его

(18) ну я хз как у тебя листы в книге называются. к названию $ прибавь

Процедура ОткрытьФайлЕксель() //xls
   Попытка
       Ексель = СоздатьОбъект("Excel.Application");
   Исключение
       Предупреждение("Для открытия файлов xls, необходимо наличие программы Microsoft Excel.");
       Возврат;
   КонецПопытки;
   Катал=ВосстановитьЗначение("СуперЛист.ПоследнийКаталог");Файл="";
   Если ФС.ВыбратьФайл(0,Файл,Катал,"Укажите файл для открытия:","Файлы Ексель|*.xls*","*.xls,*.xlsx")=0 тогда Возврат; КонецЕсли;
   Ексель.DisplayAlerts=0;
   Попытка
       Ексель.Workbooks.Open(Катал+Файл);
   Исключение
       Ексель="";Возврат;
   КонецПопытки;
   спЛистов=СоздатьОбъект("СписокЗначений");
   для х=1 по Ексель.ActiveWorkbook.Sheets.Count Цикл
       Данные=Ексель.ActiveWorkbook.Sheets(х).UsedRange;
       Если Данные.Rows.Count()>1 Тогда
           спЛистов.ДобавитьЗначение(Ексель.ActiveWorkbook.Sheets(х).cells,Ексель.ActiveWorkbook.Sheets(х).Name);
       КонецЕсли;
   КонецЦикла;
   Если спЛистов.РазмерСписка()=0 Тогда
       Предупреждение("В указанном файле ("+Файл+") нет данных");
       ЗакрытьЕксель(Ексель);Возврат;
   ИначеЕсли спЛистов.РазмерСписка()=1 Тогда
       Данные=спЛистов.ПолучитьЗначение(1);
   Иначе
       Если спЛистов.ВыбратьЗначение(Данные,"Укажите лист для импорта данных:",,,0)<>1 Тогда
           ЗакрытьЕксель(Ексель);Возврат;
           Возврат;
       КонецЕсли;
   КонецЕсли;
   Данные.Copy();
   АктивИкс.Объект.WorkSheets.Add();
   АктивИкс.Объект.WorkSheets(2).Delete();
   Если АктивИкс.Объект.WorkSheets.Count>1 Тогда
       Для х=-АктивИкс.Объект.WorkSheets.Count по -2 Цикл
           АктивИкс.Объект.WorkSheets(-х).Delete();
       КонецЦикла;
   КонецЕсли;
   АктивИкс.Объект.Cells(1,1).Paste();
   АктивИкс.Объект.Cells(1,1).Copy();
   ЗакрытьЕксель(Ексель);
КонецПроцедуры

это код из 7.7

больше примеров смотри http://infostart.ru/public/20668/

(20) А если листа нет, например взял сохранил отчет в xls?

(22) вот тебе с оформлением :-)

Excel = Новый COMОбъект("Excel.Application");
Excel.Workbooks.Open("C:\ПутьКФайлу\Книга1.xls");
Excel.ActiveSheet.UsedRange.Copy();
ЭлементыФормы.ЭлементУправления1.ActiveSheet.Paste();

(23) А ну)

(23) Что то не то)

(23) То же что и в (16) )

+(26) Колонки сильно узкие

(27) тогда, как подсказывает товарищ в (21)

Excel.ActiveSheet.Cells.Copy();

(21)  
АктивИкс.Объект.WorkSheets.Add();
   АктивИкс.Объект.WorkSheets(2).Delete();
   Если АктивИкс.Объект.WorkSheets.Count>1 Тогда
       Для х=-АктивИкс.Объект.WorkSheets.Count по -2 Цикл
           АктивИкс.Объект.WorkSheets(-х).Delete();
       КонецЦикла;
   КонецЕсли;
   АктивИкс.Объект.Cells(1,1).Paste();
   АктивИкс.Объект.Cells(1,1).Copy();
   ЗакрытьЕксель(Ексель);

АктивИкс - Это компонента?

(29)Да. в твоем случае код будет примерно таким:
Excel = Новый COMОбъект("Excel.Application");
Excel.Workbooks.Open("C:\ПутьКФайлу\Книга1.xls");
Excel.ActiveSheet.UsedRange.Copy();
ЭлементыФормы.ЭлементУправления1.Application.Cells(1,1).Paste();

В 7 был метод у Списка значений ВыбратьЗначение() Как его заменить в 8.1?

+(31) ВыбратьЭлемент()?

(30) Все равно цвета не копирует

(33) да ладно :-/ (23) с учетом (28) копирует все на первом листе

(34)

Excel = Новый COMОбъект("Excel.Application");
Excel.Workbooks.Open("C:\ПутьКФайлу\Книга1.xls");
Excel.ActiveSheet.Cells.Copy();
ЭлементыФормы.ЭлементУправления1.ActiveSheet.Paste();

Так?

(34) Размещение и ширина колонок нормальная, но цвета не отображаются(

(36) у 2003 офиса цветовая гамма меньше, чем у 2010. может, на преобразовании что-то теряет. можешь свой xls на посмотреть выложить?

+(37) сразу не проверил, поверил тебе на слово, но он у меня и из xml все оформление восстанавливает

(37) http://files.mail.ru/7F279ABCD5FF4CDBBAE9569F50657520

(38) хм

(38) Офис 2003?

http://s020.radikal.ru/i710/1301/ae/ecede6936185.bmp

(39) открывает 1 в 1, только без группировки строк. может, у тебя owc устаревшей конструкции? у меня owc11.dll версии 12.0.6502.5000, а офис 2010 14.0.6112.5000

(43) У меня 2003 офис

(44) офис вряд ли влияет, попробуй руками скопировать - цвета копируются даже из мокселя

У меня owc11.dll версии - 12.0.4518.1014

(45) Нет не копируются

(46) обнови через виндовсапдейт. не поможет - я пас. с нашей стороны пули вылетели, ищите проблему на стороне мишени :-)

В офисе была проблема, переустановил работает на ура)