Выгрузка в ексель (Вопрос)

Процедура КнопкаВыполнитьНажатие(Кнопка)
	 НомерЛиста         = 1;
   
    //Пытаемся подключиться к Excel
    Попытка
        Excel = новый COMОбъект("Excel.Application");
    Исключение
        Сообщить("Похоже, Excel на компьютере не установлен. Необходимо выполнить установку/переустановку Excel.");
        Возврат;
    КонецПопытки;     
   
    //Подключились удачно, открываем файл
    Excel.Workbooks.Open("C:\Documents and Settings\Программист-3\Рабочий стол\333.xlsx");   
    //Открываем необходимый лист
    Лист = Excel.Sheets(1);   
	ФайлСтрок   = Excel.Cells.CurrentRegion.Rows.Count;
	ФайлКолонок = Макс(Excel.Cells.CurrentRegion.Columns.Count, 19);
	Запрос = Новый Запрос(
	"ВЫБРАТЬ
	|	ХозрасчетныйДвиженияССубконто.Период КАК Период,
	|	ХозрасчетныйДвиженияССубконто.Регистратор КАК Регистратор,
	|	ХозрасчетныйДвиженияССубконто.СчетДт,
	|	ХозрасчетныйДвиженияССубконто.СубконтоДт1,
	|	ХозрасчетныйДвиженияССубконто.СубконтоДт2,
	|	ХозрасчетныйДвиженияССубконто.СубконтоДт3,
	|	ХозрасчетныйДвиженияССубконто.Сумма,
	|	ХозрасчетныйДвиженияССубконто.СчетКт,
	|	ХозрасчетныйДвиженияССубконто.СубконтоКт1,
	|	ХозрасчетныйДвиженияССубконто.ВидСубконтоКт2,
	|	ХозрасчетныйДвиженияССубконто.ВидСубконтоКт3,
	|	ХозрасчетныйДвиженияССубконто.КоличествоДт,
	|	ХозрасчетныйДвиженияССубконто.КоличествоКт,
	|	ХозрасчетныйДвиженияССубконто.СуммаНУКт
	|ИЗ
	|	РегистрБухгалтерии.Хозрасчетный.ДвиженияССубконто(
	|			&НачалоПериода,
	|			&КонецПериода,
	|			СчетДт.Родитель.Код = ""62""
	|					И СчетКт.Родитель.Код = ""90.01""
	|				ИЛИ СчетКт.Родитель.Код = ""41"",
	|			,
	|			) КАК ХозрасчетныйДвиженияССубконто
	|ГДЕ
	|	ХозрасчетныйДвиженияССубконто.Период МЕЖДУ &НачалоПериода И &КонецПериода
	|	И (ХозрасчетныйДвиженияССубконто.Регистратор ССЫЛКА Документ.СписаниеСРасчетногоСчета
	|			ИЛИ ХозрасчетныйДвиженияССубконто.Регистратор ССЫЛКА Документ.РеализацияТоваровУслуг
	|			ИЛИ ХозрасчетныйДвиженияССубконто.Регистратор ССЫЛКА Документ.ОтчетОРозничныхПродажах
	|			ИЛИ ХозрасчетныйДвиженияССубконто.Регистратор ССЫЛКА Документ.КорректировкаДолга
	|			ИЛИ ХозрасчетныйДвиженияССубконто.Регистратор ССЫЛКА Документ.ОперацияБух
	|			ИЛИ ХозрасчетныйДвиженияССубконто.Регистратор ССЫЛКА Документ.КорректировкаРеализации)
	|
	|УПОРЯДОЧИТЬ ПО
	|	Период,
	|	Регистратор");
	Запрос.УстановитьПараметр("НачалоПериода",НачалоМесяца('20170430000000'));
	Запрос.УстановитьПараметр("КонецПериода",КонецМесяца('20170630000000'));

	РезультатЗапроса = Запрос.Выполнить().Выбрать();
	a=1;
	Пока РезультатЗапроса.Следующий() Цикл			
				a = a + 1;
				Лист.Cells(a,1).NumberFormat = "@";
				Лист.Cells(a,1).value = Строка(РезультатЗапроса.Регистратор.УникальныйИдентификатор());				
				Лист.Cells(a,2).NumberFormat = "@";
				Лист.Cells(a,2).value = РезультатЗапроса.Регистратор.Номер;
				Лист.Cells(a,3).NumberFormat = "ДД.ММ.ГГГГ";
				Лист.Cells(a,3).value = РезультатЗапроса.Регистратор.Дата;
				Лист.Cells(a,4).NumberFormat = "@";
				Лист.Cells(a,4).value = Строка(РезультатЗапроса.Регистратор);
				Лист.Cells(a,5).NumberFormat = "@";
				Если (ТипЗнч(РезультатЗапроса.Регистратор) <> Тип("ДокументСсылка.ОтчетОРозничныхПродажах")) Тогда
Вот здесь -------->		Лист.Cells(a,5).value = РезультатЗапроса.СубконтоДт1.НаименованиеПолное;
					Лист.Cells(a,6).NumberFormat = "@";
					Лист.Cells(a,6).value = РезультатЗапроса.СубконтоДт1.ИНН;
					Лист.Cells(a,7).NumberFormat = "@";
					Лист.Cells(a,7).value = РезультатЗапроса.СубконтоДт1.КПП;
					Лист.Cells(a,8).NumberFormat = "@";
					Лист.Cells(a,8).value = Строка(РезультатЗапроса.СубконтоДт2.УникальныйИдентификатор());
					Лист.Cells(a,9).NumberFormat = "@";
					Лист.Cells(a,9).value = РезультатЗапроса.СубконтоДт2.Наименование;
				КонецЕсли;
				Лист.Cells(a,10).NumberFormat = "0,00";
				Лист.Cells(a,10).value = РезультатЗапроса.СуммаНУКт;
				Лист.Cells(a,12).NumberFormat = "ДД.ММ.ГГГГ";
				Лист.Cells(a,12).value = НачалоМесяца(РезультатЗапроса.Регистратор.Дата);
				Лист.Cells(a,13).NumberFormat = "@";
				Лист.Cells(a,13).value = РезультатЗапроса.СчетКт.Код;
				Лист.Cells(a,14).NumberFormat = "@";
				Лист.Cells(a,14).value = РезультатЗапроса.СчетДт.Код;
				
			КонецЦикла;
			
			
			
			Excel.Save();
			
	
Excel.quit();			
КонецПроцедуры