v8: Помогите доделать последнюю часть обработки, запутался совсем

 Процедура ИмяФайлаНачалоВыбора(Элемент, СтандартнаяОбработка)

	 	 // Отключение стандартной обработки

	 СтандартнаяОбработка = Ложь;

	 

	 // Выбор файла Microsoft Excel

	 ВыборФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);

	 ВыборФайла.Фильтр = "Документ Excel (*.xls)|*.xls";

	 ВыборФайла.ПроверятьСуществованиеФайла = Истина;

	 ВыборФайла.ПолноеИмяФайла = ИмяФайла;

	 Выбор = ВыборФайла.Выбрать();

	 Если НЕ Выбор Тогда

		 

		 Возврат;

		 

	 КонецЕсли;

	 

	 ИмяФайла = ВыборФайла.ВыбранныеФайлы[0];



КонецПроцедуры



Процедура ЧтениеXLSФайла(Элемент)

	

	Если ПустаяСтрока(ИмяФайла) Тогда

		Предупреждение("Для запуска обработки необходимо предварительно выбрать файл Microsoft Excel.");

		Возврат;

	КонецЕсли;

	

	Попытка

	 	// Загрузка Microsoft Excel

	 	Состояние("Загрузка Microsoft Excel...");

	 	ExcelПриложение = Новый COMОбъект("Excel.Application");

	Исключение

	 	Сообщить("Ошибка при загрузке Microsoft Excel." + Символы.ПС + ОписаниеОшибки(), СтатусСообщения.Внимание);

	 	Возврат;

	КонецПопытки;

	

	Попытка

		// Открытие файла Microsoft Excel

		Состояние("Открытие файла Microsoft Excel...");

		ExcelФайл = ExcelПриложение.WorkBooks.Open(ИмяФайла);

	Исключение

		Сообщить("Ошибка открытия файла Microsoft Excel." + ИмяФайла + Символы.ПС + ОписаниеОшибки(), СтатусСообщения.Внимание);

	КонецПопытки;

	

	Попытка

		// Обработка файла Microsoft Excel

		Состояние("Обработка файла Microsoft Excel...");

		// Читаем данные первого листа книги

		ExcelЛист = ExcelФайл.Sheets(1);

		

		// Определить количество строк и колонок выбранного листа книги Excel

		xlCellTypeLastCell = 11;

		ExcelПоследняяСтрока = ExcelЛист.Cells.SpecialCells(xlCellTypeLastCell).Row;

		ExcelПоследняяКолонка = ExcelЛист.Cells.SpecialCells(xlCellTypeLastCell).Column;

	Исключение

		Сообщить("Ошибка открытия листа №1 Microsoft Excel." + Символы.ПС + ОписаниеОшибки(), СтатусСообщения.Внимание);

		// Закрыть COM соединение для экономии памяти

	 	ExcelПриложение.Quit();

	КонецПопытки;

	

	// Создание описателя типов для таблицы значений

	КЧ = Новый КвалификаторыЧисла(15,2);

	КС = Новый КвалификаторыСтроки(50);

	Массив = Новый Массив;

	Массив.Добавить(Тип("Строка"));

	ОписаниеТиповС = Новый ОписаниеТипов(Массив, , КС);

	Массив.Очистить();

	Массив.Добавить(Тип("Число"));

	ОписаниеТиповЧ = Новый ОписаниеТипов(Массив, , ,КЧ);

	

	// Очистить предыдущие значения

	ТаблицаДокумента.Очистить();

	ТаблицаДокумента.Колонки.Очистить();

	

	// Создать колонки табличного документа

	ТаблицаДокумента.Колонки.Добавить(ExcelЛист.Cells(1, 1).Value,ОписаниеТиповС,ExcelЛист.Cells(1, 1).Value,50);

    ТаблицаДокумента.Колонки.Добавить(ExcelЛист.Cells(1, 2).Value,ОписаниеТиповС,ExcelЛист.Cells(1, 2).Value,50);

    ТаблицаДокумента.Колонки.Добавить(ExcelЛист.Cells(1, 3).Value,ОписаниеТиповС,ExcelЛист.Cells(1, 3).Value,50);

    ТаблицаДокумента.Колонки.Добавить(ExcelЛист.Cells(1, 4).Value,ОписаниеТиповЧ,ExcelЛист.Cells(1, 4).Value,50);

	

	// Последовательное чтение строк с выбранного листа

	Для Строка = 2 По ExcelПоследняяСтрока Цикл

				

		// Обработка нажатия Ctrl + Break

		ОбработкаПрерыванияПользователя();

		

		// Добавить данные в табличную часть экранной формы

		Стр=ТаблицаДокумента.Добавить();

		Попытка

			Стр[0]           = ExcelЛист.Cells(Строка, 1).Value;

            Стр[1]			 = ExcelЛист.Cells(Строка, 2).Value;

            Стр[2]           = ExcelЛист.Cells(Строка, 3).Value;

            Стр[3]           = ExcelЛист.Cells(Строка, 4).Value;

		Исключение

			// Не редко происходит ошибка конвертации отдельной ячейки документа

			Сообщить("Ошибка чтения строки файла Microsoft Excel." + Строка + Символы.ПС + ОписаниеОшибки(), СтатусСообщения.Внимание);

		КонецПопытки;

		// Отобразить информацию о ходе выполнения обработки

		Состояние("Обработка файла Microsoft Excel : "

		 + "строка " + Строка + " из " + ExcelПоследняяСтрока);

		 

	 КонецЦикла;

	 

	 // Закрыть COM соединение для экономии памяти

	 ExcelПриложение.Quit();

	 

	 // Отобразить результаты загрузки в форме элемента

	 ЭлементыФормы.ТаблицаДокумента.Значение = ТаблицаДокумента;

	 ЭлементыФормы.ТаблицаДокумента.СоздатьКолонки();

	 

 КонецПроцедуры // ЧтениеXLSФайла(Элемент)



 Процедура ОсновныеДействияФормыСоздать(Кнопка)

	  //ExcelЛист = ExcelФайл.Sheets(1);

	  //ExcelФайл = ExcelПриложение.WorkBooks.Open(ИмяФайла);

	  //	  Наименование = ExcelЛист.Cells(Строка, "Стр[1]").Value;

	  //  	Элем = Справочники.МестаХранения.НайтиПоНаименованию("Стр[1]");

	  //  	НовЭл.Владелец = ?(Элем = Неопределено, Справочники.МестаХранения.ПустаяСсылка(), Элем);

	 

	 

	  Для Каждого Стр Из ТаблицаДокумента Цикл

	    НовЭл = Справочники.МестаХранения.СоздатьЭлемент();

	    НовЭл.Наименование = Стр[2];

	    НовЭл.Код = Стр[0];

	    НовЭл.Владелец = Стр[0];//Справочники.Склады.НайтиПоКоду("СОС-01000");

	    НовЭл.Записать();

	  КонецЦикла;

	 

	

 КонецПроцедуры

   

 НовЭл.Владелец = Стр[1];   

 ]НовЭл.Владелец=Справочники.Склады.НайтиПоНаименованию("Стр[1]");