Возможно ли такое без запросов?
Если нет, то как обойти в запросе поля с неограниченной длиной (естественно программно :))
Спасибо за внимание! =^_^=

а зачем для выгрузки запросы? О_о

ну по - другому не получается :-[

(2) ню-ню )))

скажем так.. названия полей я получаю, а вот их содержимое - нет :'(

(4) Как жаль, что ты осьминог...

эммм... пардон, что ввязываюсь в вашу беседу, но может вы научите неразумную девушку выгружать документы в excelку? ;)

что конкретно вам нужно выгрузить ? и в каком виде ?

вид примерно такой в экселе
____________________________________________
НомерДок | Поставщик | Товар | Колво | Сумма|
--------------------------------------------
1        | Вини Пух  | Горшок| 20    | 500  |
--------------------------------------------
2        | Вини Пух  | Шарик | 50    | 10   |
--------------------------------------------
т.е. все содержимое(общие реквизиты, реквизиты шапки и реквизиты табличные) документов.
Это все счастие пишется во внешней обработке. Содержимое реквизитов могу получить только через запрос (но это очень долго, особенно если полей около 30).
До других вариантов пока не додумалась :(

забыла сказать что все енто в 1с 7.7

назови обработку "Наруто ^_^"
все из-за этого

Что за база?

мм.. никакой базы. документы из 1с, а эксель - любой документ :)
З.Ы. Сорри Наруто не смотрела, обзывать не буду =^_^=

все очень грустно...

(12) а пол мужской.. странно все это:) 1с-анимешники странный народ
поля неограниченой длины пробуй привести к строке через СокрЛП() перед выводом.

+14 хотя документы не из базы, а из 1С выгрузить в любой документ Excel это круто:)

о_О у меня мужской пол?
СокрЛП насколько мне не изменяет память лишь пробелы отсекает... а проблема в том что у реквизита галочка на неогр. стоит...как это просечь не понимаю.. не хочется же каждый просматривать :)

(16) теперь женский:)
значит фотку:)

(16) что такое поле неограниченной длины?

фотку попозже..
а поле неограниченной длины появляется когда в свойствах реквизита ставишь галочку напротив Неогр.

(19) мда уж

Чтот вроде этого:
Excel.Cells(3,2).Value = СокрЛП(Поле неограниченой длинны);

(21)
Бред! Поле же неограниченной длины! ))))

(21) предполагаю что можно даже не через ОЛЕ, а простым отчетом.

мрррр.. можно и простым отчетом. не в этом суть.. а суть в том чтобы поймать это поле

http://infostart.ru/public/57401/

(25) тебе в (16) сказали что СокрЛП() не катит. там галочка ведь проставляется

(24) Что то я не пойму вашей проблемы с полями:)

(27) да тут никто не понимает )))

(24) Прежде всего надо отказаться от этой терминологии... Поймать, просечь...
Надо четко, как в школе:
Дано:
Задача:

(24) Приезжайте, помурчите мне на ушко, я Вас такому в 1С научу...:)

и кстати тут excel вообще не причем ;-))))

И желательно фрагмент кода в студию...

сначала фотку

Так а что именно не получается у автора?
Как-то не видно стараний..

Пойду ка за пивом )))

Смотри тут для начала http://infostart.ru/public/57210/

(36) вы забудьте про excel, не это ей нужно совершенно, она словами выразить просто нормально не может )))

СокрЛП(автор, давай фотку)

так! 1) 1с 7!
2) Дано: документ, пустой файл .xls
Требуется: занести ВСЕ  поля документа 1с в файлик эксель. Что непонятного?
З.Ы. сдалась вам фотка.... 2 руки, 2 ноги, голова.. все вроде на месте ))

(39) Ясно 1сники, приступайте, что не понятного... =)))

(39) Господи, как-же здесь все плохо...

(39) одного не хватает)))))

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

(39) Используй функции с http://infostart.ru/public/57210/, напиши обработку

вот только как вяжется запрос и 39?

(43) мои телепатические способности подсказали то-же самое )))

(44) сказали-же, забудь по excel,  он тут ни при чем...

ща дам код... не мчитесь, люди!

(47) Хорошо, больше не буду:)

(48) да мы вообще никуда не торопимся, следим за развитием событий:)

Тогда остается вариант (43)

(39)
Как обращаться с документами в 1С 7.7
http://www.mista.ru/tutor_1c/docs.htm

Как обращаться с таблицами:
http://www.mista.ru/tutor_1c/reports.htm

