Есть ли метод? спасибо!

открыть в экселе, выделить, скопировать, вставить в поле табличного документа

с вас 2000 руб за консультацию

Циклом!

Прочитать область. Запихать в тз. тз засунуть в поле.

(4) вариант)))))

как поняли, что задача стоит просто отобразить эксельку

(4) слушай, у тебя примерчика нет?

(7) Халявщик?

Один я ничего не понял?

держите халявщики

Процедура ЗагрузитьИзExcel(ИмяФайла,ИмяЛиста,Таблица) Экспорт    
   //СтрокаСоединения = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " +СокрЛП(ИмяФайла) +" ;Extended Properties=""Excel 8.0;HDR=YES;IMEX=1;"""; //ексель версии до v2007
   СтрокаСоединения = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source= " +СокрЛП(ИмяФайла) +" ;Extended Properties=""Excel 12.0;HDR=YES;IMEX=1;"""; //v2007 и больше
   
   Connection = Новый COMОбъект("ADODB.Connection");
   Connection.ConnectionString =  СтрокаСоединения;
   
   Попытка
       Connection.Open();
   Исключение
       Сообщить(ОписаниеОшибки());
       Сообщить ("Проблемы с подключением к Excel" );
       Возврат;
   КонецПопытки;
   
   RS = Новый COMОбъект("ADODB.Recordset");
   
   ТекстЗапроса =
   "SELECT
   |    Лист.*
   |FROM
   |    ["+ИмяЛиста+"$] as Лист";
   
   попытка        
       RS.Open(ТекстЗапроса, Connection);
   исключение
       Сообщить(ОписаниеОшибки());
       Сообщить ("Проблемы с выполнением запроса");
       Возврат;
   КонецПопытки;
   
   //Создаем таблицу
   Таблица.Очистить();
   КоличествоПолей = RS.Fields.Count;
   МассивИменКолонок = новый Массив;
   Для ии = 1 по КоличествоПолей Цикл
       Field = RS.Fields.Item(ии-1);
       ИмяКолонки = УдалитьНеправильныеСимволы(СокрЛП(Field.Name));        
       МассивИменКолонок.Добавить(ИмяКолонки);
       Таблица.Колонки.Добавить(ИмяКолонки, ,Field.Name);
   КонецЦикла;    
   Таблица.Колонки.Добавить("ПорядковыйНомерДаДаДа");
   
   //Заполним строками
   иии = 1;
   Пока RS.EOF()=0 Цикл
       НоваяСтрока = Таблица.Добавить();
       иии = иии + 1;
       Для ии = 1 по КоличествоПолей Цикл
           Field = RS.Fields.Item(ии-1);
           //ИмяКолонки = СтрЗаменить(СокрЛП(Field.Name)," ","");        
           НоваяСтрока[МассивИменКолонок[ии-1]]=СокрЛП(Field.Value);
           НоваяСтрока.ПорядковыйНомерДаДаДа = иии;
       КонецЦикла;    
       RS.MoveNext();
   КонецЦикла;    
   
   RS.Close();
   Connection.Close();
   
КонецПроцедуры

Ну а дальше разбираем ТЗ и вывводим в Табличный документ.
Удалить неправильные символы - Заменяем всякие длинные пробелы, запятые, кавычки на "_"

(4) Начиная с (4) я тоже ниче не понял.

(10) Зачем такие сложности?

(10) сейчас посмотрим)))
(12) предложи попроще )))

(10) читать эксель через ADODB... Право, я даже и не знаю - зачем

Если ТЗ = Неопределено Тогда
   ТЗ =  Новый ТаблицаЗначений;
   Для Счетчик = 1 По ВсегоКолонок Цикл
       ТЗ.Колонки.Добавить("Колонка"+Счетчик, Новый ОписаниеТипов("Строка"));
   КонецЦикла;
КонецЕсли;
Для Счетчик = НомерПервойСтроки По ВсегоСтрок Цикл
   НоваяСтрока = ТЗ.Добавить();
КонецЦикла;

Область = ЛистЭксель.Range(ЛистЭксель.Cells(НомерПервойСтроки,НомерПервойКолонки), ЛистЭксель.Cells(ВсегоСтрок,ВсегоКолонок));
Данные = Область.Value.Выгрузить();

Для Счетчик = 0 По ВсегоКолонок-1 Цикл
   ТЗ.ЗагрузитьКолонку(Данные[Счетчик], Счетчик);
КонецЦикла;

(14) Через адо быстрее чем просто по оле

Загрузка из экселя запросом. закладка

(17) В смысле?

(17) форматирование ячеек тоже запросом делать?

нужно посмотреь экселину, совершенно неопределенного содержимого

(18) это закладка, чтобы потом поиском найти :)

(0) Блин, да скажи ты нормально - че те нада-то?)))

(21) Тогда лучше вот здесь почитай
http://www.obrabotki.com/tag/1s-excel/

(23) спс. неплохая инфа

(22) см (6)

Процедура ПосмотретьПрайсНажатие(Элемент)

   ТабДок = ЭлементыФормы.ПолеТабличногоДокумента1;
   ТабДок.Очистить();
   ТабДок.АвтоМасштаб = Истина;
   
   ТабДок.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;

 
   ЛистЭксель = ПолучитьCOMОбъект(ЭтаФорма.ПутьКФайлуПоступлений);
   
   
   ВсегоСтрок = ЛистЭксель.Sheets(1).Cells.SpecialCells(11).Row;
   ВсегоКолонок = ЛистЭксель.Sheets(1).Cells.SpecialCells(11).Column;
   
   НомерПервойСтроки=1;
   НомерПервойКолонки=1;
   
   
   Область = ЛистЭксель.Sheets(1).Range(ЛистЭксель.Sheets(1).Cells(НомерПервойСтроки,НомерПервойКолонки), ЛистЭксель.Sheets(1).Cells(ВсегоСтрок,ВсегоКолонок));
   Данные = Область.Value.Выгрузить();

   Для Счетчик = 0 По ВсегоКолонок-1 Цикл
       ТабДок.ЗагрузитьКолонку(Данные[Счетчик], Счетчик);
   КонецЦикла;
   
   ТабДок.Показать();
   
КонецПроцедуры

что-то не получается...

(25) Да ну тебя, разбирайся без меня)))

Для Счетчик = 0 По ВсегоКолонок-1 Цикл
       ТабДок.ЗагрузитьКолонку(Данные[Счетчик], Счетчик);
   КонецЦикла;

ШТО?!

A ActiveX-объекты запретили? Мож и не нужен табличный документ

(26) Конечно не получается. Может код сначала почитать, а потом уже переписывать.

а ведь я тоже был таким :)

v8: Заполнить ПТД из Excel

(28) а как область сразу передать?

Процедура ПосмотретьПрайсНажатие(Элемент)

   ТабДок = ЭлементыФормы.ПолеТабличногоДокумента1;
   ТабДок.Очистить();
   ТабДок.АвтоМасштаб = Истина;
   
   ТабДок.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;

 
   ЛистЭксель = ПолучитьCOMОбъект(ЭтаФорма.ПутьКФайлуПоступлений);
   
   
   ВсегоСтрок = ЛистЭксель.Sheets(1).Cells.SpecialCells(11).Row;
   ВсегоКолонок = ЛистЭксель.Sheets(1).Cells.SpecialCells(11).Column;
   
   НомерПервойСтроки=1;
   НомерПервойКолонки=1;
   
   
   Область = ЛистЭксель.Sheets(1).Range(ЛистЭксель.Sheets(1).Cells(НомерПервойСтроки,НомерПервойКолонки), ЛистЭксель.Sheets(1).Cells(ВсегоСтрок,ВсегоКолонок));
   
   ТЗ =  Новый ТаблицаЗначений;
   Для Счетчик = 1 По ВсегоКолонок Цикл
       ТЗ.Колонки.Добавить("Колонка"+Счетчик, Новый ОписаниеТипов("Строка"));
   КонецЦикла;
   
   Для Счетчик = НомерПервойСтроки По ВсегоСтрок Цикл
   НоваяСтрока = ТЗ.Добавить();
   КонецЦикла;
   
   
   Данные = Область.Value.Выгрузить();

   Для Счетчик = 0 По ВсегоКолонок-1 Цикл
   ТЗ.ЗагрузитьКолонку(Данные[Счетчик], Счетчик);
   КонецЦикла;
   
   ТабДок.Данные = ТЗ;
   
КонецПроцедуры

(33) еще они нерабочий вариант(((

люди, ну не хочется думать. подсказывайте, пожалуйста!

(35) На каком этапе не работает?

ТабДок.Данные = ТЗ;
прелестно...

(35) если не хочется думать - меняй профессию. для начала - посмотри как заполняется ТабДок из ТЗ (считай, что результат запроса, только вместо Следующий() - Для Каждого) в типовых отчетах

(36) на этапе отображения в ПолеТабличногоДокумента. синтаксиса я не знаю

(39) синтаксис продаст ДенисЧ
посмотри типовые отчеты, еще раз тебе говорю

Посмотри есть чего в ТЗ или нет:

Построитель = Новый ПостроительОтчета();
Построитель.ИсточникДанных = Новый ОписаниеИсточникаДанных(ТЗ);
Построитель.Вывести();

(35) От оно что, что-то много народу нонче думать не хочет...

(41) судя по отладчику -  ТЗ содержит всю загруженную информацию из Экселины

+(43) построитель все это также отображает

Построитель = Новый ПостроительОтчета();
Построитель.ИсточникДанных = Новый ОписаниеИсточникаДанных(ТЗ);
Построитель.Вывести(ТабДок);

Если просто показать, то бери DSOFramer

(45) хорошо, а как сохранить форматирование текста?

(47) Из способа чтения области - никак.

(48) т.е. метода простого отображения эксельки нету выходит, надо обязательно через ТЗ перенос делать?

(49) если просто отобразить, то (29)