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 不再代表 對象鏈接與嵌入 ，而只是一個過去的名詞而已。

VB工程--百例89--插入Execl工作表