时间戳

首页 > 解决方案 > 从 VBA 调用 Python - 返回 Python 函数值

python - 从 VBA 调用 Python - 返回 Python 函数值

问题描述

我从 VBA 调用 Python 脚本。这个 Python 脚本的结构是一个没有其他任何东西的函数：

def myFunction():
    # do stuff
    return stuff_output

我知道这个函数可以正常工作，因为如果添加，print(myFunction())会在命令行中生成正确的输出（JSON 响应）。

在我的 VBA 代码中，“RetVal”始终是一个 4 位整数值。也许 Python 函数甚至没有被执行？

哪些代码以及我应该如何修复以使其工作？如果可能的话，我希望有一个接近我当前代码并且没有外部库的解决方案。

Option Explicit

Sub RunPython()

    Dim RetVal
    Dim scriptPath As String

    scriptPath = "C:\Users\Rychu\Desktop\python\myPythonScript.py"
    RetVal = Shell("C:\Python36-32\python.exe" & " " & scriptPath, vbHide)

    If RetVal = 0 Then
        MsgBox "Couldn't run python script!", vbOKOnly
    Else
        Debug.Print RetVal
    End If

End Sub

标签： pythonvba

解决方案

我找不到任何直接的方法来传输 Python 函数返回的值，所以我通过将 Python 结果保存到桌面上的文本文件并使用 VBA 读取+删除相同的文件来处理它。

重要的事情是：

  1. shellObj.Run不像Shell允许设置一个布尔参数来等待返回True，这样 VBA 代码的其余部分就不会尝试从文本文件中获取数据，而还没有创建任何数据。

  2. 如果文本文件没有指定完整的文件路径，只有文件名，Python 不会在 Python 脚本所在的目录中创建文本文件，就像我通过命令行或 Visual Studio 运行脚本时发生的那样。显然，当从 VBA 调用时，Python 对默认目录有不同的看法，它也不是 VBA 文件的目录。

这是我的 Python 代码：

def myFunction():
    # do stuff
    return stuff_output

import os

f = open(os.path.expanduser("~\Desktop") + "\myTemp.txt","w")   #create a new text file on Desktop in write mode
f.write(str(myFunction()))  #write output to created text file 
f.close()   #close file object

这是我的 VBA 代码：

Option Explicit

Sub RunPython()

    Dim shellObj As Object: Set shellObj = CreateObject("WScript.Shell")
    Dim tempTxtPath As String

    Const scriptPath As String = "C:\Users\Rychu\Desktop\python\myPythonScript.py"
    Const pythonPath As String = "C:\Python36-32\python.exe"
    tempTxtPath = CreateObject("WScript.Shell").specialfolders("Desktop") & "\myTemp.txt"

    shellObj.Run pythonPath & " " & scriptPath, vbHide, True

    Debug.Print (getTextAndDelete(tempTxtPath))

End Sub

Function getTextAndDelete(filePath) As String

    Dim fileNum As Long
    Dim myData As String

    fileNum = FreeFile
    Open filePath For Binary As #fileNum

    myData = Space$(LOF(1))
    Get #fileNum, , myData
    Close #fileNum

    Kill filePath

    getTextAndDelete = myData

End Function

推荐阅读