СоединениеXLS = Новый ComObject("ADODB.Connection");
	Попытка
		СоединениеXLS.Provider="Microsoft.Jet.OLEDB.4.0";
		//http://infostart.ru/public/17039/
		СоединениеXLS.Properties("Data Source").Value="C:\1.xls";
		СоединениеXLS.Properties("Persist Security info").Value="False";
		СоединениеXLS.Properties("Extended Properties").Value="Excel 8.0;HDR=No;IMEX=1";
		СоединениеXLS.Mode = 3;
		СоединениеXLS.Open();
	Исключение                                                          
		Сообщить(ОписаниеОшибки());
		возврат;
	КонецПопытки;
	
	Сообщить ("Выполнение запроса...");
	ЗаписиXLS = Новый ComObject("ADODB.RecordSet");
	ЗаписиXLS.CursorType = 3;
	ЗаписиXLS.LockType = 2;
	ЗаписиXLS.CacheSize = 1000;
	ЗаписиXLS.CursorLocation=3;
	ЗаписиXLS.ActiveConnection = СоединениеXLS;

	//ЗаписиXLS.Open("UPDATE [Лист1$] SET F2 = 'XYZ' WHERE F1 = '111'");
	ЗаписиXLS.Open("Select * from [Лист1$]");

	Сообщить("Количество строк: "+ЗаписиXLS.RecordCount+"; Количество колонок: "+ЗаписиXLS.Fields.Count);

	Если ЗаписиXLS.EOF и ЗаписиXLS.BOF тогда Сообщить("Данные отсуствуют"); конецесли;

	 //ЗаписиXLS.Resync();
	
	Пока ЗаписиXLS.EOF=0 Цикл    
		Для Сч = 0 по ЗаписиXLS.Fields.Count-1 цикл
			сообщить(" "+ЗаписиXLS.Fields.Item(Сч).Name+":"+ЗаписиXLS.Fields(Сч).Value);
			//ЗаписиXLS.Fields(Сч).Value="33";
		конеццикла;
		ЗаписиXLS.MoveNext();
	КонецЦикла; 
	ЗаписиXLS.Close();   //objRecordset.Save "C:\test.xml", 1
	СоединениеXLS.Close();