关于python的xlwings与VBA间的互相调用

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__)

import xlwings as xw
def my_macro():
    wb = xw.Book.caller()#另VBA反选调用Python函数
    wb.sheets[0].range('A1').value = 'hello xlwings'

Option Explicit
Sub demo()
    RunPython ("from caller import my_macro;my_macro()")
End Sub

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()

Sub SampleCall()
    mymodule = Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1))
    RunPython "import " & mymodule & ";" & mymodule & ".main()"
End Sub

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()

Option Explicit
Sub 宏1()
    With ThisWorkbook.Worksheets(1)
        .Cells(1, 1).Value = "实验！"
    End With
End Sub