Йоксель » Главный форум

выгрузка в/из xls

(5 posts)

  1. vova23n
    Участник

    Добрый день,
    недавно обнаружил эту компоненту. Из приведенных примеров не совсем ясно, каким образом программно выгрузить данные из xls-файла с 1-м листом(допустим в ТаблицуЗначений).Поменять некоторые значения(программно), затем снова загрузить в тот же файл.
    Можете ли бросить простой примерчик?
    Спасибо.

    Отправлено 16 года(лет) назад #

  2. Сергей
    Участник

    //*********************************************************
    // ОткрытьКнигу()
    // Возвращаемое значение: Нет
    // Описание: получает список листов
    Процедура ОткрытьКнигу()

    Конвертер = СоздатьОбъект("КонвертерExcel");
    Листы = Конвертер.Открыть(ВыбФайл).Листы;

    ТЗЛисты.УдалитьСтроки ();
    КолвоЛистов = Листы.Количество();
    Для ы = 1 По КолвоЛистов
    Цикл Лист = Листы.Получить(ы);
    Если Лист.Тип <> 0
    Тогда Продолжить;
    КонецЕсли;

    ТЗЛисты.НоваяСтрока ();
    ТЗЛисты.Лист = Лист.Имя;
    КонецЦикла;
    Форма.рЛисты.Заголовок(" всего: "+ТЗЛисты.КоличествоСтрок()+" листов ");
    Попытка ТЗЛисты.ТекущаяСтрока(1);
    Исключение
    КонецПопытки;
    КонецПроцедуры //ОткрытьКнигу()
    .
    ОчиститьОкноСообщений();
    Сообщить(ТекущееВремя()+": Начало процедуры загрузки данных");
    Сообщить(ТекущееВремя()+": чтение данных листа <"+ТЗЛисты.Лист+"> файла <"+ВыбФайл+">");

    Конвертер = СоздатьОбъект ("КонвертерExcel");
    гКнига = Конвертер.Открыть(ВыбФайл);
    Документ = гКнига.ЗагрузитьЛист(ТЗЛисты.Лист);

    Сообщить(ТекущееВремя()+": преобразование данных в таблицу...");
    Конвертер = СоздатьОбъект ("Йоксель.КонвертерВТаблицуЗначений");
    Конвертер.УстановитьДокумент(Документ);
    Конвертер.ОпределятьСтруктуру = 0;
    Конвертер.ПроверятьСтруктуру = 0;
    Конвертер.СтрокДляОпределенияСтруктуры = 15;
    ТЗ = Конвертер.Загрузить();

    Отправлено 16 года(лет) назад #

  3. Сергей
    Участник

    в демо конфигурации, кстати, все есть - надо всего лишь открыть конфигуратор и посмотреть...

    Отправлено 16 года(лет) назад #

  4. vova23n
    Участник

    ОК спасибо.

    Смотреть можно достаточно долго и принять не эффективное решение,
    поскольку опыта работы с этой компонентой не было.
    (прежде чем обратился естественно поковырял демку)

    Отправлено 16 года(лет) назад #

  5. Сергей
    Участник

    Успехов!

    Отправлено 16 года(лет) назад #

RSS экспорт этой темы

Отправить сообщение

Вы должны войти в систему, чтобы оставлять сообщения.