Имя: Пароль:
1C
1С v8
Выгрузка в ексель из 1с
,
0 Tumakota
 
15.08.13
17:44
Всем доброго времени суток, такой вопросик еще есть, какие еще есть способы сохранения в Excel, кроме шаблона, построчно, или сразу таблицу. Есть такая проблема при сохранении сразу таблицу в ексели, ексель убирает у Артиклов нули переднии, хотя они должны быть, нашел выход поставил апостроф впереди и тогда все норм. Если построчно или шаблоном Excel, то очень долго сохраняет прайс лист порядка 15-20 минут, а их около 30 выходит по времени накладно. Может кто знает еще какие нить варианты которые при сохранении не будут удалять нули и без добавлния апострафов подскажите, буду очень признателен
1 МихаилМ
 
15.08.13
17:48
2 genosse
 
15.08.13
17:54
Когда долго очень часто связано с тем, что включен режим разметки страницы при заполнении данными, нужно его отключить.
3 Tumakota
 
15.08.13
17:55
(2) Не понял можно по подробнее где его отключить?
4 Tumakota
 
15.08.13
18:00
(2) А не льзая как нить сразу таблицу сохранить чтобы он не убирал лидирующее нули?
5 Pashkaa
 
15.08.13
19:06
А чем не устраивает вывод в Табличный документ и сохранение его в Excel?
6 Tumakota
 
16.08.13
09:05
(5) такая выгрузка убирает лидирующии нули, если не ставить апостроф
7 wms
 
16.08.13
09:10
(0)в 1С выводит в ячейку данные в нужном формате
формат() тебе поможет
8 Tumakota
 
16.08.13
09:35
(7) При сохранении потом в Ексель всей таблицы, Эксель серовно убирает лидирующие нули
9 wms
 
16.08.13
10:00
10 Tumakota
 
16.08.13
10:11
ДиалогВыбораФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Сохранение);
    
    ДиалогВыбораФайла.Фильтр                      = "Текстовый файл (*.xls)|*.xls";
    ДиалогВыбораФайла.Заголовок                   = "Выберите файл для сохранения прайс листа";
    ДиалогВыбораФайла.ПредварительныйПросмотр     = Ложь;
    ДиалогВыбораФайла.Расширение                  = "xls";    
    
    ДиалогВыбораФайла.ИндексФильтра               = 0;
    ПутьКФайлу = ВосстановитьЗначение("ПутьКФайлуПрайсЛиста31574843745741");
    Если ПутьКФайлу = Неопределено Тогда
        ПутьКФайлу = "";
    КОнецЕсли;
    ДиалогВыбораФайла.ПолноеИмяФайла              = ПутьКФайлу;
    //ДиалогВыбораФайла.ПроверятьСуществованиеФайла = Истина;
    
    Если ДиалогВыбораФайла.Выбрать() Тогда
        ПутьКФайлу = ДиалогВыбораФайла.ПолноеИмяФайла;
        СохранитьЗначение("ПутьКФайлуПрайсЛиста31574843745741",ПутьКФайлу);
    
        ЭлементыФормы.МакетПрайсЛист.Записать(ПутьКФайлу,ТипФайлаТабличногоДокумента.XLSX);
    КонецЕсли;

Вот как я сохраняю сформированный отчет по прайсу
11 Tumakota
 
16.08.13
10:12
Куда здесь вставить Selection.NumberFormat = "@", не понимаю
12 wms
 
16.08.13
12:40
(11)надо открыть этот эксель файл после
ЭлементыФормы.МакетПрайсЛист.Записать(ПутьКФайлу,ТипФайлаТабличногоДокумента.XLSX);
и его обработать

вот пример из моего шаблона

Эксель = ПолучитьCOMОбъект(ПутьКФайлу);
НомерЛиста=1;НомерСтроки=2;НомерКолонки=1;НаимЯчейки = "начало";

Пока СокрЛП(НаимЯчейки) <> "" Цикл // можно использовать другой признак окончания данных на листе
    НаимЯчейки =сокрлп(Эксель.Sheets(НомерЛиста).Cells(НомерСтроки,НомерКолонки).Value);
    НомерСтроки=НомерСтроки+1;
конеццикла;


вот еще ссылка
http://1c.proclub.ru/modules/newbb/viewtopic.php?topic_id=276754&forum=2
AdBlock убивает бесплатный контент. 1Сергей