Question

求高手帮忙写个VBS代码：

百度知道提问地址http://zhidao.baidu.com/question/572401034?quesup2&oldq=1

Answer 1

Option Explicit

Dim objXLApp

Dim objXLBook

Set objXLApp = WScript.CreateObject("Excel.Application")
Set objXLBook = objXLApp.Workbooks.Open("数据.xls" )
objXLApp.Run "执行"

objXLBook.Save

objXLBook.Close
Set objXLBook = objXLApp.Workbooks.Open("分表.xls" )
objXLApp.Run "执行"

objXLBook.Save

objXLBook.Close
Set objXLBook = objXLApp.Workbooks.Open("总表.xls" )
objXLApp.Run "执行"

objXLBook.Save

objXLBook.Close
Set objXLBook = Nothing

objXLApp.Quit

Set objXLApp = Nothing

WScript.Quit