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

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("数据汇总成功!汇总文件位于汇总结果文件夹内!")

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