Python xlwings操作Excel(摸鱼划水必备技能)——(2)python xlwings与VBA间的互相调用

目录

一、知识储备

二、VBA程序调用Python代码

三、python xlwings调用VBA模块


一、知识储备

xlwings是一款python操作Excel的库。可以通过python结合如Pandas,Numpy、等数据分析库,使得数据统计或者数据分析更为方便。其最主要的优点就是可以与Excel自带的VBA语言进行交互使用。

语法部分可参考之前的笔记:https://blog.csdn.net/m0_59160272/article/details/125780599

本次内容主要针对VBA与python之间的交互

二、VBA程序调用Python代码

1、准备工作,需要先将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


既可完成调用。 

  • 2
    点赞
  • 34
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值