Как создать столько документов сколько есть в экселе данных

МассивКолонок = Новый ТаблицаЗначений;
	МассивКолонок.Колонки.Добавить("НомерКолонки");
	МассивКолонок.Колонки.Добавить("НазваниеКолонки");
	Для КолонкаОтсчета = 1 по КоличествоКолонок Цикл
		ИмяКолонки = Excel.Cells(1, КолонкаОтсчета).Text;
		ИмяБезПробелов = СтрЗаменить(ИмяКолонки," ",""); 
		Если НЕ НаличиеРеквизитаТЧ(ИмяБезПробелов, Метаданные.Документы.ПоступлениеТоваровУслуг, "Товары") Тогда
		Иначе	
			НовСтрока = МассивКолонок.Добавить();	
			НовСтрока.НомерКолонки = КолонкаОтсчета;
			НовСтрока.НазваниеКолонки = ИмяБезПробелов;
		КонецЕсли;
	КонецЦикла;
	Если МассивКолонок.Количество() <> 0 и МассивКолонок.НайтиСтроки(Новый Структура("НазваниеКолонки", "Номенклатура")).Количество() <> 0 Тогда    
			 Для каждого СтрокаМассив из МассивКолонок Цикл
			 Для СтрокаОтсчета = 2 по КоличествоСтрок Цикл
			 ТекущееЗначение = Excel.Cells(СтрокаОтсчета, СтрокаМассив.НомерКолонки).Value;
		НовыйДокумент = Документы.ПоступлениеТоваровУслуг.СоздатьДокумент();
		НовыйДокумент.Дата = ТекущаяДата();
		НовыйДокумент.Организация = Объект.Организация;
		НовыйДокумент.Склад = Объект.Склад;
		НовыйДокумент.ВидОперации = Объект.ВидОперации;
		НовыйДокумент.Контрагент = ТекущееЗначение;
		НаименованиеКонтрагента = Объект.Контрагент.Наименование;
		Для СтрокаОтсчета = 2 по КоличествоСтрок Цикл
		Если НаименованиеКонтрагента <> Excel.Cells(СтрокаОтсчета, 23).Text Тогда 
       Продолжить;
КонецЕсли;

НСтр = НовыйДокумент.Товары.Добавить();
				Для каждого СтрокаМассив из МассивКолонок Цикл 
				ТекущееЗначение = Excel.Cells(СтрокаОтсчета, СтрокаМассив.НомерКолонки).Value;
				ИмяКолонки = Excel.Cells(1, СтрокаМассив.НомерКолонки).Text;
				Значение = Excel.Cells(СтрокаОтсчета, 6).Value;								
				// Заполнение строки данными
					Если ИмяКолонки = "Номенклатура" Тогда
						НСтр.Номенклатура = Объект.Номенклатура;
					ИначеЕсли ИмяКолонки = "Количество" Тогда
						НСтр.Количество = ТекущееЗначение;
					 ИначеЕсли ИмяКолонки = "Цена" Тогда
                        НСтр.Цена = Значение;
					ИначеЕсли ИмяКолонки = "Сумма" Тогда
						НСтр.Сумма = НСтр.Количество*НСтр.Цена;
						ИначеЕсли ИмяКолонки = "Ставка НДС" Тогда
						НСтр.СтавкаНДС = Перечисления.СтавкиНДС.БезНДС;
						ИначеЕсли ИмяКолонки = "Счет учета" Тогда
						НСтр.СчетУчета = ПланыСчетов.Хозрасчетный.СырьеИМатериалы;
				КонецЕсли;
					КонецЦикла;
				КонецЦикла;
						// Запись и проведение документа
			Для СтрокаОтсчета = 2 по КоличествоСтрок Цикл
		НовыйДокумент.Записать(РежимЗаписиДокумента.Запись);		
	КонецЦикла;
КонецЦикла;
КонецЦикла;



		Сообщить("Создан и заполнен документ " + Строка(НовыйДокумент));
	Иначе
		Сообщить("В Excel файле не достаточно данных для заполнения документа!");
		
	КонецЕсли;
	
			Excel.DisplayAlerts = 0; 
	Excel.Quit();
	Excel.DisplayAlerts = 1;