有没有办法在 Excel-VBA 中调用 Python 代码？

Question

我有一个包含宏的 Excel 文件 (Main.xlsm)。我有一个 Python 文件 (python.py) 来生成一个辅助 Excel 文件 (sub.xlsx)，我将在 Main.xlsm 文件的宏中进一步调用它。这个由 py​​thon.py 运行生成的 sub.xlsx 文件保存在同一工作目录中。

现在我想让这个 python.py 在 Main.xlsm 宏运行期间执行，然后使用这个 xlsx 文件。我基本上是想减少外部执行 python.py 的步骤。有这个命令吗？我是 VBA 新手。

Answer 1

最简单的方法是使用Shell 命令运行python 解释器

Shell ("python.exe " & yourScript & " " & arguments)

Answer 2

是的，有。我首选的方法是通过 xlwings (https://www.xlwings.org/)，但还有其他几个选项。 XlWings 很棒，因为它是免费的、开源的、易于使用的，并且有很好的文档。不过有一些功能限制，因此您必须检查它是否符合您的需求。

Answer 3

有多种方法可以使用 VBA 运行 python 脚本，具体取决于您是否需要等待执行结束并知道它是否没有错误。

使用Shell，与控制台异步：

Public Sub RunPython(file As String, ParamArray args())
  Shell "python.exe """ & file & """ " & Join(args, " ")
End Sub

使用Shell，无控制台同步：

Public Function RunPython(file As String, ParamArray args())
  Shell "pythonw.exe """ & file & """ " & Join(args, " ")
End Function

使用WScript.Shell，同步无控制台和退出代码：

Public Function RunPython(file As String, ParamArray args()) As Long
  Dim obj As Object
  Set obj = CreateObject("WScript.Shell")
  RunPython = obj.Run("pythonw.exe """ & file & """ " & Join(args, " "), 0, True)
End Function

Answer 4

我有一个完整的Python month on my blog right here。我建立了一个模式，我称之为网关类，它是一个启用 COM 的 Python 类，如果从命令行运行，它将注册自己，一旦注册，就会用 CreateObject("foo.bar") 实例化。

这是 VBA 调用使用一些 scipy 函数的 Python 类的一个很好的例子

import numpy as np
import pandas as pd
from scipy.stats import skewnorm


class PythonSkewedNormal(object):
    _reg_clsid_ = "{1583241D-27EA-4A01-ACFB-4905810F6B98}"
    _reg_progid_ = 'SciPyInVBA.PythonSkewedNormal'
    _public_methods_ = ['GeneratePopulation', 'BinnedSkewedNormal']

    def GeneratePopulation(self, a, sz):
        # https://docs.scipy.org/doc/numpy-1.15.1/reference/generated/numpy.random.seed.html
        np.random.seed(10)
        # https://docs.scipy.org/doc/scipy-0.19.1/reference/generated/scipy.stats.skewnorm.html
        return skewnorm.rvs(a, size=sz).tolist()

    def BinnedSkewedNormal(self, a, sz, bins):
        # https://docs.scipy.org/doc/numpy-1.15.1/reference/generated/numpy.random.seed.html
        np.random.seed(10)
        # https://docs.scipy.org/doc/scipy-0.19.1/reference/generated/scipy.stats.skewnorm.html
        pop = skewnorm.rvs(a, size=sz)
        bins2 = np.array(bins)
        bins3 = pd.cut(pop, bins2)

        table = pd.value_counts(bins3, sort=False)

        table.index = table.index.astype(str)

        return table.reset_index().values.tolist()

if __name__ == '__main__':
    print("Registering COM server...")
    import win32com.server.register
    win32com.server.register.UseCommandLine(PythonSkewedNormal)

和调用 VBA 代码

Option Explicit

Sub TestPythonSkewedNormal()

    Dim skewedNormal As Object
    Set skewedNormal = CreateObject("SciPyInVBA.PythonSkewedNormal")

    Dim lSize As Long
    lSize = 100

    Dim shtData As Excel.Worksheet
    Set shtData = ThisWorkbook.Worksheets.Item("Sheet3") '<--- change sheet to your circumstances
    shtData.Cells.Clear

    Dim vBins
    vBins = Array(-5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5)

    'Stop
    Dim vBinnedData
    vBinnedData = skewedNormal.BinnedSkewedNormal(-5, lSize, vBins)

    Dim rngData As Excel.Range
    Set rngData = shtData.Cells(2, 1).Resize(UBound(vBins) - LBound(vBins), 2)

    rngData.Value2 = vBinnedData

    'Stop

End Sub

完整解说见原文blog entry here

这里的好处是没有炮击。当它返回的代码时，你就知道它已经完成了，脱壳一次必须检查脱壳过程是否已经结束等等。这个网关类要好得多恕我直言。