Зависает 1С при загрузке из Excel

Процедура КнопкаВыполнитьНажатие(Кнопка)
	
		Индекс = 0;
		Пока Индекс <> Таблица.Количество() Цикл				
			
					ПоискРаботника = Справочники.Работники.НайтиПоНаименованию(Таблица.Получить(Индекс).Фио);
					Если Таблица.Получить(Индекс).Фио <> ПоискРаботника.Наименование  Тогда
						Сообщить("нема");									
							ДатаЕксель 							= Таблица.Получить(Индекс).Датанародження;
							СтрДата								= СтрЗаменить(ДатаЕксель, "." , "");
							
							Год									= Прав(СтрДата,4);
							День								= Лев(СтрДата,2);
							Месяц								= Сред(СтрДата,3,2);
							СтрокаДаты							= "" + Год + Месяц + День;
							ДатаРоботника						= Дата(СтрокаДаты);
					
							НовыйЭлемент 						= Справочники.Работники.СоздатьЭлемент();
							НовыйЭлемент.Наименование 			= Таблица.Получить(Индекс).Фио;
							НовыйЭлемент.Адрес 					= Таблица.Получить(Индекс).Адреса;
							НовыйЭлемент.ДатаРождения 			= ДатаРоботника;
							
						Если Таблица.Получить(Индекс).Офнеоф = "0" Тогда
								
							НовыйЭлемент.Официально 			= Ложь;
							
						Иначе 
							НовыйЭлемент.Официально 			= Истина;
						КонецЕсли;
						
							НовыйЭлемент.Должность 				= Справочники.Должности.НайтиПоНаименованию(Таблица.Получить(Индекс).Должность);
							
						Если НовыйЭлемент.Должность 			= Справочники.Должности.ПустаяСсылка() Тогда
								
							НовыйЭлементДолжность 				= Справочники.Должности.СоздатьЭлемент();
							НовыйЭлементДолжность.Наименование 	= Таблица.Получить(Индекс).Должность;
							НовыйЭлементДолжность.Записать();
							
						КонецЕсли;
							НовыйЭлемент.Должность				= Справочники.Должности.НайтиПоНаименованию(Таблица.Получить(Индекс).Должность);
							
							НовыйЭлемент.Записать();
					Иначе Продолжить;
					КонецЕсли;
		Индекс = Индекс + 1;
	КонецЦикла;
КонецПроцедуры