请教各位高手:一个关于Visual Foxpro的数据导出问题?

Question

vfp 中的copy 命令可以把数据导入到excel中
如
select b
copy to c:\a.xls type xl5

Answer 1

copy to命令是把数据导入到一个新的xls文件中,不是指的已存在工作薄中!!!

Answer 2

select cb_zwhz
go top
XLApp = GetObject('F:\temp\sqlinout.xls','excel.sheet')
XLApp.application.visible=.F.
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打开execl文件时要取消隐藏才可看到数据，你查查VBA可直接在vfp中操作过来。