*把这段代码复制保存为一个prg文件,和你的数据表放一个目录,运行后看结果.

AddOleNew=CREATEOBJECT('EXCEL.APPLICATION')  
AddOleNew.Workbooks.add  

SELECT * FROM 你的表名 WHERE recno()>100 INTO CURSOR temp  &&"你的表名"换成你的表名,取数据表前100个记录到excel的第一个工作表.
_vfp.DataToClip(,,3)  
AddOleNew.Worksheets("sheet1").Activate  
AddOleNew.ActiveSheet.Paste  

SELECT * FROM 你的表名 WHERE recno()>200 INTO CURSOR temp &&"你的表名"换成你的表名,取数据表前200个记录到excel的第一个工作表.
_vfp.DataToClip(,,3)  
AddOleNew.Worksheets("sheet2").Activate  
AddOleNew.ActiveSheet.Paste  


AddOleNew.ActiveWorkbook.Saveas(PUTFILE('保存为(&N):','NewBook.xls','xls'))  
AddOleNew.Workbooks.close  
AddOleNew.quit