比传统方式速度快百倍的Excel数据传递方案
- 2026-04-06 18:27:48
现在越来越多的人开始使用 ole 控制 excel 来作报表输出,vfp的任务除了创建与控制对象外,最繁重的就是
要将数据传递到 excel 中,经典作法都是:
excel.cells(行号,列号).value=<值>的格式进行传递,书上这么写,程序员也这么作,论坛上的文章抄来抄去
也都这么说,但实施起来速度将令你无法忍受;
我有一张表,只有20个字段,1000条记录,这对vfp来说算是非常小的表吧?但我用这种方法传递到 excel
中竟用了6分钟左右!如果用户经常进行这样的操作,再文雅的用户可能也会破口大骂!
于是我就动手作了个试验,在命令行状态下一行一行地执行,先将这个表 copy 到一个临时的dbf文件中
(必须带 fox2x,否则excel 97-xp均不认识!),在
excel中操作: 打开这个临时的dbf文件,然后选定从第二行(除开字段行)至末尾的所有记录,复制它,切换到我
的excel正式的工作表中,粘贴它,我感觉再大的
文件都能迅速完成,速度非常快,于是我就用vfp程序来完成这一动作,结果速度快了上百倍。
比如按以面的程序,
我按20个字段*10000条(注意是1万),按我的优化方式,试验结果耗时 9.69秒左右
再按20个字段*1000条(注意是1千), 按传统方式运行,试验结果耗时 365 秒左右,若按10000条,就是3650
秒甚至更多,你通过试验就知道它越来越慢,耗时呈非线性增长!
下述程序段是一个完整的prg程序,请你粘贴它到任何一个prg程序中,在命令行进行do,从而完成我即将描
述的试验!
#define要试验的记录数 1000#define按优化方式运行 .f.#defineFalse .f.#definexlCenterAcrossSelection 7#definexlCenter -4108#definexlUnderlineStyleNone -4142#definexlAutomatic -4105#definexlGeneral 1#definexlNone -4142#definexlContinuous 1#definexlThin 2#definexlDiagonalDown 5#definexlDiagonalUp 6#definexlEdgeLeft 7#definexlEdgeTop 8#definexlEdgeBottom 9#definexlEdgeRight 10#definexlInsideVertical 11#definexlInsideHorizontal 12#definexlvalues -4163local excel,ii,jj,ii1,ii2,dbf文件名,on_error,错误clos data allcrea curs 示范表 (字段1 c(10),字段2 n(5),字段3 i,字段4 d,字段5 c(20),字段6 c(3),字段7 n(7,2),字段8 c(20),字段9 c(15),字段10 c(8),字段11 c(10),字段12 n(3),字段13 i,字段14 d,字段15 c(20),字段16 c(3),字段17 n(7,2),字段18 c(20),字段19 c(15),字段20 c(8))local 临时数组(要试验的记录数,1)appe from arra 临时数组rand(1)repl all 字段1 withsys(2015),字段2 withrecn(),字段3 withrand()*1000000000,字段4 withdate()+recn(),字段14 with 字段4+recn(),字段20 with right(sys(2015),8)excel=create("excel.application")with excel.Workbooks.AddWith .ActiveWindow.DisplayGridlines = False.DisplayZeros = FalseEndWith.Rows("1:1").RowHeight = 31.5.Range("A1:T1").SelectWith .Selection.HorizontalAlignment = xlCenterAcrossSelection.VerticalAlignment = xlCenter.WrapText = False.Orientation = 0.AddIndent = False.ShrinkToFit = False.MergeCells = FalseWith .Font.Name = "宋体".Size = 24.Strikethrough = False.Superscript = False.Subscript = False.OutlineFont = False.Shadow = False.Underline = xlUnderlineStyleNone.ColorIndex = xlAutomaticEndWithEndWith.Range("A1").value= "快速传递数据到 Excel 示例"for ii=1 to 20.cells(2,m.ii).value="字段"+ltri(str(m.ii))next.Range("A2:T3").SelectWith .Selection.HorizontalAlignment = xlGeneral.VerticalAlignment = xlCenter.WrapText = False.Orientation = 0.AddIndent = False.ShrinkToFit = False.MergeCells = FalseEndWith.Selection.Borders(xlDiagonalDown).LineStyle = xlNone.Selection.Borders(xlDiagonalUp).LineStyle = xlNone.Selection.Borders(xlEdgeLeft).LineStyle = xlNoneWith .Selection.Borders(xlEdgeTop).LineStyle = xlContinuous.Weight = xlThin.ColorIndex = xlAutomaticEndWithWith .Selection.Borders(xlEdgeBottom).LineStyle = xlContinuous.Weight = xlThin.ColorIndex = xlAutomaticEndWith.Selection.Borders(xlEdgeRight).LineStyle = xlNoneWith .Selection.Borders(xlInsideVertical).LineStyle = xlContinuous.Weight = xlThin.ColorIndex = xlAutomaticEndWithWith .Selection.Borders(xlInsideHorizontal).LineStyle = xlContinuous.Weight = xlThin.ColorIndex = xlAutomaticEndWith.Rows("2:3").Select.Selection.RowHeight = 18.75.Range("A2:T2").SelectWith .Selection.HorizontalAlignment = xlCenter.VerticalAlignment = xlCenter.WrapText = False.Orientation = 0.AddIndent = False.ShrinkToFit = False.MergeCells = FalseEndWith
************注意:上面程序段与我要比较的程序无关,它是以程序方式产生一个 excel模板,实际运行的软
件一般是将模板先做好,
* 运行时只需用 excel.Workbooks.Open(M.文件名) 的格式打开就行了
***********从这里正式开始传递数据***********
local 细节行,末行
细节行=3
末行=m.细节行+recc()-1
.rows(m.细节行).Select
.Selection.Copy
.Rows(ltri(str(m.细节行))+":"+ltri(str(m.末行))).Select
.Selection.PasteSpecial
.Application.CutCopyMode = False
#if !按优化方式运行 &&这里是按传统方式传递数据
local 传递数组(20),seco1,seco2
seco1=seco()
scan
scat to 传递数组
for ii=1 to 20
.cells(recn()+m.细节行-1,m.ii).value=传递数组(m.ii)
next
ends
seco2=seco()
messageb("处理 "+ltri(str(recc()))+"条记录, 耗时(秒): "+tran(seco2-seco1))
#else &&以下是按我的优化方式传递数据
local 当前窗口,seco1,seco2
seco1=seco()
dbf文件名=addbs(gete("temp"))+"toexcel.dbf" &&临时文件应该创建在 temp 文件夹中,千万别象有
的程序那样创建在 c:\ 否则危险重重!
on_error=on("error")
错误=0
on Error 错误=error()
dele file (m.dbf文件名)
copy To (m.dbf文件名) fox2x &&生成一个fox2x格式的临时dbf文件
on Error &on_error
if m.错误>0
excel.quit
messageb("建立文件“"+m.dbf文件名+"”错误,错误信息:"+chr(13)+mess()+"（"+ltri(str(m.错
误))+"）。"+chr(13)+chr(13)+"请排除故障后重新执行...",16,"错误")
retu .f.
endif
当前窗口=.ActiveWindow
.Workbooks.Open(m.dbf文件名) &&打开临时的dbf文件
.rows("2:"+ltri(str(recc()+1))).Select &&选择从第二行至末尾的所有记录
.Selection.Copy &&复制
当前窗口.activate &&切换窗口
.RANGE("A"+ltri(str(m.细节行))).select &&从细节行位置开始
.Selection.PasteSpecial(xlvalues) &&执行选择性粘贴,只粘贴值
.Application.CutCopyMode = False &&取消选择状态
***以下几行程序是立即关闭临时文件: toexcel.dbf 并删除它,以免后患
.Windows(justfname(m.dbf文件名)).close &&关闭这个文件
on error ??
dele file (m.dbf文件名) &&删除dbf文件
dele file (forceext(m.dbf文件名,"fpt")) &&万一有备注文件,就删除,如果无,由于有错误陷肼,也不
会任何提示
on error &on_errorseco2=seco()messageb("处理 "+ltri(str(recc()))+"条记录, 耗时(秒): "+tran(seco2-seco1))#endif.Cells.Select.Selection.Columns.AutoFit.Range("A1").Select.ActiveWorkbook.saved=.t..visible=.t.endwretu
将以上程序前二行设置为:
#define 要试验的记录数 10000
#define 按优化方式运行 .t.
在命令行do了两次
运行显示: 处理 10000 条记录,耗时 9.696秒
将以上程序前二行设置为:
#define 要试验的记录数 1000 &&我不敢写成10000条,要用几十分钟,若有时间,你尽可以去试验好了!
#define 按优化方式运行 .f.
在命令行do了两次
运行显示: 处理 1000 条记录,耗时 365.360 秒
由于不同的处理芯片不同的缓冲机制不同的操作系统,我所测试的未必那么准确,因此我将程序贴出来供大家
测试,如果因为我的数据与各位相关太大,还请多多包涵!但有一点可以肯定,二者速度反差绝对是若干倍。
如果你用几条记录去作,当然是传统方式还要快!
猫猫的心里话
加菲猫的VFP|狐友会社群接收投稿啦
加菲猫的VFP，用VFP不局限VFP，用VFP混合一切。无论是VFP，还是JS，还是C，只要能混合起来，都可以发表。
商业模式，销售技巧、需求规划、产品设计的知识通通可以发表。
暂定千字50元红包，，优秀的文章红包更大，一经发表，红包到手。
如何帮助使用VFP的人？
用VFP的人，有专业的，有非专业了，很多人其实是小白，问出的问题是小白，如果问题不对，我们引导他们问正确的问题。无论如何请不要嘲笑他们说帮助都不看，这么简单的问题都不会，嘲笑别人不行，而无法提出建设性答案，是很low的。
我们无论工作需要，还是有自己的软件，都是是需要真正的知识，如何让更多人学习真正的VFP知识呢，只需要点赞，在看，能转发朋友圈就更好了。
加菲猫的vfp倡导用"VFP极简混合开发，少写代码、快速出活，用VFP，但不局限于VFP，各种语言混合开发"。
我已经带领一百多名会员成功掌到VFP的黑科技，进入了移动互联网时代，接下来我们要进入物联网领域。
2025年狐友会社群会员继续招募中
社群会员获取的权益有：
祺佑三层开发框架商业版（猫框），终身免费升级，终身技术支持。
开放的录播课程有：
微信小程序，微信公众号开发，H5 APP开发，Extjs BS开发，VFP面向对象进阶，VFP中间层开发。
源码类资源有：
支付组件源码，短信源码，权限组件源码，一些完整系统的源码。这个可以单独出售的，需要的可以联系我。
会员也可以实现群内资源对接，可以接分包，合作等各项商业或技术业务
