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

rida

于 2001-05-21 21:16:00 发布

阅读量958

点赞数

CC 4.0 BY-SA版权

分类专栏： vfp 文章标签： excel windows go

本文链接：https://blog.csdn.net/rida/article/details/6474

vfp 专栏收录该内容

0 篇文章

订阅专栏

博客展示了一段代码，通过代码操作Excel表格。代码获取指定路径的Excel文件，设置其可见性，向工作表的首行单元格写入标题，然后将数据库表中的数据逐行写入工作表，最后保存并关闭Excel文件。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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