怎么在vbs文件中调用excel中的sub

如何在vbs文件中调用excel中的sub
一共有三个文件

文件一：job.xls（excel文件）
有一个按钮，按钮对应一个sub
Private Sub CommandButton1_Click()
  MsgBox "good job"
End Sub

文件二：run.bat
内容：
@echo off
cscript /nologo consolidate.vbs


文件三：consolidate.vbs

现在就是想运行run.bat，run.bat会调用consolidate.vbs，consolidate.vbs调用excel文件的CommandButton1_Click()
问题：consolidate.vbs里的代码怎么写呢，也就是如何在vbs文件中调用excel中的sub

------解决方案--------------------------------------------------------
Set objExcel = CreateObject("Excel.Application")

objExcel.Workbooks.Open("d:\Book1.xls")
objExcel.Run("Sheet1.CommandButton1_Click")
objExcel.Workbooks.Close()

Book1.xls的sheet1中添加了一个按钮，CommandButton1_Click是其响应函数。