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

dbf输出到excel中的指定单元格
现在有一个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