0
Garnet27
22.09.14
✎
16:24
|
Подскажите, пожалуйста, задача - из каталога выбрать все файлы excel и свести из них данные в одну ТЗ. Опыт у меня небольшой, так что не обессудьте. Делаю так:
&НаКлиенте
Процедура Сформировать(Команда)
КаталогВыгрузки = "D:\Temp";
НайденныеФайлы = НайтиФайлы(КаталогВыгрузки, "*.xlsx");
Для каждого Стр Из НайденныеФайлы Цикл
ПутьКФайлу = Стр.ПолноеИмя;
ИмяФайла = Стр.Имя;
НашФайл = Новый ДвоичныеДанные(ПутьКФайлу);
АдресХранилища = ПоместитьВоВременноеХранилище(НашФайл, ЭтаФорма.УникальныйИдентификатор);
ПрочитатьНаСервере(АдресХранилища)
КонецЦикла;
КонецПроцедуры
&НаСервере
Процедура ПрочитатьНаСервере(Адрес);
Файл = ПолучитьИзВременногоХранилища(Адрес);
ИмяВременногоФайла = ПолучитьИмяВременногоФайла();
...??????
// А вот дальше что делать - и не знаю, получаю поток //двоичных данных, и как его обработать - не могу придумать. Буду //очень признательна за совет. Спасибо!
КонецПроцедуры
|
|