标签:VBA caller End python xlwings ret range os xw
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. 工程示范
excel_VBA_xlwings工程-Python文档类资源-CSDN文库
标签:VBA,caller,End,python,xlwings,ret,range,os,xw 来源: https://blog.csdn.net/dndxjj/article/details/122613914
本站声明: 1. iCode9 技术分享网(下文简称本站)提供的所有内容,仅供技术学习、探讨和分享; 2. 关于本站的所有留言、评论、转载及引用,纯属内容发起人的个人观点,与本站观点和立场无关; 3. 关于本站的所有言论和文字,纯属内容发起人的个人观点,与本站观点和立场无关; 4. 本站文章均是网友提供,不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属;如您发现该文章侵犯了您的权益,可联系我们第一时间进行删除; 5. 本站为非盈利性的个人网站,所有内容不会用来进行牟利,也不会利用任何形式的广告来间接获益,纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。