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...