If will have such a problems, because Excel keeps DATE fields as a days passed from 01/01/1900 (If I remember well) and all numeric fields with a big precision, so you must conveert it back to VFP Date and Number with precission you want.

About USE (lcExcelFile) IN 0 && message not atable
My mistake

USE (JUSTSTEM(lcExcelFile)) IN 0

>hi,
>thank you very much,
>
>i try with
>

>LOCAL lcExcelFile
>lcExcelFile = GETFILE("XLS")
>IF NOT EMPTY(lcExcelFile)
>   IMPORT FROM (lcExcelFile) XL5  && You can include SHEET TheNameOfTheSheet here
>   USE (lcExcelFile) IN 0
>   BROWSE NORMAL
>ENDIF
>

>1.but i have field at my sheet as date 1/1/2005,i see it as number,
>and other fileld as number 142.876 see it as 142.8765421.....
>
>2. USE (lcExcelFile) IN 0 && message not atable
>thanks
>>>hi,
>>>OK. my Workbook have just one sheet .
>>>>>hi all,
>>>>>
>>>>>would you help me.
>>>>>to convert my excell sheet to vfp.table
>>>>>
>>>>>as
>>>>>1.getfile() &&choice any excell sheet
>>>>>
>>>>>2. convert this sheet to vfp.table
>>>>>
>>>>>thanks
>>>>
>>>>You can't use GETFILE() to receive the Sheets contained in Excel Workbook. You can use it to get the Excel Workbook only.
>>
>>The easiest way is:
>>

>>LOCAL lcExcelFile
>>lcExcelFile = GETFILE("XLS")
>>IF NOT EMPTY(lcExcelFile)
>>   IMPORT FROM (lcExcelFile) XL5  && You can include SHEET TheNameOfTheSheet here
>>   USE (lcExcelFile) IN 0
>>   BROWSE NORMAL
>>ENDIF
>>

>>BUT you must know what column what information contains. I mean this way you can get a DBF that have fields like:
>>A B C ... and you must know What data "A" field have.
>>
>>Other way is to use automation, but you must have Excel installed in all computers that your application will run:
>>

>>LOCAL lcExcelFile, loExcel
>>lcExcelFile = GETFILE("XLS")
>>IF NOT EMPTY(lcExcelFile)
>>   loExcel = CREATOBJECT("Excel.Application")
>>   loExcel.Open(lcExcelFile)
>>   CREATE CURSOR MyExcel (.........) && Field List of the cursor you want to import
>>   WITH loExcel.ActiveWorkBook
>>        FOR nRow = 1 TO .Rows.Count
>>            APPEND BLANK IN MyExcel
>>            FOR nCol = 1 TO .Columns.Count
>>                lcField = FIELDS(nCol)
>>                REPLACE (lcField) WITH .Cells(nRow, nCol).Value  && With proper transformations if you needed one
>>            NEXT
>>        NEXT
>>   ENDWITH
>>ENDIF
>>

>>
>>Keep in mind that the Automation section here is not tested and I didn't put any error handling.