生成excel仓库资金占用code.txt

为某集团公司物资管理系统,包括进出库,库存管理,功能齐全,使用

eole=CREATEOBJECT('Excel.application')
eole.Workbooks.Open("D:\befar\excel\仓库资金占用台帐.xls")

*向月仓库资金占用台帐\仓库资金占用台帐.xls中写入数据
select zijinzhanyong
go top
yea=year(zijinzhanyong.日期)
year=alltrim(str(yea))
mon=month(zijinzhanyong.日期)
month=alltrim(str(mon))
date=""+year+"年"+month+"月"
eole.cells(4,6).value=date
eole.cells(19,8).value=dtoc(date())
AA=6 
do while !eof() AND AA<=17
eole.cells(AA,2).value=zijinzhanyong.资金定额
eole.cells(AA,3).value=zijinzhanyong.上月结存
eole.cells(AA,4).value=zijinzhanyong.本月入库
eole.cells(AA,5).value=zijinzhanyong.厂内出库
eole.cells(AA,6).value=zijinzhanyong.外销
eole.cells(AA,7).value=zijinzhanyong.当月结存
eole.cells(AA,8).value=zijinzhanyong.超正低负
eole.cells(AA,9).value=zijinzhanyong.备注
AA=AA+1
SKIP
enddo




*修改并保存
select zijinzhanyong
go top
yea=year(zijinzhanyong.日期)
year=alltrim(str(yea))
mon=month(zijinzhanyong.日期)
month=alltrim(str(mon))
eole.ActiveWorkbook.SaveAs("d:\befar\月仓库资金占用台帐\"+year+"年"+month+"月仓库资金占用台帐.xls")
eole.Workbooks.close
eole.quit 

*打开并修改
eole=CREATEOBJECT('Excel.application')
eole.Workbooks.Open("d:\befar\月仓库资金占用台帐\"+year+"年"+month+"月仓库资金占用台帐.xls")
eole.visible=.t.