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.