Lparameters sFileName As String, dbf_file_name As String
******************************************************************************************
* Функция получает имя файла и пытается его прочесть и получить данные для импорта реестра
* Второй параметр имя курсора результата
*	Возвращаемые значения:
*   1  - Удачное завершение
*   0  - Файл прочли, но не нашли данных для импорта
* - 1  - Не установленно соединение с файлом
* - 2  - Не прочлась схема файла, не известны имена листов
* - 3  - Не создался курсорадаптер
* - 4  - Не создался объект АДО
******************************************************************************************

#Define adStateClosed      0  && Indicates that the object is closed.
#Define adStateOpen        1   && Indicates that the object is open.
#Define adStateConnecting  2   && Indicates that the object is connecting.
#Define adStateExecuting   4   && Indicates that the object is executing a command.
#Define adStateFetching    8   && Indicates that the rows of the object are being retrieved.

#Define adSchemaTables	 20 

Local ca As CursorAdapter
Local oCon As Variant, oRS As Variant, r As Variant
Local bFlag As Boolean, bRetValue As Long
bFlag = .T.
Try
	oCon  = Createobject("ADODB.Connection")
	r = Createobject("ADODB.Recordset")
Catch To oErr
	bRetValue = - 4  && Не создался объект АДО
Endtry
If Vartype(oCon)=='O' Then
	oCon.ConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source="' + sFileName + '";Mode=Share Deny None;Extended Properties="Excel 8.0;HDR=No;IMEX=1";Persist Security Info=False;'
	Try
		oCon.Open
	Catch To oErr
		Messagebox("Не установленно соединение с файлом " + sFileName + Chr( 13 ) + Chr( 10 ) + oErr.Message,  0 + 16 , "Импорт данных")
		bRetValue = - 1 
	Endtry
	If oCon.State = adStateOpen Then
*	Пытаемся прочесть схему документа и узнать сколько листов и как их имена
		Try
			r = oCon.OpenSchema(adSchemaTables)
		Catch To oErr
			Messagebox("Не прочитанна схема файла, нет имен листов." + Chr( 13 ) + Chr( 10 ) + oErr.Message,  0 + 16 , "Импорт данных")
			bFlag = .F.
			bRetValue = - 2  && Не прочлась схема
		Endtry

		If bFlag Then && Schema reads successfulle
			oRS = Createobject("ADODB.Recordset")
			If Vartype(oRS)=='O' Then
				oRS.ActiveConnection=oCon
				oRS.CursorLocation =  3   && adUseClient
				oRS.CursorType=  1   && adOpenKeyset
				oRS.LockType=  3   && adLockOptimistic

				ca = Createobject("CursorAdapter")
				If Vartype(ca)=='O' Then
					With ca
						.UseCursorSchema = .T.
* set data source type, SELECT command and cursor schema
						.Alias = "ca"
						.DataSourceType="ADO"
*						.SelectCmd="select F1, F2, F3, F4, F5, F6, F7, F8, F9, F10, F11, F12, F13, F14, F15, F16, F17, F18, F19, F20, F21 from [Лист1$]"
						.CursorSchema="F1 v(250), F2 v(250), F3 v(250), F4 v(250), F5 v(250), F6 v(250), F7 v(250), F8 v(250), F9 B(2), F10 B(2), F11 B(2), F12 v(250), F13 T, F14 T, F15 v(250), F16 v(250), F17 v(250), F18 v(250), F19 v(250), F20 B(2), F21 v(250), F22 v(250)"
*						.Tables =[Лист1$]
						.Datasource = oRS
					Endwith
					Do While !r.Eof
						With ca
							.Tables = r.Fields("TABLE_NAME").Value
							.SelectCmd = "select F1, F2, F3, F4, F5, F6, F7, F8, F9, F10, F11, F12, F13, F14, F15, F16, F17, F18, F19, F20, F21, F22 from [" + r.Fields("TABLE_NAME").Value + "]"
						Endwith
						If !ca.CursorFill() Then
							Aerror(laErrors)
*							Messagebox(laErrors[ 2 ])
							bFlag = .F.
*							? "Table name: " + r.Fields("TABLE_NAME").Value
*							? "Table type: " + r.Fields("TABLE_TYPE").Value
							r.MoveNext
						Else
*		Удачно прочли данные, можно двигатся дальше
							bFlag =.T.
							Exit
						Endif
					Enddo