擅长:python、mysql、java
<p>这是在我的电脑上运行的(Win 7 x64,python 2.7.9):</p>
<pre><code>Sub runpython()
Dim Ret_Val
Dim args As String
args = "W:\programming\python\other_py\sqrt.py"
Ret_Val = Shell("C:\Program Files (x86)\python27\python.exe" & " " & args, vbNormalFocus)
If Ret_Val = 0 Then
MsgBox "Couldn't run python script!", vbOKOnly
End If
End Sub
</code></pre>
<p>如果调用成功,<code>Ret_Val</code>将为非零,即已启动命令的processID。请注意,该命令将异步运行,即VBA代码的继续速度将快于外部命令的终止速度。</p>