iT邦幫忙

DAY 27
8

WSH研習記錄系列 第 29

WSH研習記錄--Office應用程式操作篇(Excel應用二)

可以開啟活頁簿、關閉活頁簿
那儲存呢??
儲存活頁簿(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」檔案

提供給有需要的人..


上一篇
WSH研習記錄--Office應用程式操作篇(Excel應用一)
下一篇
WSH研習記錄--Office應用程式操作篇(Excel應用三)
系列文
WSH研習記錄42

尚未有邦友留言

立即登入留言