//проверим что файл существует ФайлНаДиске = Новый Файл(Файл); Если Не ФайлНаДиске.Существует() Тогда Предупреждение("Файл не найден!"); Возврат; КонецЕсли; Ex = ПолучитьТаблицуExcel(Файл); СтруктураДанных = Новый Структура("Колонка1, Колонка2, Колонка3, Колонка4, Колонка5, Колонка6"); НС = 1; Пока Истина Цикл СтруктураДанных.Колонка1 = СокрЛП(Ex.Cells(НС,1).Value); СтруктураДанных.Колонка2 = СокрЛП(Ex.Cells(НС,2).Value); СтруктураДанных.Колонка3 = СокрЛП(Ex.Cells(НС,3).Value); СтруктураДанных.Колонка4 = СокрЛП(Ex.Cells(НС,4).Value); СтруктураДанных.Колонка5 = СокрЛП(Ex.Cells(НС,5).Value); СтруктураДанных.Колонка6 = СокрЛП(Ex.Cells(НС,6).Value); Если СтруктураДанных.Колонка1 = "" Тогда Прервать; КонецЕсли; #Если Клиент Тогда Состояние("Номер обработанной строки: " + НС); #КонецЕсли НоваяСтрока = Данные.Добавить(); ЗаполнитьЗначенияСвойств(НоваяСтрока, СтруктураДанных); НС = НС + 1; КонецЦикла; Ex.Quit();
Индикатор = ЭлементыФормы.ИндикаторПеребора; Индикатор.МаксимальноеЗначение = ВсегоКоличество; // <- ВОТ ТУТ НАДО УКАЗАТЬ КОЛИЧЕСТВО Индикатор.Значение = 0; Пока Истина Цикл Индикатор.Значение = Индикатор.Значение + 1; // .... КонецЦикла;
Индикатор = ЭлементыФормы.Индикатор; Индикатор.МаксимальноеЗначение = ТП.Количество(); Индикатор.Значение = 0; Для Каждого Строчка Из ТП Цикл Индикатор.Значение = Индикатор.Значение + 1; НовыйЭлемент = Справочники.Адреса.СоздатьЭлемент(); НовыйЭлемент.Район = Строчка.Колонка1; НовыйЭлемент.РУ = Строчка.Колонка2; НовыйЭлемент.Наименование = Строчка.Колонка3; НовыйЭлемент.Дом = Строчка.Колонка4; НовыйЭлемент.Емкости = Строчка.Колонка5; НовыйЭлемент.Головки = Строчка.Колонка6; НовыйЭлемент.Записать(); КонецЦикла;