這 要 利 用 Excel的 Application.Run方 法 。 具 體 做 法 如 下 ： 
    假 設 你 的 Book2.xls中 有 一 個 HelloWorld的 宏 ： 
    Sub HelloWorld(sName As String) 
     MsgBox "Hi, " + sName +"!" 
    End Sub 
    在 VB中 采 用 如 下 代 碼 就 可 以 調 用 Excel的 宏 。 
     Dim appExcel As Object 
     Set appExcel = CreateObject("Excel.Application") 
     appExcel.Visible = True 
     appExcel.Workbooks.Open "G:\My Documents\book2.xls" 
     appExcel.Run "HelloWorld", "zhixiong lin" 
<END>