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

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

• ·如何查看用户表所占空间的大小
• ·如何查看什么时间有哪些数据库对象结构被修改过
• ·window中进程间如何通信
• ·手工创建数据库的全部脚本及说明
• ·帮助的制作
• ·在不刷新页面的情况下调用远程asp脚本
• ·基于软件实现网站负载均衡(1)
• ·XML与其相关技术(1)
• ·一个简单木马列子(1)
• ·JS特效之状态栏冒泡