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.