下面的示例向一个表单中添加一个 ole 容器控制，并使用 documentfile 和 oleclass 属性来指定一个 excel 工作表作为要编辑的文件，指定 excel 作为 ole 服务器。documentfile 属性在 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 && 控制高度
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