Option Explicit

Private Sub Command1_Click()
OLE1.Class = "excel.sheet.8" '設(shè)置OLE1控件中所插入對象的名稱
OLE1.SourceDoc = "D:\軟件文件夾2\大型軟件\VB學(xué)習(xí)\百例\百例源文件\實例89\實例素材\Book1.xls"
'設(shè)置OLE1控件中所插入對象的文件路徑及名稱
OLE1.Action = 0 '設(shè)置OLE1控件中所插入對象為內(nèi)嵌對象
End Sub

Private Sub Command2_Click()
OLE2.Class = "excel.sheet.8"
OLE2.SourceDoc = "D:\軟件文件夾2\大型軟件\VB學(xué)習(xí)\百例\百例源文件\實例89\實例素材\Book1.xls"
OLE2.Action = 1 '設(shè)置OLE1控件中所插入對象為鏈接對象
End Sub

Object Linking and Embedding，對象連接與嵌入，簡稱OLE技術(shù)。OLE 不僅是桌面應(yīng)用程序集成，而且還定義和實現(xiàn)了一種允許應(yīng)用程序作為軟件“對象”(數(shù)據(jù)集合和操作數(shù)據(jù)的函數(shù))彼此進(jìn)行“連接”的機制，這種連接機制和協(xié)議稱為組件對象模型（COM）。

OLE技術(shù)

　OLE 是在客戶應(yīng)用程序間傳輸和共享信息的一組綜合標(biāo)準(zhǔn)。允許創(chuàng)建帶有指向應(yīng)用程 序 的鏈接的混合文檔以使用戶修改時不必在應(yīng)用程序間切換的協(xié)議。OLE基于 組件對象模型 (COM) 并允許開發(fā)可在多個應(yīng)用程序間互操作的可重用即插即用對象。該協(xié)議已廣泛用于商業(yè)上，在商業(yè)中 電子表格 、字處理程序、財務(wù)軟件包和其他應(yīng)用程序可以通過客戶/服務(wù)器體系共享和鏈接單獨的信息。

　　OLE 是一種 面向?qū)ο? 的技術(shù)，利用這種技術(shù)可開發(fā)可重復(fù)使用的 軟件組件 （COM）。

　　關(guān)于 OLE ，業(yè)界早就在抱怨它的緩慢和龐大，對市場敏感的 Microsoft 需要對那些 API 函數(shù)提出一種新的術(shù)語以適應(yīng)未來的 操作系統(tǒng) 和 Internet 技術(shù)。有趣的是 Microsoft 已經(jīng)宣布 OLE 不再代表 對象鏈接與嵌入 ，而只是一個過去的名詞而已。

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