excel VBA通过xlwings对接python

1. excel宏设置

 注册单元格选择、单元格值改变事件，事件中调用 xlwings UDF(用户自定义)pyhon函数。

Private Sub Worksheet_Change(ByVal Target As range)
    Dim ret As Variant
    ret = PyWorkSheetChange(Target.Address(0, 0))
    If ret(0, 0) <> 0 Then
        MsgBox "[PyWorkSheetChange][Error]: ret=" & ret(0, 0)
    End If
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As range)
    ret = PyWorkSheetSelectionChange(Target.Address(0, 0))
    If ret <> 0 Then
        MsgBox "[PyWorkSheetSelectionChange][Error]: ret=" & ret
    End If
End Sub

 

2. python回调函数

os.chdir(os.path.split(os.path.realpath(__file__))[0])
print(os.getcwd())
sys.path.append(os.getcwd())
from data_utility import *
from data_utility import *


@xw.func
def get_caller_address(caller):
    # caller will not be exposed in Excel, so use it like so:
    # =get_caller_address()
    return caller.address


@xw.func
def PyWorkSheetChange(range):
    wbName = xw.Book.caller().name
    shtName = xw.Book.caller().sheets.active.name
    print("[Info]:[SheetChange][%S][%s]: range=%s" % (wbName, shtName, range))
    return 0


@xw.func
def PyWorkSheetSelectionChange(range):
    wbName = xw.Book.caller().name
    shtName = xw.Book.caller().sheets.active.name
    print('[Info]:[SelectionChange][%s][%s]: range=%s' % (wbName, shtName, range))
    get_reg_value(range)
    return 0

3. 工程示范

重启UDF服务，会弹出一个用于显示程序打印输出的命令行窗口。

鼠标点击后，将点击事件和点击位置传给python，python对数据进行处理后，显示到相应单元格。

可以实现python作为后端，excel作为显示前端，excel的基本按操作与用户进行交互。

示范工程下载

excel_VBA_xlwings工程-Python文档类资源-CSDN文库