下面的示例向一个表单中添加一个 ole 容器控制，并使用 oleclass 和 documentfile 属性指定 excel 作为
ole 服务器，指定一个 excel 工作表作为要编辑的文件。documentfile 属性在驱动器 c 上的 excel 目录中指定一个名为 book1.xls 的工作表。如果 documentfile
指定的文件和目录不存在，此示例将不能正确地执行，可能有必要更新 documentfile 属性来指定一个存在的目录和工作表文件。
使用 doverb 方法激活要编辑的工作表。
frmmyform = createobject('form') && 创建一个表单
frmmyform.closable = .f. && 使“控制”菜单框无效
frmmyform.addobject('cmdcommand1','cmdmycmdbtn') && 添加命令按钮
frmmyform.addobject("oleobject","oleexcelobject") && 添加ole对象
frmmyform.cmdcommand1.visible=.t. && 显示“退出”命令按钮
frmmyform.oleobject.visible=.t. && 显示 ole 控制
frmmyform.oleobject.height = 50 && ole 控制的高度
frmmyform.show && 显示表单
frmmyform.oleobject.doverb(-1) && -1 表示“编辑”
read events && 启动事件处理
define class oleexcelobject as olecontrol
oleclass ="excel.sheet" && 服务器名
documentfile = "c:\excel\book1.xls" && 此文件必须存在
enddefine
define class cmdmycmdbtn as commandbutton && 创建命令按钮
caption = '\<quit' && 命令按钮的标题
cancel = .t. && 默认的“取消”命令按钮 (esc)
left = 125 && 命令按钮列
top = 210 && 命令按钮行
height = 25 && 命令按钮的高度
procedure click
clear events && 停止事件处理，关闭表单
enddefine