如何在excel中调用vb程序.txt

VB技巧问答10000例 VB技巧问答10000例

比 较 好 的 办 法 是 编 写 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>