標題: [分享] 用VBA呼叫vbscript執行指令 [打印本頁]

---

作者: white5168    時間: 2012-5-6 21:38     標題: 用VBA呼叫vbscript執行指令

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

相關的程式碼如下

1. Option Explicit '強制檔案中的所有變數都需明確宣告

複製代碼

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

複製代碼

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)