可以实现，请参考VFP控制EXCEL命令的用法。http://tangshuiguo.blog.163.com/blog/static/687006232009925113440482/ eole=CREATEOBJECT("Excel.application") &&创建Excel对象 IF NOT TYPE("eole") = "O"
=MESSAGEBOX("Excel对象创建失败，程序将中止！", 16, "Error")
RETURN ENDIF eole.Caption='VFP调用Microsoft Excel示例'&&更改Excel标题栏 eole.visible=.t. &&显示Excel窗口 eole.sheetsinnewworkbook=4 &&设置新增工作簿中工作表数,默认分别为sheet1,sheet2...sheetX eole.Workbooks.add &&添加新工作簿 USE 档案表eole.Worksheets('sheet1').Activate &&设置第1个工作表为激活工作表 FOR i=1 TO RECCOUNT()
eole.cells(1,1).value=学号
&& 给单元格赋值
eole.cells(1,1).value=姓名
eole.cells(1,1).value=籍贯ENDFORoExcel.WorkSheets("Sheet1").Name="档案表" &&更改工作表的名称USE 成绩表eole.Worksheets('sheet2').Activate &&设置第2个工作表为激活工作表 FOR i=1 TO RECCOUNT()
eole.cells(i,1).value=学号
&& 给单元格赋值
eole.cells(i,2).value=科目
eole.cells(i,3).value=成绩ENDFORoExcel.WorkSheets("Sheet2").Name="成绩表" &&更改工作表的名称eole.ActiveWorkbook.SaveAs('c:\导出表.xls') &&保存当前EXCELleole.ActiveWorkbook.saved=.t. &&放弃存盘 eole.Workbooks.close &&关闭工作簿 eole.quit &&退出Excel |
