----------------------------------------------------
利用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"