Option Explicit
Private Sub Command1_Click()
OLE1.Class = "excel.sheet.8"
'设置OLE1控件中所插入对象的名称
OLE1.SourceDoc = "D:\软件文件夹2\大型软件\VB学习\百例\百例源文件\实例89\实例素材\Book1.xls"
'设置OLE1控件中所插入对象的文件路径及名称
OLE1.Action =
0
'设置OLE1控件中所插入对象为内嵌对象
End Sub
Private Sub Command2_Click()
OLE2.Class = "excel.sheet.8"
OLE2.SourceDoc = "D:\软件文件夹2\大型软件\VB学习\百例\百例源文件\实例89\实例素材\Book1.xls"
OLE2.Action =
1
'设置OLE1控件中所插入对象为链接对象
End Sub
Object Linking and Embedding，对象连接与嵌入，简称OLE技术。OLE 不仅是桌面应用程序集成，而且还定义和实现了一种允许应用程序作为软件“对象”(数据集合和操作数据的函数)彼此进行“连接”的机制，这种连接机制和协议称为组件对象模型（COM）。
OLE技术
OLE 是在客户应用程序间传输和共享信息的一组综合标准。允许创建带有指向应用程 序 的链接的混合文档以使用户修改时不必在应用程序间切换的协议。OLE基于 组件对象模型 (COM) 并允许开发可在多个应用程序间互操作的可重用即插即用对象。该协议已广泛用于商业上，在商业中 电子表格 、字处理程序、财务软件包和其他应用程序可以通过客户/服务器体系共享和链接单独的信息。
OLE 是一种 面向对象 的技术，利用这种技术可开发可重复使用的 软件组件 （COM）。
关于 OLE ，业界早就在抱怨它的缓慢和庞大，对市场敏感的 Microsoft 需要对那些 API 函数提出一种新的术语以适应未来的 操作系统 和 Internet 技术。有趣的是 Microsoft 已经宣布 OLE 不再代表 对象链接与嵌入 ，而只是一个过去的名词而已。
