从VB脚本

Question

嗨调用宏，我尝试使用以下VB脚本中调用TEST.XLS宏

Option Explicit 

Dim returnVal 
returnVal = 0 
WScript.Echo returnVal 

Dim xlApp, xlBook 

Set xlApp = CreateObject("Excel.Application") 
Set xlBook = xlApp.Workbooks.Open("D:\test.xls", 0, True) 
xlApp.Run "macro1" 
xlBook.Close false 
xlApp.Quit 

Set xlBook = Nothing 
Set xlApp = Nothing 

WScript.Echo returnVal 
''WScript.Quit returnVal 

在TEST.XLS宏定义是：

Dim returnVal as Boolean 
sub macro1() 
    returnVal = 1 
    Exit Sub 
... 
End Sub 

当我尝试运行VB脚本我得到一个值为0的弹出窗口（这是我在开始时所做的回声）。然后我再次弹出一个值为0的窗口。看起来来自宏的值没有被返回。

我在哪里错了。

感谢， 莫妮卡

Answer 1

定义宏的功能：

Function macro1() 
    macro1 = 1 
End Function 

，然后得到的值：

returnVal = xlApp.Run("macro1", "My Application") 

可以找到更多的例子：
http://support.microsoft.com/kb/306682