Общее·количество·просмотров·страницы

среда, 27 ноября 2013 г.

Чтение данные из Excel в 1С

Несколько команд для чтения данных из Excel файла:
//Доступ к документу осуществим посредством OLE
 Попытка
  Excel = Новый COMОбъект("Excel.Application");
 Исключение
  Сообщить(ОписаниеОшибки() + " Программа MS Excel не установлена!");
  Возврат 0;
 КонецПопытки; // Проверка на наличие Excel

 //Откроем книгу
 Книга = Excel.WorkBooks.Open(СтрИмяФайла);
 //Берем 1 лист
 Лист = Книга.WorkSheets(1);
 //Определим количество строк в документе
 КоличествоСтрокДокумента = Лист.Cells.CurrentRegion.Rows.Count;
//Создадим цикл для прохода по всем строкам таблицы
 Для Индекс = 1 По КоличествоСтрокДокумента Цикл
 
  //1 - колонка артикул, 2 - колонка количество
  ЗначениеАртикул = Лист.Cells(Индекс,1).Value; //Получим значение артикула
 ЗначениеКоличество = Число(Лист.Cells(Индекс,2).Value); 
 КонецЦикла;

Комментариев нет:

Отправить комментарий