关于python的xlwings与VBA间的互相调用
作者：西伯利亚的长颈鹿
一、知识储备
xlwings是一款python操作Excel的库。可以通过python结合如Pandas，Numpy、等数据分析库，使得数据统计或者数据分析更为方便。其最主要的优点就是可以与Excel自带的VBA语言进行交互使用。
语法部分可参考之前的笔记：使用Python的xlwings操作Excel的属性和方法
本次内容主要针对VBA与python之间的交互
二、VBA程序调用Python代码
准备工作
需要先将xlwings操作工具栏嵌入到Excel中去
（1）首先需要知道xlwings包的安装位置，不知道的话可以通过查看 xlwings任意函数的__code__获取函数的所在路径来找到安装位置。
import xlwings as xw
app=xw.App(visible=True,add_book=False)#新建工作簿
app.display_alerts=False#关闭用户提示
app.screen_updating=False#关闭屏幕刷新
FilePath=r'example.xlsx'#文件路径
wb=app.books.open(FilePath)#打开Excel文档
wb.save('example.xlsx')#另存为
wb.close()#关闭工作簿
app.quit()#退出Excel
print(wb.save.__code__)
例如这边的位置在"C:\ProgramData\Anaconda3\envs\Data\lib\site-packages\xlwings"的位置
（2）进入addin文件夹，找到xlwings.xlam文档，双击打开（前提是已经装好了Excel VBA）
之后Excel界面便会增加xlwings工具需要Powershell Prompt上输入xlwings addin install指令
需要在Excel上永久出现xlwings插件需要在xlwings addin install
（3）需要先勾选RunPython:Use UDF Server，左边的interpreter需要填入Python.exe的路径，PYTHONPATH填入所调用python脚本文件的路径（不包括文档名）如D:\Python\code，UDF Modules填入文档名,如Test.py注意为.py后缀文件。
当然也可以在在PYTHONPATH填入完整路径如D:\Python\code\Test.py,UDF Modules不填入内容。
注意：Python.exe的路径是指所安装xlwings库所在的Python.exe路径，路径下需要存有xlwings的.dll档
（4）在test.py文件中输入代码：
import xlwings as xw
def my_macro():
wb = xw.Book.caller()#另VBA反选调用Python函数
wb.sheets[0].range('A1').value = 'hello xlwings'（5）在VBA中添加引用，勾选xlwings
（6）在VBA文件中写入
Option Explicit
Sub demo()
RunPython ("from caller import my_macro;my_macro()")
End Sub（7）运行VBA代码
完成VBA调用python代码
（8）或是在Powershell Prompt的界面，输入xlwings quickstart filename（filename为文件名），即可在路径下生成一个文件夹，包含一个.py文件和一个.xlsm文件
内部python代码为
import xlwings as xw
def main():
wb = xw.Book.caller()
sheet = wb.sheets[0]
if sheet["A1"].value == "Hello xlwings!":
sheet["A1"].value = "Bye xlwings!"
else:
sheet["A1"].value = "Hello xlwings!"
@xw.func
def hello(name):
return f"Hello {name}!"
if __name__ == "__main__":
xw.Book("filename.xlsm").set_mock_caller()
main()VBA代码为
Sub SampleCall()
mymodule = Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1))
RunPython "import " & mymodule & ";" & mymodule & ".main()"
End Sub同样可以完成VBA调用python程序
三、python xlwings调用VBA模块
（1）python xlwings调用VBA则简单很多，只需找到.xlsm文件，使用macro函数进行调用即可，如下面例子
python代码：
import xlwings as xw
app=xw.App(visible=True,add_book=False)
wb=app.books.open(r'example3.xlsm')
wbobject=app.books("example3.xlsm")
marco1=wbobject.macro("模块1.宏1")
marco1()VBA代码
Option Explicit
Sub 宏1()
With ThisWorkbook.Worksheets(1)
.Cells(1, 1).Value = "实验！"
End With
End Sub
既可完成调用。
到此这篇关于关于python的xlwings与VBA间的互相调用的文章就介绍到这了,更多相关xlwings与VBA调用内容请搜索脚本之家以前的文章或继续浏览下面的相关文章希望大家以后多多支持脚本之家！