lcFile='c:\data.xls'
Erase (Forceext(lcFile,'xxx'))
ox=Createobject('excel.application')
owb=ox.Workbooks.Open(lcFile)
lcFile=Forceext(lcFile,'xxx')
ox.DisplayAlerts= .F.
owb.SaveAs(lcFile,39)
owb.close()
owb=.null.
ox=.null.
Release owb
Release ox
use myfile
zap
Append From (lcFile) xls
Erase (lcFile)

>my old way of importing data ito FXP dbf fle from excel no longer works with excel 2007. in fact they have removed the save as dbf IV in their options.
>
>not that it was all that reliable in the first place, but here was the code i was using
>Use myfile
>Zap
>Append From c:\data.Xls Type Xl8
>Append From c:\data.Xls TYPE XL5
>
>Does anyone have a more efficient and dependable way to do this and that might actually work with excel 2007.
>
>thanks
>k