excelVBA通过xlwings对接python
excelVBA通过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(alpath(__file__))[0])
wd())
sys.path.wd())
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的基本按操作与⽤户进⾏交互。
武汉热干面⽰范⼯程下载

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。