Надеемся, что материал для Вас будет полезен.
- Код: Выделить всё
Процедура ЗагрузитьИзXLS()
ИмяФайла = "H:\project.xls";
ЛистДанных = 1;
// Получаем лист данных
ОбъектExcelApplication = Новый COMОбъект("Excel.Application");
ТекущаяКнига = ОбъектExcelApplication.Application.Workbooks.Open(ИмяФайла);
ТекущийЛист = ТекущаяКнига.WorkSheets(ЛистДанных);
// Определяем количество строк в листе
КоличествоСтрок = ТекущийЛист.UsedRange.Rows;
Если ЛистДанных > 0 Тогда
Если КоличествоСтрок > 0 Тогда
НачатьТранзакцию();
// Удаление информации
// ...
//-- Чтение информации
Для Ном = 1 По КоличествоСтрок Цикл
ОбработкаПрерыванияПользователя();
Состояние("Обработка стр." + Ном + " из "+КоличествоСтрок);
// Загрузка значений текущей строки
Значение1 = СокрЛП(ТекущийЛист.Cells(Ном, 1).Value);
// Обработка значений текущей строки
// ...
КонецЦикла;
ЗафиксироватьТранзакцию();
Иначе
Сообщить("Нет данных");
КонецЕсли;
Иначе
Сообщить("Не найден лист");
КонецЕсли;
//Завершаем работу с Excel
ОбъектExcelApplication.Application.Quit();
КонецПроцедуры