Как сохранить таблицу в ексель:
Записать(<ИмяФайла>,<ТипФайла>)
Назначение:
Записать таблицу в файл.
Параметры:
<ИмяФайла> - имя файла.
<ТипФайла> - необязательный параметр. Числовое или строковое выражение, определяющее тип файла:
· отсутствует, 0 или ''MXL'' - формат 1C;
· 1 или ''XLS'' - формат Ms Excel;
· 2 или ''HTM'' или ''HTML'' - формат HTML;
· 3 или ''TXT'' - формат TXT.

Процедура Сформировать()
   Перем Запрос, ТекстЗапроса, Таб;  
   ExcelDoc = СоздатьОбъект("Excel.Application");
ТабЗн = СоздатьОбъект(“СписокЗначений”);
   ExcelDoc.Visible = 1;
   BookDoc = ExcelDoc.WorkBooks.Add();
   ListDoc = BookDoc.Worksheets.Add();
   
//Получаем идентификаторы общих реквизитов
   Для nn = 1 По Метаданные.ОбщийРеквизитДокумента() Цикл  
ТабЗн.ДобавитьЗначение(Метаданные.ОбщийРеквизитДокумента(nn).Идентификатор);
Сообщить(Метаданные. ОбщийРеквизитДокумента(nn).Идентификатор);
   КонецЦикла;

   //Получаем идентификаторы реквизитов шапки
   Для nn = 1 По Метаданные.Документ("ПриходнаяНакладная").РеквизитШапки() Цикл
     ТабЗн.ДобавитьЗначение(Метаданные.Документ("ПриходнаяНакладная").РеквизитШапки(nn).Идентификатор);
        Сообщить(Метаданные.Документ("ПриходнаяНакладная").РеквизитШапки(nn).Идентификатор);
   КонецЦикла;
   
   //Получаем идентификаторы реквизитов табличной части
    Для nn = 1 По Метаданные.Документ("ПриходнаяНакладная").РеквизитТабличнойЧасти() Цикл
         ТабЗн.ДобавитьЗначение(Метаданные.Документ("ПриходнаяНакладная").РеквизитТабличнойЧасти(nn).Идентификатор);
Сообщить(Метаданные.Документ("ПриходнаяНакладная").РеквизитТабличнойЧасти(nn).Идентификатор);
   КонецЦикла;

   //Создание объекта типа Запрос
   Запрос = СоздатьОбъект("Запрос");
   ТекстЗапроса =
   "//{{ЗАПРОС(Сформировать)
   |Период с ВыбНачПериода по ВыбКонПериода;
   |ОбрабатыватьДокументы все;
   |Поставщик = Документ.ПриходнаяНакладная.Поставщик.Наименование;
   |Склад = Документ.ПриходнаяНакладная.Склад.Наименование;
   |Товар = Документ.ПриходнаяНакладная.Товар.Наименование;
   |Кол = Документ.ПриходнаяНакладная.Кол;
   |ЦенаБНДС = Документ.ПриходнаяНакладная.ЦенаБНДС;
   |ЦенаСНДС = Документ.ПриходнаяНакладная.ЦенаСНДС;
   |СуммаБНДС = Документ.ПриходнаяНакладная.СуммаБНДС;
   |СуммаНДС = Документ.ПриходнаяНакладная.СуммаНДС;
   |СуммаСНДС = Документ.ПриходнаяНакладная.СуммаСНДС;
   |Фирма = Документ.ПриходнаяНакладная.ФирмаДокумента.Наименование;
   |Валюта = Документ.ПриходнаяНакладная.Валюта.Наименование;
   |ДатаКурса = Документ.ПриходнаяНакладная.ДатаКурса;
   |Курс = Документ.ПриходнаяНакладная.Курс;
   |Автор = Документ.ПриходнаяНакладная.АвторДокумента;
   |ДатаДок = Документ.ПриходнаяНакладная.ДатаДок;
   |НомерДок = Документ.ПриходнаяНакладная.НомерДок;
   |Группировка НомерДок все;
   |Группировка Товар все;
   //|Условие(ДатаКон > 0)
   |"//}}ЗАПРОС
   ;
   Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
       Возврат;
   КонецЕсли;

   //формирование шапки в excel
   стр = "";
   Для i=1 По ТабЗн.РазмерСписка() Цикл
       ExcelDoc.Cells(1,i).Value = ТабЗн.ПолучитьЗначение(i, стр);
   КонецЦикла;    
   
    //авто подбор ширины
    ListDoc.Cells.EntireColumn.AutoFit();
    //закрепление области
    ListDoc.Range("A2").Select();
    ExcelDoc.ActiveWindow.FreezePanes=1;
    ExcelDoc.Visible=1;
 
