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

VB技巧问答10000例,是一个教程

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