Excel 98 记录的限制是:32,767
不是:32,676
Excel 2000/2003 记录的限制是:65,535 (64K)
1. 如果小于 64K的
Create Cursor Test (MyVal I)
For I = 1 To 65534 &&< 64K
Insert Into test Values (I)
Endfor
Export To Test.Xls Type Xls
2. 如果记录更多的
用 MS Office 自动化
Do iCOpyXLSALL With (alias_name)
Procedure iCOpyXLSALL
Lparameter pcAlias
* Close table
If Not Used(pcAlias)
Use (pcAlias)
Endif
Sele (pcAlias)
Go Top
outfile="c:\"+Alias()+".xls"
ObjExcel= Createobject("Excel.Application")
With ObjExcel
.DisplayAlerts = .F.
.Workbooks.Add()
Endwith
isheet=0
lnrec=60000
Do While Not Eof()
isheet=isheet+1
Wait Wind Nowa Trans(Recn())
_vfp.DataToClip(,lnrec,3)
With ObjExcel
If .Sheets.Count.Worksheets.Add(, .sheets(isheet-1))
Endif
.Sheets(isheet).Activate
.Range("a1").Select
.ActiveSheet.Paste()
Endwith
Skip lnrec
Enddo
ObjExcel.Workbooks(1).SaveAs(outfile)
ObjExcel.Quit
ObjExcel= .Null.
Release objexcel
3.更简单的方式
转出到 CSV 格式
无限制