Имя: Пароль:
1C
1C 7.7
v7: Вопрос знатакам Yoksel
0 dimm7310
 
12.04.13
08:41
Есть прайс с группировками, необходимо не открывая форму на предпросмотр сохранить в XLS файл.
вот фрагмент последних строк кода (выдрано из примера с небольшими изменениями)

Документ.ЗагрузитьИзТаблицы(ИсхТабл);

Если ТипЗначенияСтр(ПанельИнструментов) <> "Йоксель.ПанельИнструментов" Тогда
Фрейм = Документ.Показать("Прайс лист с группировками");
Фрейм.ОтображатьСтруктуру(1);
Фрейм.ОтображатьКнопкиУровней(1);

Панель = Фрейм.ПанельИнструментов;
//Панель.Видимость = 1;
// Обратите внимание если у Вас переписана ОбработкаЯчейкиТаблицы и ее события то следущие
// строки нужно привести к тому виду, какой он должен быть в Вашей конфигурации!
Панель.ПодписатьсяНаСобытие("ОбработкаЯчейкиТаблицы", "ОбработкаЯчейкиТаблицы", 1);
Иначе
Панель = ПанельИнструментов;
КонецЕсли;

Кнопка = Панель.ДобавитьКнопку("Обновить");
Кнопка.Заголовок = "Обновить";
Кнопка.Значение = РасшифровкаОбновить(1);
Кнопка = Панель.ДобавитьКнопку("Настройка");
Кнопка.Заголовок = "Настройка";
Кнопка.Значение = РасшифровкаОбновить(2);

Документ.УдалитьСтроки(1,2); // Удаляем Настройка и Обновить
// Установка группировок строк
ГруппыСтрок.ВыбратьСтроки();
Пока ГруппыСтрок.ПолучитьСтроку () = 1 Цикл
Если (ГруппыСтрок.Окончание =0) Или (ГруппыСтрок.Начало =0) Тогда
Продолжить;
КонецЕсли;
Если ГруппыСтрок.Окончание < ГруппыСтрок.Начало Тогда
Продолжить;
КонецЕсли;

Документ.ДобавитьГруппуСтрок(ГруппыСтрок.Начало-2,ГруппыСтрок.Окончание-2);
КонецЦикла;
// Свертка всех группировок Йоксель
Для инд = -Документ.КоличествоУровнейГруппировкиСтрок() По -1 Цикл
Документ.ПоказатьУровеньГруппировокСтрок (-инд);
КонецЦикла;
Документ.ОбновитьВсеОтображения();
1 dimm7310
 
12.04.13
08:43
в начале кода:

   Если ТипЗначенияСтр(ПанельИнструментов) <> "Йоксель.ПанельИнструментов" Тогда
       Документ = СоздатьОбъект ("ТабличныйДокумент");
   Иначе
       Документ = ПанельИнструментов.Документ;
       Документ.Очистить ();                
   КонецЕсли;
2 ADirks
 
12.04.13
08:51
Тебе в файл, или группировок навернуть?
Так то
Йоксель = СоздатьОбъект("ТабличныйДокумент");
Йоксель.ЗагрузитьИзТаблицы(Т);
Йоксель.Записать(ИмяФайла, 1);
3 Ёпрст
 
12.04.13
08:53
(0) используй объект КонвертерExcel
4 dimm7310
 
12.04.13
08:53
(2) просто сохранить в файл (группировки уже все есть)
5 Ёпрст
 
12.04.13
08:54
(4) тогда (2) более чем..
6 dimm7310
 
12.04.13
09:04
спасибо сохранить получилось (я думал это сложнее).

еще вопросик: нужно несколько колонок сделать скрытыми и для одной назначить формулу. Можно ли это сделать в Йоксель или нужно открывать сохраненный XLS файл с помощью Excel.Application и назначать  колонке?
7 monsterZE
 
12.04.13
17:23
дабы не плодить тем.. а закрепление строк, при сохранении теряется или, это я что-то не так делаю? =)
и.. пока не ковырял, но вроде ексель поддерживает документы с несколькими листами. так вот, он поддерживает их, только при чтении из xls или при формировании и отображении в своей форме тоже?
и еще - все слить в один файлик из разных баз с сохранением группировок?..
контроль+ц контроль+в группировки теряются.. =\
8 monsterZE
 
12.04.13
17:24