Имя: Пароль:
1C
1С v8
Загрузка данных из файлов Excel в ТЗ
0 Garnet27
 
22.09.14
16:24
Подскажите, пожалуйста, задача - из каталога выбрать все файлы excel и свести из них данные в одну ТЗ. Опыт у меня небольшой, так что не обессудьте. Делаю так:

&НаКлиенте
Процедура Сформировать(Команда)
    
    КаталогВыгрузки = "D:\Temp";
    НайденныеФайлы = НайтиФайлы(КаталогВыгрузки, "*.xlsx");
    Для каждого Стр Из НайденныеФайлы Цикл
    
        ПутьКФайлу = Стр.ПолноеИмя;
        ИмяФайла = Стр.Имя;
        НашФайл = Новый ДвоичныеДанные(ПутьКФайлу);
        АдресХранилища = ПоместитьВоВременноеХранилище(НашФайл, ЭтаФорма.УникальныйИдентификатор);
        ПрочитатьНаСервере(АдресХранилища)
    КонецЦикла;

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


&НаСервере
Процедура ПрочитатьНаСервере(Адрес);
    
    Файл = ПолучитьИзВременногоХранилища(Адрес);
    ИмяВременногоФайла = ПолучитьИмяВременногоФайла();     
    ...??????
    // А вот дальше что делать - и не знаю, получаю поток //двоичных данных, и как его обработать - не могу придумать. Буду //очень признательна за совет. Спасибо!
    
КонецПроцедуры
1 Ilqarupup
 
22.09.14
16:27
может в темп сохранить, получить путь, потом стандартным способ прочитать?
2 Ilqarupup
 
22.09.14
16:28
(1) не, забей, тупизм. тебе не нужен стандартный способ.
3 Ilqarupup
 
22.09.14
16:30
зачем на сервер сохраняешь тогда? сразу читай на клиенте, голову морочишь...
4 Ilqarupup
 
22.09.14
16:31
5 Garnet27
 
22.09.14
16:38
Большое спасибо! Сейчас попробую
Компьютер — устройство, разработанное для ускорения и автоматизации человеческих ошибок.