对这个问题不了解，度娘也未告诉我，所以请大牛全面解释一下：
1、xl5和xl8具体对应excel的什么版本？是否xl5对应1994年的office4.3、xl11对应office2003、xl15对应office2013、xl16对应office365？
2、copy to 新表名.xls type xl5或xl8的问题，copy to 新表名.xls type xl8是否就突破了存为xl5最多6万多条记录的限制？
是否可以type xl11或更高？如果可以，是否必须将文件名后缀“.xls”改为“.xlsx”？

VFP9帮助文件中：APPEND FROM 命令中关于XL8参数的解释如下
XL8
选用 XL8 可从 Microsoft Excel 97 中导入数据。工作表的每列对应表的一个字段；每行对应表的一条记录。由 Microsoft Excel 创建的工作表文件扩展名为 .xls 。如果省略 SHEET 子句，将从 Sheet1 中导入数据。为了导入指定工作表(sheet) 中的数据，需要包含 SHEET 关键字，并通过 cSheetName 指定工作表的名称。

COPY TO 命令中没有XL8 这个参数。

收到的鲜花

• ligaolei 于 2017-10-24 11:52 送鲜花  1朵   附言：我很赞同

IMPORT 命令中有XL8参数，解释同2楼

*Excel版本判断
Clear
oExcel = Createobject([Excel.Application])

Do Case
    Case oExcel.Version = "2.0"  && 1987年
        ? "MS Excel 2 版"
    Case oExcel.Version = "3.0"  && 1990年
        ? "MS Excel 3 版"
    Case oExcel.Version = "4.0"  && 1992年
        ? "MS Excel 4 版"
    Case oExcel.Version = "5.0"  && 1993年
        ? "MS Excel 5 版"
    Case oExcel.Version = "6.0"  && None
        ? "没有"
    Case oExcel.Version = "7.0"  && 1995年
        ? "MS Excel 95 版"
    Case oExcel.Version = "8.0"  && 1997年
        ? "MS Excel 97 版"
    Case oExcel.Version = "9.0"  && 1999年
        ? "MS Excel 2000 版"
    Case oExcel.Version = "10.0" && 2001年
        ? "MS Excel XP 版"
    Case oExcel.Version = "11.0" && 2003年
        ? "MS Excel 2003 版"
    Case oExcel.Version = "12.0" && 2006年
        ? "MS Excel 2007 版"
    Case oExcel.Version = "13.0" && None
        ? "没有"
    Case oExcel.Version = "14.0" && 2010年
        ? "MS Excel 2010 版"
    Case oExcel.Version = "15.0" && 2013年
        ? "MS Excel 2013 版"
    Otherwise
        ? "本机没有安装EXCEL"
Endcase

? oExcel.Version

oExcel.quit()

收到的鲜花

• ligaolei 于 2017-10-24 11:51 送鲜花  2朵   附言：好文章

xlsx格式才能解决最大65535行限制
若需要导出的数据只是字符、数值、逻辑型，可以采用操作07版或更新的excel另存为xlsx

Try
    oExcel=Createobject('Excel.Application')
Catch
Endtry
If Vartype(oExcel)='O'
    If Val(oExcel.Version)>11
        USE TABLENAME
        Copy To newtable Foxplus
        Use
        oExcel.Workbooks.Open('newtable.dbf')
        oExcel.ActiveWorkbook.SaveAs('myexcel.xlsx')
        oExcel.Visible=.T.
        Erase newtable.dbf
    Endif
Endif

收到的鲜花

• ligaolei 于 2017-10-25 20:03 送鲜花  2朵  

还差2016的16.0版，哈哈。

没这个参数一切不都是白搭吗