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

王朝other·作者佚名  2006-01-08
宽屏版  字体: |||超大  

select cb_zwhz

go top

XLApp = GetObject('F:\temp\sqlinout.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

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
© 2005- 王朝网络 版权所有