Процедура ЗагрузитьФайл()

	Перем Application, Workbook, Worksheet, Cell;
	Перем fTransaction;
	
	Try   

		Application = CreateObject("Excel.Application");
		Workbook = Application.Workbooks.Open(ПолноеИмяФайла);
		Worksheet = Workbook.Worksheets("Лист1");
	
		BeginTransaction();
		
	    	CountRows = Worksheet.UsedRange.Rows.Count;
    		For i =  1  To CountRows Do
			Cell = Worksheet.UsedRange.Item(i,  2 );
		        	Code = Cell.Text;
		EndDo;
	
		Workbook.Close();
		Application.Quit();
		CommitTransaction();
	Except
		DoMessageBox(GetErrorDescription(), 7 );
		Message(GetErrorDescription(),"!!!");
		
		if (ValueType(Application) =  100 ) Then
			Application.Quit();
			Message("Excel.Application Quit.", "I");
		EndIf;
		
		RollBackTransaction();
		
	EndTry;
	
	Cell		= GetEmptyValue();
	Worksheet	= GetEmptyValue();
	Workbook	= GetEmptyValue();
	Application	= GetEmptyValue();

КонецПроцедуры