row = 2;
   Пока Запрос.Группировка(1) = 1 Цикл
       Пока Запрос.Группировка(2) = 1 Цикл
            ExcelDoc.Cells(row,1).Value = Запрос.НомерДок;
            ExcelDoc.Cells(row,2).Value = Запрос.ДатаДок;
            ExcelDoc.Cells(row,3).Value = "Приходная накладная";
            ExcelDoc.Cells(row,4).Value = Запрос.Автор;
            ExcelDoc.Cells(row,5).Value = Запрос.Поставщик;
            ExcelDoc.Cells(row,6).Value = Запрос.Склад;
            ExcelDoc.Cells(row,7).Value = Запрос.Валюта;
            ExcelDoc.Cells(row,8).Value = Запрос.Курс;
            ExcelDoc.Cells(row,9).Value = Запрос.ДатаКурса;
            ExcelDoc.Cells(row,10).Value = Запрос.Товар;
            ExcelDoc.Cells(row,11).Value = Запрос.Кол;
            ExcelDoc.Cells(row,12).Value = Запрос.ЦенаБНДС;
            ExcelDoc.Cells(row,13).Value = Запрос.ЦенаСНДС;
            ExcelDoc.Cells(row,14).Value = Запрос.СуммаБНДС;
            ExcelDoc.Cells(row,15).Value = Запрос.СуммаСНДС;
            ExcelDoc.Cells(row,16).Value = Запрос.СуммаНДС;
            row = row +1;
       КонецЦикла;
   КонецЦикла;        
// BookDoc.SaveAs("d:\Документы.xls");
ExcelDoc.Quit();              
   
КонецПроцедуры

(48)короче, ищи на ИТС обработку Docprint.ert

(48) Я уже заранее боюсь...

(53) держите меня семеро...

(53) а в магазин тоже не танке ездишь?

(53) Docprint.ert смотрела ?

// Обработка выводит в копию файла шаблона ТЗ
// Файл шаблона должен иметь название СокрЛП(ИмяШаблона) + ".xls"
// и лежать в каталоге  КаталогИБ() + "ExtForms\PrnForms\"
//
// Параметры запуска должен быть списком значения:
// "Идентификатор"                    - Обязательный
// "КаталогДляСохранения"              - Обязательный
// "ИмяФайла"                          - Не обязательный (если пусто, то используеться имя шаблона)
// "ТаблицаЗначений"                - Не обязательный (Таблица значений, связь по имени колонок, см ниже)
// "СписокПеременных"               - Не обязательный (Список значений, связь по представлению, см ниже)
//  
//*****************************************************************************************************
//  
//              Настройка шаблона EXCEL
//                                                  
// В шаблоне должно содержаться 2 листа, название листов и положение может быть произвольным
// в ячейки 1:1 одного листа должно стоять слово "ИдентификаторШаблона" в 1:2 имя шаблона,
// тогда этот лист будет восприниматься как лист настроек (этот лист желательно скрыть от пользователей)
// другой лист будет восприниматься как лист шаблона.
//  
// Лист настроек должен в первой колонке содержать следующие идентификаторы (порядок не важен), а в колонке 2 значения
// ИдентификаторПеременной    - пример "_перем_", если в ячейки встретится текст "_перем_Имя1", то оно будет заменено
//                              на значение переменной "Имя1", при этом такая переменная автоматически создается для табличной части
//                              из переданой таблицы по имени колонки.
//                              или из "СписокПеременных" по представению.
// СтрокаШаблонТЧ           - эта строка будет копироваться для каждой строки "ТаблицаЗначений", переменные беруться из колонок


Перем СписокПараметров;  
Перем ИмяШаблона, КаталогДляСохранения, ИмяФайла, ТЗ;
 

//*******************************************
// функция возвращает строку индикатор длиной 100 символов
Функция Обмен_Индикатор(значение, максимум=100)
   Если максимум > 0 Тогда
       Длина=50;            
       
       Если значение<=0 тогда
           стр="";
           Для е = 1 по Длина Цикл
               стр=стр+".";
           КонецЦикла;    
   
           Возврат "[" + стр + "]";
       КонецЕсли;
       
       е1="";            
       Для е = 1 По Длина Цикл
           Если е<=((значение*Длина)/максимум) Тогда
               е1=е1+"|";
           Иначе
               е1=е1+".";
           КонецЕсли;        
       КонецЦикла;
       Возврат "[" + е1 + "]";
   Иначе
       Возврат "";
   КонецЕсли;
