>Hi all,
>
>Anyone knows how to transfer exel file to dbf file within VFP automatically, the exel file has more than one worksheet. I did some testing using macro exel but couldn't find the right syntax in VFP
>
>
>
>TIA,
>
>Budianto

#Define xlDBF3 8
lcXLSFile = FullPathToYourXLSFile
lcOutPath = FolderWhereOutputFilesWouldBeSaved
ox = Createobject('Excel.Application')
With ox
  .Workbooks.Open(lcXLSFile)
  For Each loSheet In .ActiveWorkbook.Sheets
    loSheet.SaveAs(Addbs(Fullpath(lcOutPath))+loSheet.Name, xlDBF3)
  Endfor
  .ActiveWorkbook.Saved = .T.
  .Quit
Endwith

PS: Not all sheets aer saved as DBF with this. A 'list' should be found on sheet.
Cetin