iT邦幫忙

DAY 26
4

WSH研習記錄系列 第 28

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

還記得剛開始的時候
有分享過一篇「WSH研習記錄--案例:OpenIE小嘗試
這是用來開啟IE應用程式的
當然除了IE應用程式之外,OFFICE的應用程式也是可以用同樣的方式來啟動的..
一、啟動Excel
在VBScript之中,可使用Active X自動化技術來自由地操作Excel
只需使用CreateObject物件來指定Excel.Application物件產生
範例:

With CreateObject("Excel.Application")
	.Visible = True
	.Workbooks.Add
End With

跟之前開啟IE應用程式的方式很像吧..

二、開啟活頁簿(Open方法)
開啟已存在活頁簿的方式可使用Excel.Workbooks物件的Open方法來開啟
範例:

Option Explicit

Private BookPath

With CreateObject("Scripting.FileSystemObject")
	BookPath = .BuildPath _
		(.GetParentFolderName(WScript.ScriptFullName) _
		, "001.xls")
End With

With CreateObject("Excel.Application")
	.Visible = True
	.Workbooks.Open BookPath
End With

事先製作一份Execl檔案--001.xls
將檔案放在跟程式檔存在的同一個資料夾裡
執行後,它將會幫你開啟001.xls檔

三、關閉活頁簿(Close方法)
即然可以開啟活頁簿,當然也是可以關閉活頁簿
使用Excel.Workbooks物件的Close方法來關閉活頁簿
範例:

Option Explicit

Private Book

With CreateObject("Excel.Application")
	.Visible = True
	Set Book = .Workbooks.Add
	Book.ActiveSheet.Range("A1").Value = "Good !!"
	MsgBox "準備關閉已製作的活頁簿!!"
	Book.Close False
End With
Set Book = Nothing

在程式中,先利用CreateObject物件啟動Excel應用程式
在活頁簿的「A1」儲存格裡填入「Good !!」
再將這個活頁簿關閉
但是它並不會將Excel應用程式給關閉..

提供給有需要的人..


上一篇
WSH研習記錄--磁碟操作篇(取得磁碟的容量)
下一篇
WSH研習記錄--Office應用程式操作篇(Excel應用二)
系列文
WSH研習記錄42

尚未有邦友留言

立即登入留言