用VBA呼叫pyhon執行指令

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

Sub ExcelVBACallPython1()
    Dim PyScript: Set PyScript = CreateObject("MSScriptControl.ScriptControl") '直接宣告一個使用 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的物件
    PyScript.Language = "python" '選擇所要使用的Script語言,可以使用的Script,如JavaScript, VBScript
    MsgBox PyScript.Eval("2+5*3") '顯示要python的執行指令的結果
End Sub