КонецФункции    


// функция устанавливает связь с EXCEL
// в качестве параметра требуется имя открываемого файла
// в случае удачи возвращает соответствие из обьектов ОЛЕ, в случае не удачи - 0
Функция   EXCEL_УстановитьСвязь (ПолноеИмяФайла)Экспорт
   
   Результат = 0;
   Состояние("Идет установка связи, ждите.....");
   
   Попытка
       Результат = СоздатьОбъект("СписокЗначений");
       Результат.УдалитьВсе();
       
       BaseOLE = СоздатьОбъект("Excel.Application");
       Результат.Установить("EXCEL", BaseOLE);
                 
       ExcelФайл = BaseOLE.WorkBooks.Open (ПолноеИмяФайла);
       Результат.Установить("ExcelФайл", ExcelФайл);
                               
       МассивЛистов =  СоздатьОбъект("СписокЗначений");
       МассивЛистов.УдалитьВсе();
       
       КоличествоЛистов = BaseOLE.Sheets.Count;                  // *!!!*
       Для е = 1 по КоличествоЛистов Цикл
           МассивЛистов.ДобавитьЗначение(BaseOLE.Sheets(е));    // *!!!*        
       КонецЦикла;
       
       Результат.Установить("Листы", МассивЛистов);

   Исключение
       Результат = 0;
       Сообщить("Ошибка создания обьекта Microsoft Excel" + ОписаниеОшибки());
   КонецПопытки;
   
   Возврат Результат;
КонецФункции

// функция разрывает связь с EXCEL
// в качестве параметра требуеться структура созданая при установке соединения
Процедура EXCEL_РазорватьСвязь (СписокОбьектов) Экспорт
   Попытка
       СписокОбьектов.Получить("EXCEL").DisplayAlerts = 0;
//        СписокОбьектов.Получить("ExcelФайл").Close();         // *!!!*
       СписокОбьектов.Получить("EXCEL").Quit();
       СписокОбьектов.Получить("EXCEL").DisplayAlerts = 1;
       СписокОбьектов.Установить("EXCEL", 0);
       СписокОбьектов.УдалитьВсе();
   Исключение
       Сообщить(ОписаниеОшибки());
   КонецПопытки;                  
КонецПроцедуры


// функция получает данные ячейки и возвращаеть структуру соответствий, или 0 в случае неудачи
//
// В любом случае возвращаем соостветствие "Значение" и "ЭтоФормула", остальное по флагам
//
Функция EXCEL_ПолучитьЗначениеЯчейки (ExcelЛист, НомерСтроки, НомерКолонки, ПолучатьТекстФормулы = 0, ПолучатьОформление = 0)
   Результат = СоздатьОбъект("СписокЗначений");
   Результат.УдалитьВсе();
   
   Попытка
       ТекущееЗначениеФормулы = ExcelЛист.Cells(НомерСтроки, НомерКолонки).Formula;
       Если ТекущееЗначениеФормулы <> "" Тогда
           Если Лев(ТекущееЗначениеФормулы, 1) <> "=" Тогда
               Результат.Установить("ЭтоФормула", 0);
               Результат.Установить("ЗначениеЯчейки", ExcelЛист.Cells(НомерСтроки, НомерКолонки).value);
           Иначе
               Результат.Установить("ЭтоФормула", 1);
               Если Лев(СокрЛП(ExcelЛист.Cells(НомерСтроки, НомерКолонки).text),1) = "#" Тогда
                   Результат.Установить("ЗначениеЯчейки", "Неопределено");
               Иначе
                   Результат.Установить("ЗначениеЯчейки", ExcelЛист.Cells(НомерСтроки, НомерКолонки).value);
               КонецЕсли;

               Если ПолучатьТекстФормулы = 1 Тогда  
                   Результат.Установить("ТекстФормулы", СокрЛП(ТекущееЗначениеФормулы));
               КонецЕсли;
           КонецЕсли;
       Иначе
           Результат.Установить("ЭтоФормула", 0);
           Результат.Установить("ЗначениеЯчейки", ExcelЛист.Cells(НомерСтроки, НомерКолонки).value);
       КонецЕсли;    
       
       Если ПолучатьОформление = 1 Тогда
           Результат.Установить("ЦветЯчейки", СокрЛП(ExcelЛист.Cells(НомерСтроки, НомерКолонки).Interior.ColorIndex));
           // здесь можно добавить и другие....
       КонецЕсли;
       
   Исключение
       Результат = 0;
   КонецПопытки;
   
   Возврат Результат;
