fileforimport=GETFILE("XLS")
*
oXLObj=CREATEOBJECT("Excel.Application")
oXLApp=oXLObj.APPLICATION
oWBook=oXLApp.WorkBooks.OPEN(fileforimport)
LastRow=oXLApp.ActiveSheet.UsedRange.SpecialCells(11).Row
laTable=oXLApp.ActiveSheet.Range("A1:A"+ALLTRIM(STR(LastRow))).Value
oXLApp.QUIT
RELEASE oXLObj, oXLApp, oWBook
*
CREATE CURSOR Tmp_tran1 (dt_op T)
INSERT INTO Tmp_tran1 FROM ARRAY laTable
GO TOP
BROWSE NOWAIT

CREATE CURSOR Tmp_tran2 (dt_op D)
INSERT INTO Tmp_tran2 FROM ARRAY laTable
GO TOP
BROWSE NOWAIT

FOR i=1 TO ALEN(laTable)
	laTable(i)=ICASE(VARTYPE(laTable(i))="N" AND laTable(i)=0,NULL,VARTYPE(laTable(i))="D" AND laTable(i)={},NULL,VARTYPE(laTable(i))="C",ALLTRIM(laTable(i)),laTable(i))
ENDFOR