我在工作中經常要處理EXCEL表格,有一批表格只要更改1、2處內容,然後要不停的另存為以更改後的內容為文件名命名的新表格,比方說:更改內容“DD123”“WW145”,然後要另存為“DD123-WW145.xls”。要不斷的重複、不斷的重複、不斷的重複,我的生命就在這樣重複之中慢慢被耗光。
還好我是個懶人,一個真正的懶人是不會讓生命就此無意義的流失的,於是改造就此開始,跟我來吧。
因為家裡沒裝微軟的office,就用WPS代替吧。
工具/原料
微軟的office或者WPS
方法/步驟
首先我們為excel添加一個按鈕。
然後把按鈕名稱改為“另存為”。
然後雙擊這個按鈕,進行這個按鈕的代碼編寫。開始和結尾已經自動寫好了。
在代碼的開始和結尾之間插入我們要用的代碼,我把代碼也寫一下吧,方便複製。
-------------------以下是代碼-----------------------------------
'已B3單元格-C3單元格內容為文件名另存一份到當前目錄下
ThisWorkbook.SaveCopyAs Filename:=ThisWorkbook.Path & "\" & Range("B3") & "-" & Range("C3").Value & ".xls"
'保存活動的工作簿
ActiveWorkbook.Save
-------------------以上是代碼-----------------------------------
已英文單引號開頭的內容是註釋,不參與代碼運行。
WPS和微軟的office還是有一定的區別的,工作上我完全使用office,推薦用新一點的版本,不要再用2003了,雖然經典但畢竟時代在進步。
編輯好按鈕的代碼WPS需要按“退出設計”才能運行。
然後就可以了,改一個內容,按一下另存為,我使用過程中,效率提升在50%以上,配合一些別的代碼,效率輕輕鬆鬆翻倍。
注意事項
office的版本不同,代碼並不一定能通用,我是已office2013為基礎設計的代碼。