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

以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题.对一些VB初学者很用.

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