HePapyc
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
fainver
Если именно из другой конфигурации, то для:
- конфигурации на 8.3 - стоит познакомиться с конвертацией данных 3.0.
- конфигурации на 8.2 - стоит познакомиться с конвертацией данных 2.0
Если именно из эксель, то вот пример:
Код:
Функция ПрочитатьФайлExcel(пФайлДанных, пНомерЛиста = 1, пНомерПервойСтроки = 1, пНомерПервойКолонки = 1, пВсегоСтрок = 0, пВсегоКолонок = 0) Экспорт
Если пФайлДанных = Неопределено Тогда
Возврат Неопределено;
КонецЕсли;
Попытка
лКнигаЭксел = ПолучитьCOMОбъект(пФайлДанных);
Исключение
Сообщить("Ошибка подключения СОМ-Объекта!", СтатусСообщения.Важное);
КонецПопытки;
лЛистЭксел = лКнигаЭксел.WorkSheets(пНомерЛиста);
Если пВсегоСтрок = 0 Тогда
пВсегоСтрок = лЛистЭксел.Cells.SpecialCells(11).Row;
КонецЕсли;
Если пВсегоКолонок = 0 Тогда
пВсегоКолонок = лЛистЭксел.Cells.SpecialCells(11).Column;
КонецЕсли;
лТаблица = ПодготовитьТаблицуЗначений(пНомерПервойКолонки, пВсегоКолонок, пНомерПервойСтроки, пВсегоСтрок);
лОбласть = лЛистЭксел.Range(лЛистЭксел.Cells(пНомерПервойСтроки, пНомерПервойКолонки), лЛистЭксел.Cells(пВсегоСтрок, пВсегоКолонок));
лДанные = лОбласть.Value.Выгрузить();
Для лСчетчик = пНомерПервойКолонки По пВсегоКолонок Цикл
лТаблица.ЗагрузитьКолонку(лДанные[лСчетчик-пНомерПервойКолонки], лСчетчик-пНомерПервойКолонки);
КонецЦикла;
лКнигаЭксел = Неопределено;
Возврат лТаблица;
КонецФункции
Функция ПодготовитьТаблицуЗначений(пНомерПервойКолонки, пВсегоКолонок, пНомерПервойСтроки, пВсегоСтрок)
лТаблица = Новый ТаблицаЗначений;
Для лСчетчик = пНомерПервойКолонки По пВсегоКолонок Цикл
лТаблица.Колонки.Добавить("Колонка" +(лСчетчик-пНомерПервойКолонки), Новый ОписаниеТипов("Строка"));
КонецЦикла;
Для лСчетчик = пНомерПервойСтроки По пВсегоСтрок Цикл
лНоваяСтрока = лТаблица.Добавить();
КонецЦикла;
Возврат лТаблица;
КонецФункции
|
Основной момент выделил жирным шрифтом. Такой способ чтения самый быстрый, но стоит учитывать, что так нельзя передать в 1С форматы и оформления ячеек. Если нужно разбирать сложный формат, то придется выполнять построчное считывание.
Если пример не понятен, то вам в тему 1С:Предприятие - Вопросы по платформам, в ней вас научат пользоваться поиском и стандартными обработками. |
Всего записей: 720 | Зарегистр. 25-02-2009 | Отправлено: 19:16 25-10-2014 | Исправлено: HePapyc, 19:22 25-10-2014 |
|
Программы » 
Варезник » 
