Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
22 ноя 2024, 03:20

Перенос данных из табличного документа

Автор kalitchavalm, 10 апр 2012, 23:25

0 Пользователей и 1 гость просматривают эту тему.

kalitchavalm

Доброго времени суток!
Раньше программировал на vba, сейчас перешел на платформу 1с 8.2 (управляемое приложение) и испытываю большие трудности. Помогите, кто может...
Стоит задача перенести данные из документа Excel в справочник Прививки.
1. Возможно ли с помощью обработки какую-то часть строки таблицы Excel загнать в реквизиты элемента справочника Прививки, а другую - в табличную часть этого элемента? Если да, то подскажите как написать обработку
2. Если 1-ый вариант невозможен. Как можно скопировать значение нескольких реквизитов справочника в табличную часть (желательно фрагмент кода)

Dethmontt

Реквизит = Эксель.Cells(1,1).Value;
СтрокаТЧ = ИмяТЧ.Добавить();
СтрокаТЧ.ИмяРеквизитаТЧ = Эксель.Cells(1,7).Value;
Если долго всматриваться в учебник...то в голову может прийти мысль его открыть!

Dethmontt

Функция ПрочитатьЛистExcel(ТЗ = Неопределено, ЛистЭксель = Неопределено, НомерПервойСтроки = 1, НомерПервойКолонки = 1, ВсегоСтрок = 0, ВсегоКолонок = 0) Экспорт

Если ЛистЭксель = Неопределено Тогда
    ЛистЭксель = ПолучитьCOMОбъект(,"Excel.Application");
КонецЕсли;
Если ВсегоСтрок = 0 Тогда
    ВсегоСтрок = ЛистЭксель.Cells.SpecialCells(11).Row;
КонецЕсли;
Если ВсегоКолонок = 0 Тогда
    ВсегоКолонок = ЛистЭксель.Cells.SpecialCells(11).Column;
КонецЕсли;
Если ТЗ = Неопределено Тогда
    ТЗ =  Новый ТаблицаЗначений;
    Для Счетчик = 1 По ВсегоКолонок Цикл
        ТЗ.Колонки.Добавить("Колонка"+Счетчик, Новый ОписаниеТипов("Строка"));
    КонецЦикла;
КонецЕсли;
Для Счетчик = НомерПервойСтроки По ВсегоСтрок Цикл
    НоваяСтрока = ТЗ.Добавить();
КонецЦикла;

Область = ЛистЭксель.Range(ЛистЭксель.Cells(НомерПервойСтроки,НомерПервойКолонки), ЛистЭксель.Cells(ВсегоСтрок,ВсегоКолонок));
Данные = Область.Value.Выгрузить();

Для Счетчик = 0 По ВсегоКолонок-1 Цикл
    ТЗ.ЗагрузитьКолонку(Данные[Счетчик], Счетчик);
КонецЦикла;
ЛистЭксель = Неопределено;
Возврат ТЗ;
КонецФункции   
Если долго всматриваться в учебник...то в голову может прийти мысль его открыть!

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск