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 不再代表对象链接与嵌入，而只是一个过去的名词而已。