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

 

select cb_zwhzgo topXLApp = 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=1select cb_zwhzdo 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+1enddo  XLApp.SaveXlApp.Close