1C Excel. 1с 8 примеры

Как загрузить данные из Excel в 1С? Рассмотрим пример. Дан Excel файл:

Создадим внешнюю обработку в 1С:

Код обработки:

//******************************************* перем ExcelObj, РабочаяКнига, наим, кол; // //******************************************* // Процедура Сформировать() ExcelObj = СоздатьОбъект(«Excel.Application»); РабочаяКнига = ExcelObj.WorkBooks; //Укажите свой путь к Excel файлу!!! РабочаяКнига.Open(«H:Книга1»); табл = СоздатьОбъект(«Таблица»); Табл.ИсходнаяТаблица(«Таблица»); табл.ВывестиСекцию(«Шапка»); Лист = ExcelObj.WorkSheets(1); // цикл по строкам Для НомерСтроки = 2 По 3 Цикл курВал = Лист.Cells(НомерСтроки, 1).Value; если ПустоеЗначение(курВал)=1 тогда прервать; конецЕсли; наим = Лист.Cells(НомерСтроки, 1).Value; кол = Лист.Cells(НомерСтроки, 3).Value; табл.ВывестиСекцию(«РС»); КонецЦикла; табл.Показать(«Загрузка из Excel»,»»); КонецПроцедуры//Сформировать(); // //******************************************* // Процедура ПриЗакрытии() Попытка РабочаяКнига.Close(); ExcelObj.Quit(); Исключение конецПопытки; КонецПроцедуры//ПриЗакрытии();

В процедуре Сформировать() в строке РабочаяКнига.Open(«H:Книга1») укажите свой путь к Excel файлу. Вот результат работы:

Таков результат.