返回列表 上一主題 發帖

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

white5168

帖子
90 
主題
16 
精華
0 
積分
114 
點名
0  
作業系統
XP 
軟體版本
sp2 
閱讀權限
20 
性別
男 
註冊時間
2011-7-9 
最後登錄
2018-10-7 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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該在程式內加上註解,以方便未來回頭複習時可以快速了解,也讓其他人可以順利學習,請養成良好程式撰寫時加註解的習慣
收藏 分享

        靜思自在 : 多做多得。少做多失。
返回列表 上一主題