Код

ФЕШ	= СоздатьОбъект("ADODB.Connection"); //шаблон
РС	= СоздатьОбъект("ADODB.RecordSet");
Для Сч=3 По 4 Цикл
	ИмяФайла=ПутьКаталога+"r"+Сч+".xls";
	ФС.КопироватьФайл(ПутьКаталога+"r5.xls",ИмяФайла,0);
	Если ADOX=1 Тогда
		СтрокаПодключения = "Provider=Microsoft.Jet.OLEDB.4.0;Data source="+СокрЛП(ИмяФайла)+";Extended Properties=""Excel 8.0;HDR=No;IMEX=1""";
							// IMEX=1 tell the driver to always read "intermixed" data column as text
		ФЕШ.ConnectionString=СтрокаПодключения;
		ФЕШ.Mode=3;
		ФЕШ.Open();
		РС.ActiveConnection = ФЕШ;
		РС.CursorType=3;
		РС.LockType=3;
		ТекстЗапроса = "Select * From [Лист1$]";
		РС.Source=ТекстЗапроса;
		РС.Open();
		Сч2=0;
		Сообщить(РС.RecordCount());
		Пока РС.EOF()=0 Цикл  
			Сч2=Сч2+1;
			РКод=СокрЛП(РС.Fields(0).Value);
			Если ПустаяСтрока(РКод)=1 Тогда
				РС.MoveNext();
				Продолжить;
			КонецЕсли;
			РТМЦ=глДатьЭлемент(РКод);
			Сообщить(РКод);
			Сообщить(РТМЦ);
			рЦена=Окр(ДатьОтпускнуюЦенуТМЦ(РТМЦ,"Цена"+Сч,ТекущаяДата())*РКурс,2);
			Если глТМЦПринадлежитКатегории(РТМЦ,КатСкидка10)=1 Тогда
				рЦена=Окр(0.9*рЦена,2);
			КонецЕсли;
			РС.Fields(3-1).Value=рЦена; //Колонка с ценой
			Состояние(Сч2);
			РС.MoveNext();
		КонецЦикла;
		//ФЕШ.Update();
		РС.Close();
		ФЕШ.Close();

		//ФЕШ=0;
	КонецЕсли;
КонецЦикла; 

Код

	Сообщить("r5.xls :"+ТекущееВремя());
Попытка
	RecordSet	= СоздатьОбъект("ADODB.RecordSet");
	Connection	= CreateObject("ADODB.Connection");
	Command		= CreateObject("ADODB.Command");
	Connection.CursorLocation = 3;
	RecordSet.CursorType = 3;
	RecordSet.LockType = 2;
Исключение
	Сообщить(ОписаниеОшибки(), "!!!");
	СтатусВозврата(0);
	Возврат;
КонецПопытки;
//Ком	= СоздатьОбъект("ADODB.Command");
Для Сч=3 По 4 Цикл
	ИмяФайла=ПутьКаталога+"r"+Сч+".xls";
	Сообщить(ИмяФайла);
	ФС.КопироватьФайл(ПутьКаталога+"r5.xls",ИмяФайла,0);
	СтрокаПодключения = "Provider=Microsoft.Jet.OLEDB.4.0;Data source="+СокрЛП(ИмяФайла)+";Extended Properties=""Excel 8.0;HDR=No;IMEX=1""";
						// IMEX=1 tell the driver to always read "intermixed" data column as text
	Connection.Open(СтрокаПодключения);
	Command.ActiveConnection=Connection;
	Command.CommandText="Select * From [Лист1$]";
	RecordSet=Command.Execute;
	Сч2=0;
	Сообщить(RecordSet.RecordCount());
	Пока RecordSet.EOF()=0 Цикл  
		Сч2=Сч2+1;
		РКод=СокрЛП(RecordSet.Fields(0).Value);
		Если (ПустаяСтрока(РКод)=1) или (Сч2<=3) Тогда
			RecordSet.MoveNext();
			Продолжить;
		КонецЕсли;
		РТМЦ=глДатьЭлемент(РКод);
		Сообщить(РКод);
		Сообщить(РТМЦ);
		Сообщить(Сч2);
		рЦена=Окр(ДатьОтпускнуюЦенуТМЦ(РТМЦ,"Цена"+Сч,ТекущаяДата())*РКурс,2);
		Если глТМЦПринадлежитКатегории(РТМЦ,КатСкидка10)=1 Тогда
			рЦена=Окр(0.9*рЦена,2);
		КонецЕсли;
		RecordSet.Fields(3-1).Value=СокрЛП(рЦена); //Колонка с ценой
		Состояние(Сч2);
		RecordSet.MoveNext();
	КонецЦикла;
	//РС.UpdateBatch();
	//ФЕШ.Update();
	RecordSet.Close();
	Connection.Close();
КонецЦикла;