作者在 2015-09-17 22:26:51 发布以下内容
oleapp=CREATEOBJECT("excel.application")
oleapp.application.caption="VFP.交互"
oleapp.application.visible=.t.
fen=SYS(5)+SYS(2003)+"\fe 交互.xls"
oleapp.application.workbooks.open(fen)
cmd="select 学号,分数,姓名 from fe 交互.dbf into cursor temp"
&cmd
_vfp.DataToClip("temp",,3)
oleapp.application.range("a1:a1").select
oleapp.application.activesheet.paste
oleapp.application.caption="VFP.交互"
oleapp.application.visible=.t.
fen=SYS(5)+SYS(2003)+"\fe 交互.xls"
oleapp.application.workbooks.open(fen)
cmd="select 学号,分数,姓名 from fe 交互.dbf into cursor temp"
&cmd
_vfp.DataToClip("temp",,3)
oleapp.application.range("a1:a1").select
oleapp.application.activesheet.paste
系统提示说：&cmd（我用红色字体标注） 这个程序含有不能识别的短语或者关键字