Чтение и загрузка из файлов EXCEL УП

Чтение и загрузка из файлов EXCEL УП

Обработка для Управляемого приложения читает файл EXCEL и создает таблицу значений. Код открытый.

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

Так что можете дописывать под свои нужды, половина работы уже сделана.Cool

5 Comments

  1. rasswet

    через ado читаешь?

    Reply
  2. PavelZnaikin

    Нет, к сожалению этот метод я не знаю.

    Если не сложно расскажите!!!

    Reply
  3. iiceberg

    Спасибо. На файловой версии хорошо и быстро загрузилось. Но вот возникла проблема при чтении файла на клиент-серверной версии… т.к. файл расположен локально , а чтении идет на сервере… то на сервере по указанному пути файл не обнаруживается… , да ко всему прочему добавляем , что не на всех серверах установлен эксель. так что немного изменил 2 процедурки… на вот такое содержание и все взлетело.

    
    &НаКлиенте
    Процедура ЧтениExcelФайла(ПутьКФайлу)
    
    Эксель = Новый COMОбъект(«Excel.Application»);
    Эксель.WorkBooks.Open(ПутьКФайлу);
    Лист   = Эксель.Sheets(3);
    
    ВсегоКолонок = Лист.Cells(1,1).SpecialCells(11).Column;
    ВсегоСтрок   = Лист.Cells(1,1).SpecialCells(11).Row;
    
    
    Область = Лист.Range(Лист.Cells(2,1), Лист.Cells(ВсегоСтрок,ВсегоКолонок));
    Данные = Область.Value.Выгрузить();
    
    // т.к. нельзя передавать таблицу значений с клиента на сервер то придется все делать на сервере =)
    СоздатьЗАгрузить(ВсегоКолонок,ВсегоСтрок,Данные);
    
    КонецПроцедуры
    
    &НаСервере
    Процедура СоздатьЗАгрузить(ВсегоКолонок,ВсегоСтрок,Данные)
    
    ТЗ = Новый ТаблицаЗначений;
    
    Для Счетчик = 1 По ВсегоКолонок Цикл
    
    ТЗ.Колонки.Добавить(«Колонка»+Счетчик);
    
    КонецЦикла;
    
    Для Счетчик = 1 По ВсегоСтрок Цикл
    НоваяСтрока = ТЗ.Добавить();
    КонецЦикла;
    
    Для Счетчик = 0 По ВсегоКолонок-1 Цикл
    ТЗ.ЗагрузитьКолонку(Данные[Счетчик], Счетчик);
    КонецЦикла;
    
    СоздатьЭлементСправочника(ТЗ);
    
    
    КонецПроцедуры
    
    

    Показать

    Reply
  4. PavelZnaikin

    Поздравляю нашли выход из ситуации

    Reply
  5. vers139

    Подскажите, пожалуйста, как загрузит Ваша обработка код товара из Excel, если в ячейке значение 1, формат ячейки 0000 (пользователь видит 0001)?

    Reply

Leave a Comment

Ваш адрес email не будет опубликован. Обязательные поля помечены *