对这个问题不了解,度娘也未告诉我,所以请大牛全面解释一下:
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”?
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