可以開啟活頁簿、關閉活頁簿
那儲存呢??
儲存活頁簿(Save方法、SaveAs方法)
在Excel.Workbook物件中
使用Save方法可將活頁簿做覆蓋寫入
若是遇到未曾被儲存的活頁簿
則會在Excel目前資料夾中，以該活頁簿的名稱來做儲存

這裡以「SaveAs方法」做一個範例：

Private tmp
Private ThisDir
Private BookPath

With CreateObject("Scripting.FileSystemObject")
	tmp = WScript.ScriptFullName
	ThisDir = .GetParentFolderName(tmp)
	tmp = .GetBaseName(tmp)
	BookPath = .BuildPath(ThisDir, "Test.xls")
End With

With CreateObject("Excel.Application").Workbooks.Add
	.Application.Visible = True
	.ActiveSheet.Range("A1").Value = "Hello ～"
	.ActiveSheet.Range("A2").Value = "Good ～"
	.ActiveSheet.Range("B1").Value = "World !!"
	.ActiveSheet.Range("B2").Value = "Job !!"
	.SaveAs BookPath
	WScript.Sleep 1000
	.Close
End With

開啟一個Excel應用程式，並在活頁簿上輸入一些文字
並把它另存成「Text.xls」檔案

提供給有需要的人..