[分享] 用VBA呼叫vbscript執行指令

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-5-6 21:38 | 只看該作者

本帖最後由 white5168 於 2012-5-6 23:23 編輯

相關的程式碼如下

複製代碼

Sub ExcelVBACallVBScript()
Dim vbscript: Set vbscript = CreateObject("msscriptcontrol.scriptcontrol") '直接宣告一個使用 Microsoft Script control 1.0的物件, 使用CreateObject方式可以免除在 "設定引用項目" 勾選Microsoft Script control 1.0項目
vbscript.Language = "vbscript" '選擇所要使用的Script語言,可以使用的Script,如JavaScript, VBScript
vbscript.AddCode "sub aa(): msgbox ""hello.."":end sub " '使用VBA寫一段vbscript的程式碼,並命名此段程式碼的函數名稱為aa,aa的函數要做的動作是做顯示"hello.."
vbscript.Run "aa" '使用VBA去呼叫剛剛寫好的vbscript aa()的函數
End Sub

複製代碼

PS:身為Programmer該在程式內加上註解,以方便未來回頭複習時可以快速了解,也讓其他人可以順利學習,請養成良好程式撰寫時加註解的習慣

靜思自在 : 改變自己是自救，影響別人是救人。