欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

dbf输出到excel中的指定单元格,该如何解决

更新时间: 2014-05-13 21:23:06 责任编辑: Author_N2

 

dbf输出到excel中的指定单元格
本帖最后由 luyiroger 于 2012-06-05 22:45:45 编辑 现在有一个hz.dbf
h01   h02   h03   h04   dq
15    14    13    12    001
14    14    13    12    002
13    14    13    12    004

如果dq=001,将 h01,h02,h03,h04的是输出到指定单元格
如果dq=002,将 h01,h02,h03,h04的是输出到指定单元格
如果dq=003,将 h01,h02,h03,h04的是输出到指定单元格
如果dq=004,将 h01,h02,h03,h04的是输出到指定单元格
我的代码中
locate for dq='001'
    if .not. eof()
oexl.ActiveSheet.Cells(7,2).value=hz.h01
oexl.ActiveSheet.Cells(7,3).value=hz.h02
oexl.ActiveSheet.Cells(7,4).value=hz.h03
oexl.ActiveSheet.Cells(7,5).value=hz.h04
    endif
locate for dq='002'
    if .not. eof()
oexl.ActiveSheet.Cells(8,2).value=hz.h01
oexl.ActiveSheet.Cells(8,3).value=hz.h02
oexl.ActiveSheet.Cells(8,4).value=hz.h03
oexl.ActiveSheet.Cells(8,5).value=hz.h04
    endif
locate for dq='003'
    if .not. eof()
oexl.ActiveSheet.Cells(9,2).value=hz.h01
oexl.ActiveSheet.Cells(9,3).value=hz.h02
oexl.ActiveSheet.Cells(9,4).value=hz.h03
oexl.ActiveSheet.Cells(9,5).value=hz.h04
    endif


但是,excel中的第8行的数据和第7行的数据是一样的,是不是我代码里有问题?



--参考方法--
try:

oexl=Createobject("excel.application")
gft=Sys(5)+Curdir()+'hz.xls'
oexl.workbooks.Open("&gft")
oexl.worksheets("hz").Activate
Sele hz
Locate For Alltrim(dq)=='001'
If Found()
oexl.ActiveSheet.Cells(7,2).Value=hz.h01
oexl.ActiveSheet.Cells(7,3).Value=hz.h02
oexl.ActiveSheet.Cells(7,4).Value=hz.h03
oexl.ActiveSheet.Cells(7,5).Value=hz.h04
Endif.
Locate For Alltrim(dq)=='002'
If Found()
oexl.ActiveSheet.Cells(8,2).Value=hz.h01
oexl.ActiveSheet.Cells(8,3).Value=hz.h02
oexl.ActiveSheet.Cells(8,4).Value=hz.h03
oexl.ActiveSheet.Cells(8,5).Value=hz.h04
Endif
Locate For Alltrim(dq)=='003'
If Found()
oexl.ActiveSheet.Cells(9,2).Value=hz.h01
oexl.ActiveSheet.Cells(9,3).Value=hz.h02
oexl.ActiveSheet.Cells(9,4).Value=hz.h03
oexl.ActiveSheet.Cells(9,5).Value=hz.h04
Endif
oexl.worksheets("hz").Activate
lj=Sys(5)+Curdir()+'汇总结果\'+'汇总.xls'
oexl.activeworkbook.SaveAs("&lj")
oexl.workbooks.Close
oexl.Visible=.T.
oexl.Quit
Messagebox("数据汇总成功!汇总文件位于汇总结果文件夹内!")

--参考方法--
OEXL=CREATEOBJECT("EXCEL.APPLICATION")
GFT=SYS(5)+CURDIR()+'HZ.XLS'
OEXL.WORKBOOKS.OPEN("&GFT")
*OEXL.WORKSHEETS("HZ").ACTIVATE    &&原代码
OEXL.WORKSHEETS("SHEET1").ACTIVATE &&修改后代码
*SELE HZ
CREATE CURSOR HZ (H01 N(2),H02 N(2),H03 N(2),H04 N(2),DQ C(3))
INSERT INTO HZ VALUES (15,14,13,12,"001")
INSERT INTO HZ VALUES (14,14,13,12,"002")
INSERT INTO HZ VALUES (13,14,13,12,"004")

LOCATE FOR DQ='001'
IF .NOT. EOF()
   OEXL.ACTIVESHEET.CELLS(7,2).VALUE=HZ.H01
   OEXL.ACTIVESHEET.CELLS(7,3).VALUE=HZ.H02
   OEXL.ACTIVESHEET.CELLS(7,4).VALUE=HZ.H03
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-05-13 21:23:06
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/177685/
本文WWW.DOC100.NET DOC100.NET版权所有。