怎样通过automation直接运行excel中的宏.txt

来自「VB技巧问答10000例 VB技巧问答10000例」· 文本 代码 · 共 12 行

这 要 利 用 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>