Часто нужно прочитать информацию из Excel . Ниже пример простой процедуры.
&НаКлиенте
Процедура ПрочитатьФайл(ИмяФайла)
ВыбранныйФайл = Новый Файл(ИмяФайла);
Попытка
Если НЕ ВыбранныйФайл.Существует() Тогда
ВызватьИсключение("Файл не существует " + ИмяФайла);
КонецЕсли;
Excel = Новый COMОбъект("Excel.Application");
Excel.WorkBooks.Open(ИмяФайла);
Excel.Sheets(1).Select(); // Выбрали первый лист
Версия = Лев(Excel.Version,Найти(Excel.Version,".")-1);
Если Версия = "8" тогда
ФайлСтрок = Excel.Cells.CurrentRegion.Rows.Count;
ФайлКолонок = Макс(Excel.Cells.CurrentRegion.Columns.Count, 13);
Иначе
ФайлСтрок = Excel.Cells(1,1).SpecialCells(11).Row;
ФайлКолонок = Excel.Cells(1,1).SpecialCells(11).Column;
Конецесли;
//В цикле перебираем строки файла
Для й = 1 по ФайлСтрок цикл
//Выводим пользователю информацию
Состояние("Считываем строки из файла (" + й + " из " + ФайлСтрок + ")", Цел(й/ФайлСтрок*100) , Excel.Cells(й, 1).Text,БиблиотекаКартинок.НайтиВСодержании);
//Считываем текст из ячейки
ТекстЯчейки = Excel.Cells(й, 1).Text;
//Считываем значение ячейки
ЗначениеЯчейки = Excel.Cells(й, 1).Value;
КонецЦикла;
Исключение
Сообщить(ОписаниеОшибки());
КонецПопытки;
Если НЕ Excel = Неопределено тогда
Excel.DisplayAlerts = 0;
Excel.Quit();
Excel.DisplayAlerts = 1;
КонецЕсли;
КонецПроцедуры