ITPub博客

首页 > 数据库 > 数据库开发技术 > 把vfp表中的数据导入指定的excel文件中 (转)

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

原创 数据库开发技术 作者:amyz 时间:2007-11-27 15:11:52 0 删除 编辑
把vfp表中的数据导入指定的excel文件中 (转)[@more@]

 


select cb_zwhz
go top
XLApp = Getobject('F:tempsqlinout.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


来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10752019/viewspace-985364/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论
  • 博文量
    3984
  • 访问量
    7338866