一、Excel 启动与退出
1、创建 Execl 对象
eole=CREATEOBJECT("Excel.application")
IFNOTTYPE("eole”)#"O" && 还“U”?
=MESSAGEBOX("Excel 对象创建失败，程序将中止！",16,"Error")
RETURN
ENDIF
2、退出 Excel
eole.quit
RELEASEeole&&释放变量，才真正退出Excel
3、若判断 EXCEL 或某个 XLS 文件是否已经打开（避免不可预知的错误发生）：
LOCAL lOldSetOpt,mChanNum
lOldSetOpt = DDESetOption("SAFETY")
= DDESetOption("SAFETY",.F.)
mChanNum = DDEInitiate('Excel','SYSTEM')&&EXCEL 是否已经打开
**mChanNum = DDEInitiate('Excel','&lcFileName')&&lcFileName 某 XLS 文 件 名 ， 如 ： D:\
123.XLS
IF mChanNum <> -1
= messagebox('程序EXCEL 已经打开，请先将其关闭！',64,'系统提示！')
** = messagebox('文件'+lcFileName+' 已经打开，请先将其关闭！',64,'系统提示！')
= DDETerminate(mChanNum)
= DDESetOption("SAFETY",lOldSetOpt)
RETURN
ENDIF
二、Excel 窗口操作
1、显示 Excel 窗口
eole.visible=.t.
2、应用程序调用 MicrosoftExcel'&&更改 Excel 标题栏
eole.Caption='VFP 控制 Execl 窗口’
3、Excel 的窗口控制：
eole.WindowState=-4140&&最小化=-4140，最大化=-4137，还原=-4143(或 1，2，3)
4、后台操作报警关闭
eole.DisplayAlerts=.F.&&关闭(.F.)打开(.T.)
三、工作簿及工作表操作
1、添加新工作簿
eole.Workbooks.add &&不带参数为增加至当前工作表之前
2、设置新增工作簿中工作表数
eole.sheetsinnewworkbook=4
资源评论
