把vfp表中的数据导入指定的excel文件中

把vfp表中的数据导入指定的excel文件中

- 中国WEB开发者网络 (http://www.webasp.net)
-- 技术教程 (http://www.webasp.net/article/)
--- 把vfp表中的数据导入指定的excel文件中 (http://www.webasp.net/article/19/18381.htm)

-- 作者：未知
-- 发布日期： 2005-04-29

select cb_zwhz
go top
XLApp = GetObject('F:\temp qlinout.xls','excel.sheet')
XLApp.application.visible=.F.
XLApp.application. Windows("sqlinout.xls").Visible = .T.
XLSheet =XLApp.Sheets['Sheet1']
XLSheet.Cells(1,1).Value = "Month"
XLSheet.Cells(1,2).Value = "ZwCode"
XLSheet.Cells(1,3).Value = "Qty"
XLSheet.Cells(1,4).Value = "Cost"
XLSheet.Cells(1,5).Value = "Money"

i=1
select cb_zwhz
do while not eof ()
XLSheet.Cells(i+1,1).Value=Month
XLSheet.Cells(i+1,2).Value=ZwCode
XLSheet.Cells(i+1,3).Value=Qty
XLSheet.Cells(i+1,4).Value=Cost
XLSheet.Cells(i+1,5).Value=Money
skip
i=i+1
enddo
XLApp.Save
XlApp.Close

webasp.net