用ExcelPython在Excel中调用Python

介绍

ExclePython 是一款轻量级的COM库，它支持你从Excel VBA中调用Python代码和运行Python其他功能（确实任何语言都支持COM）。这篇文章我将展示你如何去使用它。

背景

虽然excel的市场地位正日益面临免费的（OpenOffice）和云软件（Google Sheets）的挑战和逐渐取代的风险，但是Excel依然是现在办公环境中，使用范围最广、用户界面友好的数据处理软件。能够实现从Excel中调用python，得益于Excel拥有庞大收集能力的库和强大的语言能力。ExcelPython 是一款处理性的COM库，它能让你加载python模块，调用程序和运行函数。另外一些Excel/Python接口工具，例如PyXLL和Python-Excel，它们同样都是很优秀的工具，只是与ExcelPython在功能上和适用性上有些微差别。ExcelPython的优势有：

1. 免费（不用购买和免费协议）

2. 小而轻

3. 高度嵌入：似乎采用已经打包好的python函数，所以可以在不安装python情况下表格程序可以扩展使用；

4. 对最终用户高度透明：python由Excel VBA调用所以没有不需要其他另外的中间程序插入，即使是表格程序已经升级了；

5. 通用性：任何存在的Python模块和函数都可以调用，以及任何Python对象都可以被处理，另外，ExcelPython不必写入额外的Python代码来做可调用的函数，可以直接调用Python的的各种库；

使用代码

如果你想了解最基本的关于如何使用这个库的功能的话，直接登录ExcelPython在SourceForge的网友，那里你会找到一个维基条目，可以一步步指引你如何操作。

在本章介绍中，我们将展示下利用ExcelPython去合并收集到的列表，排列他们的数据以及删除任意副本。这是一个非常简单的python任务，只需要几行代码，而如果用VBA代码来实现同样功能则需要更多的代码。

以下是我们在Excel中准备调用的python代码：

def merge_sort_unique(lists):

s = set

for L in lists:

s.update(L)

return sorted(s)

任意在本地建立一个目录，并保存这个代码并命名为Methods.py。我们一步步看看如何从Excel的工作表中如何调用这个脚本。打开Excel，填写一些数据以便提供python脚本处理，并保持这个表格于刚才的python脚本在同一目录下。你的工作表应该如下：

接下来，打开VBA并提交给ExcelPython。打开VBA按Alt + F11然后进入工具界面的References···如果你已经正确安装了ExcelPython你可以从对话框中选择。

如图选择你就可以引用ExcelPython库了，输入?PyVar(PyEval("1+2")) 在弹窗里（如果没有弹窗请按 Ctrl + G），你会直接看到结果。

现在，我们准备调用python脚本，创建一个新的模块（Insert | Module）并敲以下VBA代码：

Function msu(lists As Range)
Set methods = PyModule("Methods", AddPath:=ThisWorkbook.Path)
Set result = PyCall(methods, "merge_sort_unique", PyTuple(lists.Value2)) msu = WorksheetFunction.Transpose(PyVar(result))
Exit Function
End Function

让我们一行行来解析下：

Set methods = PyModule("Methods", AddPath:=ThisWorkbook.Path)

这里首先是导入python模块，也就是从我们预先建好的Methods.py所在的目录中导入，并存储成为VBA的模块变量。也就是说现在VBA函数拥有了一个本地的叫methods的变量，它直接调用的其实是python模块，注意AddPath参数，这里要填入我们一开始定义python脚本的路径-这里我们输入对应路径以便找到我们的Methods.py。

接下来我调用 merge_sort_unique：

Set result = PyCall(methods, "merge_sort_unique", PyTuple(lists.Value2))

ExcelPython 的PyCall模块选择一个待处理列，这个列会被PyTuple模块处理，你也可以通过 PyDict模块自由选择任意指定的列。这里被处理的结果会作为VBA的一个结果变量。

这个结果变量现在是一个python的list对象，它还不能直接导回到工作表（会导致一个typeerror）。所以，最后一步，我们用PyVar模块来对python的list对象做编码转换。

msu = WorksheetFunction.Transpose(PyVar(result))

PyVar模块一般会将python对象转换和VBA相同的编码，这里面，可能使用是将python lsit-of-lsits 转换成2D数组。更多的细节请在Excelpython的维基上查询。

现在我们看看是否成功运行！在工作表创建一个数组块（选择多个表格，输入公式并按 Ctrl-Shift-Enter）输入公式=msu(A1:C16)。你会看到以下结果：

如果没有成功，别担心，ExcelPython非常容易debug，按下面修改VBA代码

Function msu(lists As Range)
On Error GoTo do_error
Set methods = PyModule("Methods", AddPath:=PyPath)
Set result = PyCall(methods, "merge_sort_unique", PyTuple(lists.Value2)) msu = WorksheetFunction.Transpose(PyVar(result))
Exit Function
do_error: msu = Err.Description
End Function

这样任何错误都可以被抓取并打印在工作表中，你可以分析哪里出错。最后说明一点，这个功能会返回一个0,在列表的开头，即使这个0并不存在任何的列当中，实际上这是python的一个空值作为一个开始写进到工作表的。为什么函数会返回一个空值在被处理的数据中呢？

原因在于导入的出来的几个列都是不同长度的，所以空的表格也会作为一个数据块，会被当做一个VBA空的值。这个值也会被封装成一个空值传给python，所以导入处理的数据块其实是包含了一个空值的，一个快速解决方法是，修改merge_sort_unique参数，它可以从返回的值当中去掉空值：

def merge_sort_unique(lists):

s = set

for L in lists:

s.update(L)

s.remove(None)

return sorted(s)

所以你要做的就是修改Methods.py，保存并按F9重新计算表格数据——ExcelPython会自动加载python脚本模块，对于提升excel的python接口脚本的互动性非常有帮助。