Visual FoxPro 6.0的数据导出
作者&投稿:直泉 (若有异议请与网页底部的电邮联系)
你的方法可行,其他也没啥好办法.
参考代码如下:
select 表名
ncount=reccoount()
nindex=1 &&这是给生成的excel文件命令的序号
for i=1 to ncount step 65534
cfilename='aaa'+padl(alltrim(str(nindex)),8,'0')+'.xls' &&这里生成目标文件名,自己可以根据需要更改
go record i
copy to &cfilename. type xl5 next 65534
endfor
具体步骤如下:
打开EXCEL表, 然后选择另存为.DBF, 就行了!!你的问题有可能是你的表第二列是空列造成的.
或用命令APPEND FROM 路径文件名.xls TYPE XL5 SHEET "表名"。
如图
若用 VFP 的程序往里写,即所谓的〔用 VFP 控制 Excel〕,其方法最多也只能在
一张 Excel 的表中写入 2 的 16 次方条记录,即:65536 条!而且慢得让人无法忍受!
若用这个方法,十几万条估计费时不低於二十个小时!!!
就我所知较为快捷的方法是:手动去做,不一定是最好的哟,呵呵...
一,
USE YourTable
COPY ALL TO TmpCsv01 CSV FOR RECNO() <= 60000
COPY ALL TO TmpCsv02 CSV FOR RECNO() > 60000 AND RECNO() <= 120000
COPY ALL TO TmpCsv03 CSV FOR RECNO() > 120000
二,
再用 Excel 打开这三个文件,拷贝后粘贴在同一文件的三张表中!
只能这样,我们暂时还没有其它的方法来突破 Excel 的 2 的 16 次方的限制!
遇到这种情况我是逐记录写入到EXCEL的单元格上去。我手头电脑没有现成的例子,家里的倒有。不过我先发个相关的资料给你看看,如果不清楚的话,留言给我,我发具体的代码给你。
VFP控制EXCEL的语法如下:
myexcel=createobject('excel.application')
&&创建一个对象
myexcel.visible=.t.&&可见
&&bookexcel=myexcel.workbooks.add
bookexcel=myexcel.workbooks.open("C:\Documents and Settings\Administrator\桌面\学习\dd.xls")
&&打开指定文件
nrows=bookexcel.worksheets('sheet1')&&打开工作表
UsedRange =nrows.UsedRange&&返回工作表中可使用的区域,UsedRange表的属性
usedrange.columns.count&&计算共几列
r=usedrange.rows.count&&汇总行
c=usedrange.columns.count&&汇总列
with myexcel.application
.sheets('sheet3').select
.sheets.add&&添加一个工作表
.ActiveSheet.Name = 'ddddd'&&重命名表
endwith
myexcel.Worksheets('sheet1').Activate&&选择表为当前工作表
myexcel.cells(1,1).value='sss'&&1,1处的值为
myexcel.activesheet.columns(2).columnwidth=15&&第2列的列宽设
myexcel.activesheet.rows(2).rowheight=50&&设第2行的行高
myexcel.activesheet.rows(2).insert&&第2行前插入一行
myexcel.activesheet.columns(2).insert&&第2列前插入一列
myexcel.activesheet.Cells(1,1).Font.size=25&&设置1,1的字体大小
myexcel.activesheet.Cells(1,1).Font.name='黑体'&&设置字体
myexcel.activesheet.Cells(1,1).clear&&清除内容
myexcel.activesheet.range('A1:C2').select&&选择区域
myexcel.selection.merge &&选择区域合并单元格
myexcel.activesheet.Columns('A:B').Select&&整列选中
myexcel.Selection.NumberFormatLocal="@" &&设置选中的区域为字符型数据
myexcel.activesheet.rows(1).select
myexcel.Selection.EntireRow.Delete&&删除选中的行
myexcel.Selection.columns(1).Delete&&删除第几的列
myexcel.workbooks.close&&关闭工作区
*myexcel.workbooks.close(.f.)&&关闭工作区不提示保存
myexcel.quit&&excel
********************************************************
*生成一个表并显示可用的sheets
&&oExcel = CREATE("Excel.Application")
&&oExcel.Workbooks.ADD
&&FOR EACH oMyVar IN oExcel.sheets
&& ? oMyVar.name
&&NEXT oMyVar
米管护肝: Visual FoxPro 6.0简称VFP,Visual FoxPro 6.0是Microsoft公司推出的32位数据库开发软件,用它来开发数据库,既简单又方便.Visual FoxPro原名FoxBase,是美国Fox Software公司推出的数据库产品,在DOS上运行,与xBase系列相容....
遵化市18226572345: visual foxpro 6.0 这个软件是干什么用的? - ?
米管护肝: 简单给你介绍一下Visual foxpro 6.0的数据库应用技术! Visual foxpro 6.0是一个自函型数据库管理系统,是解释型和编译混合型系统.它能够以·解释的方法定义,操纵数据库.它也可以将操作过程编写为程序进行编译,脱离系统·直接运行. Visual FoxPro 6.0系统特点: 1.采用面向对象的程序设计技术. 2.可是化的程序设计方法. 3.强大的项目及数据库管理. 4.强大查询功能. 5.采用了OLE技术. 6.支持网络·应用·.
遵化市18226572345: VFP6.0是什么东西啊!谢谢了 - ?
米管护肝: Microsoft Visual FoxPro6.0for Windows(简称VFP6.0)是Microsoft公司推出的新一代全32位、面向对象的数据库开发管理工具.它的发展及使用不仅大大简化了用户数据库的管理,使组织数据、创建用户应用程序等工作更加快捷,而且由于提...
遵化市18226572345: VisualFoxPro6.0有什么优点吗? ?
米管护肝: ⒈对项目及数据库控制的增强在VisualFoxPro6.0中可以借助“项目管理器”创建和集中管理应用程序中的任何元素;可以访问所有向导、生成器、工具栏和其他易于使用的工具
遵化市18226572345: 如何安装Microsoft Visual FoxPro 6.0 - ?
米管护肝: 先将Microsoft Visual FoxPro 6.0光盘放入电脑的光驱中,然后在桌面双击“我的电脑”图标,在“我的电脑”窗口中找到装有Microsoft Visual FoxPro 6.0光盘的光驱后,双击之,刚光盘就会自动运行或(打开该光盘的目录,找到setup.exe文件,双击该文件运行安装程序).注意在安装过程中要输入密码(密码见光盘附带纸质标签).
遵化市18226572345: Visual FoxPro - ?
米管护肝: 数据库应用技术——Visual FoxPro6.0上机指导与练习(第2版)-内容简介 本书根据教育部颁布的全国《中等职业学校计算机及应用专业教学指导方案》中的数据库应用基础教学基本要求编写,同时参考了全国计算机等级考试(二级Visual ...
遵化市18226572345: 怎样安装Visual Foxpro 6.0软件 - ?
米管护肝: 在所有Visual Foxpro 6.0安装文件中找到标有"SETUP"字样的安装文件图标双击按照每一步的提示进行安装,一般序列号是默认的:111111