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

---

作者: white5168    時間: 2012-5-6 20:57     標題: 用VBA呼叫pyhon執行指令

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

相關的程式碼如下, 有需要了解python或討論的可以相互切磋

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

複製代碼

1. Sub ExcelVBACallPython1()
   
2.     Dim PyScript : Set PyScript = CreateObject("MSScriptControl.ScriptControl") '直接宣告一個使用 Microsoft Script control 1.0的物件, 使用CreateObject方式可以免除在 "設定引用項目" 勾選Microsoft Script control 1.0項目
   
3.     PyScript.Language = "python" '選擇所要使用的Script語言,可以使用的Script,如JavaScript, VBScript
   
4.     PyScript.ExecuteStatement ("b=2+5*3") '給python的執行指令
   
5.     MsgBox PyScript.Eval("b") '顯示要python的執行指令的結果
   
6. End Sub

複製代碼

也可以使用以下的寫法

1. Sub ExcelVBACallPython2()
   
2.     Dim PyScript: Set PyScript = CreateObject("MSScriptControl.ScriptControl") '直接宣告一個使用 Microsoft Script control 1.0的物件, 使用CreateObject方式可以免除在 "設定引用項目" 勾選Microsoft Script control 1.0項目
   
3.     PyScript.Language = "python" '選擇所要使用的Script語言,可以使用的Script,如JavaScript, VBScript
   
4.     MsgBox PyScript.Eval("2+5*3") '顯示要python的執行指令的結果
   
5. End Sub

複製代碼

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

---

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