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
红色字体系统提示错误，说：含有不能识别的短语或关键字

嗯，是的。昨天发现这个错误了。不过还是谢谢你啊。

额，怎么了？我的EXCEL文件放在VFP9文件夹下的。

不能的