比 較 好 的 辦 法 是 編 寫 Automation服 務 器 或 者 編 寫 ActiveX控 件 。 我 們 在 問 題 “如何在Excel中使用DriveListBox等控件”的 回 答 中 介 紹 如 何 編 寫 ActiveX控 件 ， 先 來 說 說 如 何 編 寫 Automation服 務 器 。 
    首 先 啟 動 VB 5.0， 在 New Project窗 口 中 選 擇 ActiveX DLL或 ActiveX EXE（ 前 者 速 度 更 快 些 ） 。 這 時 你 的 工 程 文 件 中 將 包 括 一 個 Class1， 你 可 以 在 屬 性 窗 口 中 將 它 的 名 字 改 為 MyClass。 在 Project菜 單 下 選 擇 Project1 Properties修 改 工 程 的 名 字 為 MyComponent。 在 MyClass中 插 入 以 下 代 碼 ： 
     Option Explicit 
     
     Public Function SquareIt(lngNumber As Long) 
     SquareIt = lngNumber ^ 2 
     End Function 
    你 可 以 利 用 類 似 的 步 驟 插 入 其 它 函 數 。 調 試 時 ， 你 可 以 在 集 成 環 境 中 運 行 程 序 ， 在 Excel中 調 用 這 個 Automation服 務 器 。 調 試 結 束 后 ， 編 譯 成 DLL或 EXE就 可 以 了 。 
    下 面 再 來 談 談 如 何 在 Excel中 調 用 Automation服 務 器 。 首 先 啟 動 Excel 97， 然 后 打 開 Visual Basic編 輯 器 ， 選 擇 "工 具 |引 用 "菜 單 ， 在 其 中 選 擇 MyComponent。 然 后 你 可 以 在 一 個 過 程 、 函 數 或 事 件 中 加 入 以 下 代 碼 ： 
     '建 立 對 象 
     Dim obj As MyComponent.MyClass 
     Dim lngArgument As Long 
     Dim lngResult As Long 
     
     '建 立 對 象 實 例 
     Set obj = New MyClass 
     lngArgument = 2 
     
     '調 用 SquareIt方 法 
     lngResult = obj.SquareIt(lngArgument) 
     
     MsgBox "The Square of " & lngArgument & _ 
     " is " & lngResult 
     
     '結 束 
<END>