前言
當(dāng)年看《別怕匕坯，Excel VBA其實(shí)很簡(jiǎn)單》相見恨晚束昵，看了第一版電子版之后，買了紙質(zhì)版葛峻，然后將其送人锹雏。而后，發(fā)現(xiàn)出了第二版术奖，買之收藏礁遵。之后轻绞，發(fā)現(xiàn)Python這一編程語(yǔ)言，簡(jiǎn)直是逆天佣耐，業(yè)余非程序員的福音政勃。人生苦短，我用python兼砖。簡(jiǎn)短幾句代碼奸远，實(shí)現(xiàn)好多自己不敢想的功能。
自學(xué)VBA發(fā)現(xiàn)對(duì)VBA和python讽挟，我有著這樣幾個(gè)看法：（只是針對(duì)自動(dòng)化辦公）
- 非專業(yè)表哥懒叛，只是普通辦公，希望偶爾遇到點(diǎn)重復(fù)的工作可以自動(dòng)化一下耽梅。VBA對(duì)于我來(lái)說(shuō)薛窥，要記得東西還是太多了，語(yǔ)法上不簡(jiǎn)潔眼姐。每寫一個(gè)功能拆檬，代碼太長(zhǎng)了。
- VBA雖然在很多程序都有接口妥凳，但是竟贯，應(yīng)用范圍還是略窄，對(duì)于一般用戶深入學(xué)習(xí)后逝钥，但是屑那，應(yīng)用場(chǎng)景太少。有任務(wù)驅(qū)動(dòng)艘款，才有動(dòng)力去提高水平持际。
- Python運(yùn)行速度絕對(duì)不算快的，但是哗咆，絕對(duì)比在Excel中運(yùn)行VBA的速度還是要快很多
- Python語(yǔ)言簡(jiǎn)潔（python大法好）蜘欲，模塊豐富，有好多大神造好的輪子等著我們?nèi)ビ谩?/li>
- Python應(yīng)用范圍廣晌柬，既能幫我解決偶爾遇到的表格問(wèn)題姥份，也能和其他各種軟件或者平臺(tái)聯(lián)接起來(lái)。
運(yùn)用Python自定義宏（僅限Windows)
- 準(zhǔn)備工作
- 安裝xlwings模塊
- 下載模版文件年碘，百度網(wǎng)盤鏈接：xlwings自定義宏和函數(shù)模版
文件列表
其中澈歉，自定義模版可以修改名稱，mymacro為自定義宏的python文件屿衅，myfun為自定義函數(shù)的python文件埃难。 -
設(shè)置Excel信任中心，信任對(duì)VBA工程對(duì)象模型的訪問(wèn)
信任中心設(shè)置
- 自定義宏
用記事本打開mymacro0，輸入下列語(yǔ)句：
import xlwings as xw
@xw.sub
def my_macro():
wb = xw.Book.caller()
wb.sheets[0].range('A1').value = wb.name
則宏名稱為my_macro的宏就編寫好了,將工作簿的名稱輸入到A1單元格涡尘。自定義宏只需要前兩句不變忍弛，后面內(nèi)容自己編寫，即自定義宏需要以下面的語(yǔ)句為開頭
import xlwings as xw
@xw.sub
運(yùn)行方式：先alt+F8運(yùn)行ImportPythonUDFs內(nèi)置宏考抄，導(dǎo)入我們的自定義宏和函數(shù)细疚，導(dǎo)入后，再運(yùn)行我定義的my_macro宏座泳。
- 自定義函數(shù)
準(zhǔn)備工作是一致的惠昔，打開myfun0，寫入第一個(gè)自定義函數(shù)：
import xlwings as xw
@xw.func
def myfun():
wb = xw.Book.caller()
return wb.name
注意挑势，開頭語(yǔ)句為@xw.func而不是@xw.sub了镇防，然后函數(shù)相對(duì)于宏，有返回值潮饱，所以用了return語(yǔ)句来氧。自定義好函數(shù)之后，剛可以像Excel自帶函數(shù)一樣的去使用了香拉。如在A1單元格輸入”=myfun()"啦扬，則會(huì)得到工作簿的名稱。
結(jié)束
本文給出了xlwings模塊自定義宏和函數(shù)的模版凫碌，然后簡(jiǎn)單介紹了如何去定義宏和函數(shù)扑毡。注意：
- 一個(gè)python文件，只能定義一個(gè)宏或者函數(shù)盛险，所以模版中已經(jīng)默認(rèn)分別給出了三個(gè)宏和函數(shù)文件瞄摊，方便直接使用。
- python文件的名稱和相對(duì)文件位置不能改變苦掘，Excel文件的文件位置不能改變换帜，名稱可以改變。如需修改鹤啡，請(qǐng)參考xlwings官方文檔惯驼。
參考資料
xlwings官網(wǎng)
插上翅膀，讓Excel飛起來(lái)——xlwings（一）
插上翅膀递瑰，讓Excel飛起來(lái)——xlwings（二）
插上翅膀祟牲，讓Excel飛起來(lái)——xlwings（三）
