http://www.sweetpotatosoftware.com/spsblog/2008/09/30/UsingExcel2007FileFormatsInVFP90.aspx

>hi all,
>i use to this code to convert from excel 2003 to dbf, now i have office 2007 not work,
>
>

>thisform.text1.Value=GETFILE('xls')
>IMPORT FROM (thisform.text1.value)  TYPE XLs
>*XL8
>thisform.text1.value=JUSTFNAME(thisform.text1.value)
>use JUSTSTEM(thisform.text1.value) EXCLUSIVE
>m.alias=JUSTSTEM(thisform.text1.value)
>ALTER TABLE JUSTSTEM(thisform.text1.value) DROP COLUMN a DROP COLUMN b DROP COLUMN C DROP COLUMN N DROP COLUMN J DROP COLUMN E 
>
>file_to_copy = "injazmonth"+alltrim(str(month(date())+12)+alltrim(str(year(date())-1)))+".dbf"&&just for month 12
>SELECT f as typ1,h year,d as empno,i as custno,o as last,p as now,q as balance,r as empnam,k as depno,s as depnam from JUSTSTEM(thisform.text1.value) INTO TABLE (file_to_copy)
>
>

>thanks