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

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-5-6 20:57 | 只看該作者

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

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

複製代碼

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

複製代碼

也可以使用以下的寫法

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

複製代碼

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

靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言，就如鑽石般珍貴；但對愚人來說，卻像是一把泥土，一點價值也沒有。