首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VBA >

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

2012-02-16 
如何在vbs文件中调用excel中的sub一共有三个文件文件一:job.xls(excel文件)有一个按钮,按钮对应一个subPri

如何在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是其响应函数。

热点排行