回 帖 发 新 帖 刷新版面

主题:_vfp.DataToClip(,,3) 急得我要疯掉了~~~~

[size=3][size=3]***** 新增一excel表
oleAPP.Workbooks.Add
SELECT * FROM dbf_TRT INTO CURSOR temp
oleAPP.Worksheets("sheet1").Activate
***** 开始写入
_vfp.DataToClip(,,3)
oleAPP.ActiveSheet.Paste



运行到倒数第二句“_vfp.DataToClip(,,3)”时,光标一直在沙漏,然后就不动了,一直停在这一句上。

请各位高手看一下是什么原因?

我的电脑上有excel,而且程序前一阵子运行都没问题的。

先谢谢大家一下![/size][/size]

回复列表 (共3个回复)

沙发

_vfp.DataToClip(,,3)

oleapp=CREATEOBJECT('Excel.application')           
oleapp.Workbooks.add                            
oleapp.Worksheets("sheet1").Activate            
oleapp.visible=.t.                          
oleapp.ActiveSheet.Paste

板凳

楼主已几天没来看贴,估计已疯掉了!

3 楼

个人经验:操作有关EXCEL 时,有时 EXCEL 某个格子处于输入状态时,其它程序调用时,就会出现等待状态...

    USE temp in 0
    SELE temp
    oleapp.workbooks.add
    _VFP.DataToClip(,reccount(),3) && 将整个表的内容复制到粘贴板
    oleapp.Worksheets("sheet1").paste() && 粘贴到 EXCEL 

请再参考一下我的个人经验:

http://bbs.pfan.cn/post-253627.html

我来回复

您尚未登录,请登录后再回复。点此登录或注册