SET STEP ON 

cAsc=[ABCDEFGHIJKLMNOPQRSTUVWXYZ] &&& to convert # int letters :-)

#INCLUDE excel10.h	
#define LF CHR( 13 )+CHR( 10 )


LOCAL oExcel as Excel.Application && to make intellisense happy
lcFileName=[c:\vapps\vcpr3\temp\xxx.xlsx]

oExcel=CREATEOBJECT("Excel.Application")
oExcel.visible= .T.
oExcel.DisplayAlerts = .F.

oW=oExcel.Workbooks.Open(lcFileName)
* select sheet  3 
ow.Worksheets[ 3 ].select



nRows	= oExcel.ActiveSheet.UsedRange.Rows.Count
nCols	= oExcel.ActiveSheet.UsedRange.Columns.Count

cLastCol=substr(cAsc,nCols, 1 ) &&& there are more sophisticated ways for wider sheets then A-Z
xx= [create cursor cc1 (]

FOR I =  1  TO nCols
	xx = xx + "F"+TRANSFORM(m.i)+" C(50),"
ENDFOR
xx=LEFT(xx,LEN(xx)- 1 )+[)]
&& create a cursor
&xx 

&& get the range
oRange = oExcel.ActiveSheet.Range("A1:" + cLastCol+TRANSFORM(nRows)  )
* fetch teh data into an array
la1=oRange.value 

SELECT cc1
APPEND FROM ARRAY la1
BROWSE 

lcFile = GETFILE([XLSX])
IF EMPTY(lcFile)
   RETURN
ENDIF
lcFoder = JUSTPATH(lcFile)

TEXT TO lcConnString NOSHOW PRETEXT  15  TEXTMERGE
     DRIVER=Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb);
     UID=admin;
     FIL=excel  12 . 0 ;
     DriverId= 1046 ;
     DefaultDir=<<lcFoder >>;
     DBQ=<<lcFile>>
ENDTEXT

lnSQL = SQLSTRINGCONNECT(lcConnString)
SQLEXEC(lnSQL,"SELECT * FROM [sheet1$]",[aaaa])
SQLDISCONNECT( 0 )
SELECT aaaa
BROWSE NORMAL

Provider=Microsoft.ACE.OLEDB. 12 . 0 ;Data Source=c:\myFolder\myExcel2007file.xlsx;Extended Properties="Excel 12.0;HDR=YES";