Запись в Excel с помощью ADO

	СтрокаПодключения = "
	|Provider=Microsoft.Jet.OLEDB.4.0;
	//|Provider=Microsoft.ACE.OLEDB.12.0;
	|Data Source="+ИмяФайла+";
	|Extended Properties=""Excel 8.0;HDR=No;"";";
	
	Catalog = Новый COMОбъект("ADOX.Catalog");
	Catalog.ActiveConnection = СтрокаПодключения;
	
	Table = Новый COMОбъект("ADOX.Table");
	Table.Name = "Table";
	
	Column = Новый COMОбъект("ADOX.Column");
	Column.Name = "Код";
	Column.Type = 5;
	Table.Columns.Append(Column);
	
	Column = Новый COMОбъект("ADOX.Column");
	Column.Name = "Наименование";
	Column.Type = 202;
	Table.Columns.Append(Column);
	
	Catalog.Tables.Append(Table);
	
	Table = Неопределено;
	Catalog = Неопределено;

	Connection = Новый COMОбъект("ADODB.Connection");	
	Connection.Open(СтрокаПодключения);
	
	Command = Новый COMОбъект("ADODB.Command");
	Command.ActiveConnection = Connection;
	Command.CommandType = 1;
	
	Запрос = Новый Запрос("
	|ВЫБРАТЬ ПЕРВЫЕ 65500
	|	Номенклатура.Код,
	|	Номенклатура.Наименование
	|ИЗ
	|	Справочник.Номенклатура КАК Номенклатура");

	Результат = Запрос.Выполнить();
	Выборка = Результат.Выбрать();
	Пока Выборка.Следующий() Цикл
		Command.CommandText = "
	    |INS ERT IN TO [Table] VALUES ("+Выборка.Код+",'"+Выборка.Наименование+"')";
		Command.Execute();
	КонецЦикла; 
 		
    Command = Неопределено;
	Connection.Close();
    Connection = Неопределено;