Несколько команд для чтения данных из 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);
КонецЦикла;
//Доступ к документу осуществим посредством 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);
КонецЦикла;
Комментариев нет:
Отправить комментарий