VFP记录超过32676后该如何导入到EXCEL?

GEORGECHIN1 2014-10-17 05:31:30
用VFP的COPY TO FILENAME TYPE XLS命令将VFP中的表导到OFFICE EXCEL中时,如果记录超过32676,VFP自动将多出的记录截掉,这种情况要该如何处理呢?(排除用多次导入几个文件名的方法)
...全文
111 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
GEORGECHIN1 2014-10-18
  • 打赏
  • 举报
回复
引用 1 楼 zyg8108 的回复:
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 格式 无限制
谢谢!
回马枪 2014-10-17
  • 打赏
  • 举报
回复
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 格式 无限制

2,718

社区成员

发帖
与我相关
我的任务
社区描述
VFP,是Microsoft公司推出的数据库开发软件,用它来开发数据库,既简单又方便。
社区管理员
  • VFP社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