КонецФункции

// функция получает данные ячейки и значение
//
// В любом случае возвращаем соостветствие "Значение" и "ЭтоФормула", остальное по флагам
//
Функция EXCEL_ПолучитьЗначениеЯчейки2 (ExcelЛист, НомерСтроки, НомерКолонки)
   Результат = EXCEL_ПолучитьЗначениеЯчейки (ExcelЛист, НомерСтроки, НомерКолонки);
   
   Если Результат = 0 Тогда
       Возврат "";
   КонецЕсли;
   
   Возврат Результат.Получить("ЗначениеЯчейки");
КонецФункции

Процедура ЗакрытьОбработку (ТекстСообщения = "", СписокЗагрузки = 0)

   Если ТипЗначенияСтр(СписокЗагрузки) = "СписокЗначений" Тогда
       EXCEL_РазорватьСвязь (СписокЗагрузки);
   КонецЕсли;

   Если СокрЛП(ТекстСообщения) <> "" Тогда
       Сообщить(ТекстСообщения);
   КонецЕсли;                                                    

   СтатусВозврата(0);      
   Форма.Закрыть(0);
   
КонецПроцедуры


Процедура Сохранить()
   
   Если    (СокрЛП(КаталогДляСохранения) = "")
       или (ФС.СуществуетФайл(СокрЛП(КаталогДляСохранения)) = 0) Тогда
       ЗакрытьОбработку ("Не верный каталог для сохранения");
       Возврат;
   КонецЕсли;
             
   // подработка имени каталога
   Если Прав(СокрЛП(КаталогДляСохранения),1) <> "\" Тогда
       КаталогДляСохранения = СокрЛП(КаталогДляСохранения) + "\";
   КонецЕсли;
   
   // подработка имени файла
   Если Найти(СокрЛП(ИмяФайла),".") > 0 Тогда
       ИмяФайла = Лев(СокрЛП(ИмяФайла), Найти(СокрЛП(ИмяФайла),".") - 1);
   КонецЕсли;        
     
   
   Если (КаталогИБ() + "ExtForms\PrnForms\"+ СокрЛП(ИмяШаблона) + ".xls")=(СокрЛП(КаталогДляСохранения) + СокрЛП(ИмяФайла) + ".xls") Тогда
       Сообщить("Нельзя перезаписывать шаблон");        
       Возврат;
   КонецЕсли;        
   
   
   // будем подключаться
   СписокЗагрузки = EXCEL_УстановитьСвязь (КаталогИБ() + "ExtForms\PrnForms\"+ СокрЛП(ИмяШаблона) + ".xls");
           
   Если СписокЗагрузки = 0 тогда  
       ЗакрытьОбработку ("Ошибка подключения к шаблону");
       Возврат;
   КонецЕсли;      
       
   Листы = СписокЗагрузки.Получить("Листы");
   Если ПустоеЗначение(Листы) = 1 Тогда  
       ЗакрытьОбработку ("Шаблон пуст", СписокЗагрузки);
       Возврат;
   КонецЕсли;

   Если Листы.РазмерСписка() <> 2 Тогда  
       ЗакрытьОбработку ("В шаблоне должно быть 2 листа", СписокЗагрузки);
       Возврат;
   КонецЕсли;
   
   ШаблонНайден = 0;
   Для е = 1 по Листы.РазмерСписка() Цикл  
       ТекЛист = Листы.ПолучитьЗначение(е);
       Если  (СокрЛП(EXCEL_ПолучитьЗначениеЯчейки2 (ТекЛист, 1, 1)) = "ИдентификаторШаблона")
           И (ВРЕГ(СокрЛП(EXCEL_ПолучитьЗначениеЯчейки2 (ТекЛист, 1, 2))) = ВРЕГ(СокрЛП(ИмяШаблона)))  Тогда
           
           // это лист настроек
           СписокЗагрузки.Установить("ЛистНастроек", ТекЛист) ;
           ШаблонНайден = 1;
       Иначе                                    
           // лист шаблона
           СписокЗагрузки.Установить("ЛистШаблона", ТекЛист) ;
       КонецЕсли;
   КонецЦикла;
   
   Если ШаблонНайден = 0 Тогда
       ЗакрытьОбработку ("В Шаблоне не верный идентификатор", СписокЗагрузки);
       Возврат;
   КонецЕсли;  
                                                   
   //
   // все проверки закончили, теперь запишем под новым именем
   //
     
   
   Попытка
       СписокЗагрузки.Получить("EXCEL").DisplayAlerts = 0;
       СписокЗагрузки.Получить("ЛистШаблона").SaveAs(СокрЛП(КаталогДляСохранения) + СокрЛП(ИмяФайла) + ".xls");
       СписокЗагрузки.Получить("EXCEL").DisplayAlerts = 1;
   Исключение
       ЗакрытьОбработку ("Неудачное копирование шаблона, " + ОписаниеОшибки(), СписокЗагрузки);
       Возврат;
   КонецПопытки;                  

   // теперь можно и формировать      
   // инициализируем

   ЧислоСтрок = СписокЗагрузки.Получить("ЛистНастроек").UsedRange.Rows.Count;
   СписокПараметровФайла = СоздатьОбъект("СписокЗначений");
   СписокПараметровФайла.УдалитьВсе();
   
   Для е1 = 2 по ЧислоСтрок Цикл  
       ИмяПараметра        = EXCEL_ПолучитьЗначениеЯчейки2 (СписокЗагрузки.Получить("ЛистНастроек"), е1, 1);
       ЗначениеПараметра    = EXCEL_ПолучитьЗначениеЯчейки2 (СписокЗагрузки.Получить("ЛистНастроек"), е1, 2);
       
       Если  (ПустоеЗначение(ИмяПараметра) = 1)
           И (ПустоеЗначение(ЗначениеПараметра) = 1) Тогда
               
           Продолжить;
       КонецЕсли;
                       
       СписокПараметровФайла.ДобавитьЗначение(ЗначениеПараметра, ИмяПараметра);    
   КонецЦикла;
                                                                       
   // коректируем правильность параметров
   Попытка
       СписокПараметровФайла.Установить("СтрокаШаблонТЧ", Число(СписокПараметровФайла.Получить("СтрокаШаблонТЧ")));
   Исключение        
       СписокПараметровФайла.Установить("СтрокаШаблонТЧ", 0);
   КонецПопытки;  
   
   СписокПараметровФайла.Установить("ИдентификаторПеременной", СокрЛП(СписокПараметровФайла.Получить("ИдентификаторПеременной")));
   Если СписокПараметровФайла.Получить("ИдентификаторПеременной") = "" Тогда
       ЗакрытьОбработку ("Незаполнен обязательный параметр 'ИдентификаторПеременной'", СписокЗагрузки);
       Возврат;
   КонецЕсли;
   
                                         
   //*********************************************************************
   //
   //
   // для начала пройдем весь лист и запишем переменные
   //
                                                                                       
   // кешируем обяз. параметры
   ИдентификаторПеременной = СписокПараметровФайла.Получить("ИдентификаторПеременной");
   
   // определим диапазон
   ЧислоСтрок = СписокЗагрузки.Получить("ЛистШаблона").UsedRange.Rows.Count;
   ЧислоКолонок = СписокЗагрузки.Получить("ЛистШаблона").UsedRange.Columns.Count;  
   
   // вперед
   Для е1 = 1 по ЧислоСтрок Цикл  
       
       Состояние("Заполнение шапки " + Обмен_Индикатор(е1, ЧислоСтрок));
       
       Если е1 = СписокПараметровФайла.Получить("СтрокаШаблонТЧ") Тогда
           Продолжить;
       КонецЕсли;
       
       Для е2 = 1 по ЧислоКолонок Цикл    
           
           Результат = EXCEL_ПолучитьЗначениеЯчейки (СписокЗагрузки.Получить("ЛистШаблона"), е1, е2);
           
           Если Результат = 0 Тогда
               Продолжить;
           КонецЕсли;
           
           Если Результат.Получить("ЭтоФормула") = 1 Тогда
               Продолжить;
           КонецЕсли;
           
           ЗначениеЯчейки = СокрЛП(Результат.Получить("ЗначениеЯчейки"));  
           
           Если Лев(ЗначениеЯчейки, СтрДлина(ИдентификаторПеременной)) = ИдентификаторПеременной тогда
               // это переменная надо заполнить
               _зн =  СписокПараметров.Получить(Сред(ЗначениеЯчейки, СтрДлина(ИдентификаторПеременной)+1));
               // теперь надо установить в екселе это значение  
               СписокЗагрузки.Получить("ЛистШаблона").Cells(е1, е2).value = _зн;                
           КонецЕсли;
       КонецЦикла;
   КонецЦикла;
   
   //
   // теперь надо формировать табличную часть
   //
   
   //
   Смещение = СписокПараметровФайла.Получить("СтрокаШаблонТЧ");
   СписокЗагрузки.Получить("ЛистШаблона").Select();    
   Если ТЗ.КоличествоСтрок() = 0 Тогда
       Д = СписокЗагрузки.Получить("ЛистШаблона").Rows("" + Смещение + ":" + Смещение);
       Д.Select();
       Д.Delete();
   Иначе
       Для е1 = 2 по ТЗ.КоличествоСтрок() Цикл  
           Д = СписокЗагрузки.Получить("ЛистШаблона").Rows("" + Смещение + ":" + Смещение);
           Д.Select();
           Д.Copy();
           Д.Insert();
       КонецЦикла;
   КонецЕсли;
                                                                                               
   Смещение = Смещение - 1;    
   // вперед
   Для е1 = 1 по ТЗ.КоличествоСтрок() Цикл  
       Состояние("Создание табличной части " + Обмен_Индикатор(е1, ТЗ.КоличествоСтрок()));

       Для е2 = 1 по ЧислоКолонок Цикл    
           
           Результат = EXCEL_ПолучитьЗначениеЯчейки (СписокЗагрузки.Получить("ЛистШаблона"), е1 + Смещение, е2);
           
           Если Результат = 0 Тогда
               Продолжить;
           КонецЕсли;
           
           Если Результат.Получить("ЭтоФормула") = 1 Тогда
               Продолжить;
           КонецЕсли;
           
           ЗначениеЯчейки = СокрЛП(Результат.Получить("ЗначениеЯчейки"));  
           
           Если Лев(ЗначениеЯчейки, СтрДлина(ИдентификаторПеременной)) = ИдентификаторПеременной тогда
               // это переменная надо заполнить
               Попытка
                   _зн =  ТЗ.ПолучитьЗначение(е1, Сред(ЗначениеЯчейки, СтрДлина(ИдентификаторПеременной)+1));
               Исключение
                   _зн = "";                    
               КонецПопытки;
               
               // теперь надо установить в екселе это значение  
               СписокЗагрузки.Получить("ЛистШаблона").Cells(е1 + Смещение, е2).value = _зн;                
           КонецЕсли;
       КонецЦикла;
   КонецЦикла;
   
   // все теперь запишем
   Попытка
       СписокЗагрузки.Получить("EXCEL").DisplayAlerts = 0;
       СписокЗагрузки.Получить("ЛистШаблона").SaveAs(СокрЛП(КаталогДляСохранения) + СокрЛП(ИмяФайла) + ".xls");  // *!!!*
       СписокЗагрузки.Получить("EXCEL").DisplayAlerts = 1;
   Исключение
       ЗакрытьОбработку ("Неудачное сохранение шаблона", СписокЗагрузки);
       Возврат;
   КонецПопытки;                  
   
   // усе, можно выходить
   ЗакрытьОбработку ("Файл удачно сохранен", СписокЗагрузки);

КонецПроцедуры


Процедура ПриОткрытии()

   ТекСписокПараметров = Форма.Параметр;
   
   Если ТипЗначенияСтр(ТекСписокПараметров) = "СписокЗначений" Тогда
       // загрузим параметры
       Попытка

           ИмяШаблона                = СокрЛП(ТекСписокПараметров.Получить("Идентификатор"));
           КаталогДляСохранения    = СокрЛП(ТекСписокПараметров.Получить("КаталогДляСохранения"));
           ИмяФайла                = СокрЛП(ТекСписокПараметров.Получить("ИмяФайла"));
           ТЗ                        = ТекСписокПараметров.Получить("ТаблицаЗначений");
           СписокПараметров        = ТекСписокПараметров.Получить("СписокПеременных");

           Если СокрЛП(ИмяФайла) = "" Тогда
               ИмяФайла = ИмяШаблона;
           КонецЕсли;
           
           Если ТипЗначенияСтр(СписокПараметров) <> "СписокЗначений" Тогда
               СписокПараметров = СоздатьОбъект("СписокЗначений");
               СписокПараметров.УдалитьВсе();
           КонецЕсли;

           Если ТипЗначенияСтр(ТЗ) <> "ТаблицаЗначений" Тогда
               ТЗ = СоздатьОбъект("ТаблицаЗначений");
               ТЗ.Очистить();
           КонецЕсли;
           
       Исключение
           ЗакрытьОбработку ("Ошибка параметров");
           Возврат;
       КонецПопытки;                              
       
       // авто выполнение
       Сохранить();
       Форма.Закрыть(0);
   КонецЕсли;
   
КонецПроцедуры
                             



ТЗ = СоздатьОбъект("ТаблицаЗначений");
ТЗ.Очистить();

СписокПараметров = СоздатьОбъект("СписокЗначений");
СписокПараметров.УдалитьВсе();

Описание = "Обработка выводит в копию файла шаблона ТЗ
|Файл шаблона должен иметь название СокрЛП(ИмяШаблона) + "".xls""
|и лежать в каталоге  КаталогИБ() + ""ExtForms\PrnForms\""
|
|Параметры запуска должен быть списком значения:
|""Идентификатор""                    - Обязательный
|""КаталогДляСохранения""              - Обязательный
//|""Тест""                            - Не обязательный, если равен 1 то файл не сохраняеться а выводиться отчет
//|                                      по соответствию имен    
|""ИмяФайла""                          - Не обязательный (если пусто, то используеться имя шаблона)
|""ТаблицаЗначений""                - Не обязательный (Таблица значений, связь по имени колонок, см ниже)
|""СписокПеременных""               - Не обязательный (Список значений, связь по представлению, см ниже)
|
|"

ппц

(59) и ты туда-же ?

(59) все написано самолично и работает на 100%

в свете (53)
как обращаться с запросами
http://www.mista.ru/tutor_1c/zapros.htm

А вашу задачу лучше порешайте пока без запроса, используя обычную выборку документов и перебор строк.

(62) без обид, код может и работает, только автору надо попроще, намного проще.

АВТОРУ НУЖНО ВОТ ЭТО:
http://img689.imageshack.us/img689/9895/21384461.jpg

(64) а чего проще, есть описание, нужно сформировать ТЗ с параметрами, сделать шаблоне екселе (можно использовать цвета и формулы) и запустить обработку...

(66) какая ТЗ, автора уже ввело в тупик поле неограниченной длины.

(65) Не подсказывай:)

(68) да жалко уже, сейчас совсем запутают, убежит в диком ужасе )))

