一、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