从一个Grid 输出 Excel的类：
https://bbs.bccn.net/thread-471997-1-1.html
提取了附件中的代码放在命令控件中作为一键导出按钮，挺好用的，但是感觉记录多的时候有点慢，不知道是不是为了容错添加了好多判断语句造成的
相同的记录数，使用DataToClip()发现复制进剪贴板后再粘贴到excel中速度非常的快，
SELECT * FROM 表1 INTO CURSOR tmp
_vfp.DataToClip("tmp",,3)
我想把这个代码添加控制excel复制剪贴板内容的功能，也实现一键导出功能，不知道速度会不会变快，不熟悉对excel的命令操作，
希望各位高手看看要怎么才能实现？谢谢！

结合类中操作excel的一些代码和十豆三老师的VFP全面控制EXCEL自行解决了，
http://xitong.
不考虑一些特殊的情况发生，速度快了很多
下面是代码：
SELECT * FROM 表1 INTO CURSOR tmp
_vfp.DataToClip("tmp",,3)
****************************
oExcelApp=CREATEOBJECT('Excel.Application')  &&Excel對象建立
With oExcelApp
    .Workbooks.Add   &&添加新工作簿
    .Workbooks(1).ACTIVATE
    .sheets(1).Select      
    .ActiveSheet.Paste  &&粘贴
ENDWITH
LOCAL cExcelFile,cEXD as String
IF oExcelApp.version>="12.0" THEN
        cExd= "XLSX"
    ELSE
        cExd= "XLS"
ENDIF     
LOCAL  FileRate
FileRate=CHRTRAN(TRANSFORM(DATETIME()),' :-.','')
LcCaption=ALLT(_screen.ActiveForm.CAPTION)
cExcelFile=LcCaption+'_'+TRAN(FileRate)+ "." + cExd
DO WHILE FILE(cExcelFile)
        cExcelFile=LcCaption+'_'+TRAN(FileRate)+ "." + cExd
        FileRate=CHRTRAN(TRANSFORM(DATETIME()),' :-.','')
        IF FILE(cExcelFile)
            LOOP
        ELSE
            EXIT
        ENDIF
ENDDO
cExcelFile=PUTFILE('文件保存為(&N):',cExcelFile,cExd)
oExcelApp.ActiveWorkbook.SaveAs('&cExcelFile',39)
MESSAGEBOX("导出成功！",64,"提示")
oExcelApp.Visible=.T.
oExcelApp.Quit
RELEASE oExcelApp

*************
以下是复制在剪贴板的单条选中记录，不用全表复制
PUBLIC aa
SELECT 表1
aa = RECNO()
SELECT * FROM 表1 WHERE RECNO()=aa INTO CURSOR tmp
_vfp.DataToClip("tmp",,3)

[此贴子已经被作者于2017-1-23 15:39编辑过]

支持！

学习