Ошибка при сохранении в Ексель

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

	РезультатЗапроса = Запрос.Выполнить().Выбрать();
	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 = "@";
				Если (РезультатЗапроса.СчетДт.Код = "20.01") Тогда
					//Лист.Cells(a,5).value = Строка(РезультатЗапроса.СубконтоДт3.Код);
				КонецЕсли;
				Лист.Cells(a,6).NumberFormat = "ДД.ММ.ГГГГ";
				Лист.Cells(a,6).value = НачалоМесяца(РезультатЗапроса.Регистратор.Дата);
				Лист.Cells(a,7).NumberFormat = "@";
				//Лист.Cells(a,7).value = РезультатЗапроса.ОсновноеСредство.УИД;
				Лист.Cells(a,8).NumberFormat = "@";
                Лист.Cells(a,9).NumberFormat = "@";
                Лист.Cells(a,10).NumberFormat = "0,00";
                Лист.Cells(a,10).value = РезультатЗапроса.Сумма;
				Лист.Cells(a,11).NumberFormat = "@";
				Если (РезультатЗапроса.СуммаНУКт > 0) ИЛИ (РезультатЗапроса.СуммаНУДт > 0) Тогда
					Лист.Cells(a,11).value = "Да";
				КонецЕсли;
				Лист.Cells(a,12).NumberFormat = "@";
				Лист.Cells(a,12).value = РезультатЗапроса.СчетДт.Код;
				Лист.Cells(a,14).NumberFormat = "@";
                Лист.Cells(a,14).value = РезультатЗапроса.ОсновноеСредство.НаименованиеПолное;
                Лист.Cells(a,15).NumberFormat = "@";
				Лист.Cells(a,15).value = Строка(РезультатЗапроса.ОсновноеСредство.АмортизационнаяГруппа);
				Лист.Cells(a,16).NumberFormat = "ДД.ММ.ГГГГ";
				Лист.Cells(a,16).value = РезультатЗапроса.Период1;
				Лист.Cells(a,17).NumberFormat = "0,00";
				Лист.Cells(a,17).value = РезультатЗапроса.ПервоначальнаяСтоимость;			
	КонецЦикла;
		
				
		Excel.ScreenUpdating = True;					
		Excel.ActiveWorkbook.Save();
			
	
Excel.quit();			
КонецПроцедуры