在下面的示例中，先将一个 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. && 显示“quit”命令按钮
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