Заполнение табличной части документа "Установка цен номенклатуры".

Процедура Инициализировать(Объект, ИмяТабличнойЧасти = Неопределено , ТабличноеПоле = Неопределено  ) Экспорт;
	
	ТабличнаяЧасть = Объект.Товары;
	ТабличнаяЧасть.Очистить();
	
	ДиалогВыбора = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
	ДиалогВыбора.Заголовок = "Выберите файл";
	Фильтр ="(*.xls)|*.xlsx";
	ДиалогВыбора.Фильтр = Фильтр;
	
	Если ДиалогВыбора.Выбрать() Тогда
		ИмяФайла = ДиалогВыбора.ПолноеИмяФайла;
	КонецЕсли;	
	
	//подключаемся к эксель
	Попытка
		Excel = Новый COMОбъект("Excel.Application");
		Excel.WorkBooks.Open(ИмяФайла);
		Состояние("Обработка файла Microsoft Excel...");
	Исключение
		Сообщить("Ошибка при открытии файла с помощью Excel! Загрузка не будет произведена!");
		Сообщить(ОписаниеОшибки());
		Возврат;
	КонецПопытки;
	
	Попытка
		//Открываем необходимый лист
		Excel.Sheets(1).Select(); // лист 1, по умолчанию
	Исключение
		//Закрываем Excel
		Excel.ActiveWorkbook.Close();
		Excel = 0;
		Сообщить("Файл "+Строка(ИмяФайла)+" не соответствует необходимому формату! Первый лист не найден!");
		ОтменитьТранзакцию();
		Возврат;
	КонецПопытки;
	
	//Получим количество строк и колонок.
	//В разных версиях Excel получаются по-разному, поэтому сначала определим версию Excel
	Версия = Лев(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;
	Конецесли;
	
	// Проверка корректности заполнения колонок
	// Имена колонок в Excel файле должны совпадать с именами реквизитов табличной части, в которую загружаются данные
	// Переменная МассивКолонок содержит список номеров колонок, которые будут перегружаться
	
	МассивКолонок = Новый ТаблицаЗначений;
	МассивКолонок.Колонки.Добавить("НомерКолонки");
	МассивКолонок.Колонки.Добавить("НазваниеКолонки");
	
	Для КолонкаОтсчета = 1 по КоличествоКолонок Цикл
		ИмяКолонки = Excel.Cells(1, КолонкаОтсчета).Text;
		
		НовСтрока = МассивКолонок.Добавить();
		НовСтрока.НомерКолонки = КолонкаОтсчета;
		НовСтрока.НазваниеКолонки = ИмяКолонки;
		
	КонецЦикла;	
	
	// Если есть колонки для загрузки
	// и есть колонка "Номенклатура, которая является обязательным к заполнению реквизитом
	
	Если МассивКолонок.Количество() <> 0 Тогда
		
		// Заполнение табличной части "Товары"
		// Переменная СтрокаОтсчета - номер строки в Excel, с которой начинается заполнение
		Для СтрокаОтсчета = 2 по КоличествоСтрок Цикл
			
			НСтр = ТабличнаяЧасть.Добавить();
			
			Для каждого СтрокаМассив из МассивКолонок Цикл
				
				ОбработкаПрерыванияПользователя();
				ТекущееЗначение = Excel.Cells(СтрокаОтсчета, СтрокаМассив.НомерКолонки).Text;			
				// Получение имени колонки
				ИмяКолонки = Excel.Cells(1, СтрокаМассив.НомерКолонки).Text;
				
				// Заполнение строки данными
				Если ИмяКолонки = "Наименование " Тогда
					
					НСтр.Номенклатура = Справочники.Номенклатура.НайтиПоНаименованию(ТекущееЗначение, Истина);
					
				ИначеЕсли ИмяКолонки = "цена" Тогда
					
					НСтр.Цена = ТекущееЗначение;
					
				ИначеЕсли ИмяКолонки = "Код" Тогда					
				КонецЕсли;
				
			КонецЦикла;
			
		КонецЦикла;
		
	Иначе
		
		Сообщить("В Excel файле не достаточно данных для заполнения документа!");
		
	КонецЕсли;		
	
	Excel.DisplayAlerts = 0; 
	Excel.Quit();
	Excel.DisplayAlerts = 1;	
	
	
КонецПроцедуры