dbf输出到excel中的指定单元 第3页

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
   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
*OEXL.WORKSHEETS("HZ").ACTIVATE    &&原代码
OEXL.WORKSHEETS("SHEET1").ACTIVATE &&修改后代码

*---------临时添加，可以不用---------*
IF !DIRECTORY(SYS(5)+CURDIR()+'汇总结果')
   MD SYS(5)+CURDIR()+'汇总结果'
ENDIF
*----------------------------------*
LJ=SYS(5)+CURDIR()+'汇总结果\'+'汇总.XLS'
OEXL.ACTIVEWORKBOOK.SAVEAS("&LJ")
OEXL.VISIBLE=.T.
*OEXL.WORKBOOKS.CLOSE
*OEXL.QUIT
MESSAGEBOX("数据汇总成功!汇总文件位于汇总结果文件夹内!")

上一页  [1] [2] [3]