(69) Ну выложи ей обработку, у нее может ИТС нет.

АВТОРУ НУЖНО ВОТ ЭТО:
http://img689.imageshack.us/img689/9895/21384461.jpg

вот это более похоже на правду.. что-то типа этого :)
З.Ы. не волнуйтесь не убегу от ужаса :) убегу по окончании работы.. через полчасика эдак

(71) лови http://narod.ru/disk/15344116000/docprint.ert.html

скромный вопросик... а что за циферки в скобочках? и как их ставить? :-[

(73) это ссылка к посту, в скобках номер поста к которому ответ пишешь, а пишется прямо вот так "(73)" ))))

хм.. а как распознать какому посту это пишется? не считать же вручную

(75) нажав на эти циферки можно перейти к посту на который отвечает.

+76 отвечает = отвечают

(78)понятно.. пасиб за помощь :) буду разбираться с посылочкой ))
ах да.. осталась еще фотка...;)

ой.. сама с собой О_О

(70)(72)
3. Не публикуйте материалы, нарушающие авторские права, а также ссылки на них.

И не надо говорить, что это тут не причем! Права принадлежат фирме 1С!

А дэвушка то красивая:)

Белорусь)))) симпотичная, я и не ожидал другого))))

(80) где тут что нарушает ? Она в свободном доступе...

полученную печатную форму сохранить в эксель не штатным методом, а через Йоксель - и будет вам всякое щастье.. и с длинными строками и с объединенными ячейками и со скоростью сохранения, и со вставленными картинками и прочее всякое мечтательное щасте.

да! и это фсе можно без самого экселя на машине...

Прям всю засмущали :-[

так-так-так... И снова вопрос блондинки :)
Как засунуть в запрос поле  неограниченной длины? :)) Или как-нить это поле ограничить?

(88) лучше перекраситься.

(84) Где в свободном?

(88) зачем запрос, и почему возникает проблема, если поле - строка неограниченной длинны? Я почему-то проблем вообще не вижу...

(89) натурцвет!

(92) привет:) Грозилась сегодня постучаться в аську...

(0) радость то какая!!! Землячка!!!! Привет!!!!

(93) стучусь...
(94) Привет :)

Не вижу:)

(96)ладно.. пойдем так 422-980-217