導(dǎo)讀：在Excel中利用VBA可以輕松快捷地對(duì)批量文件進(jìn)行重新命名。

實(shí)例描述：小姚是車間的計(jì)算機(jī)管理員，他有一項(xiàng)工作是負(fù)責(zé)給員工照相。最近，他接到了一個(gè)任務(wù)，要求他把在E盤的照片文件夾中存放有以員工檔案號(hào)命名的員工照片根據(jù)Excel工作表中的記錄以隊(duì)組號(hào)加姓名的方式重新命名，并且按隊(duì)組分好（圖1）。

圖1

實(shí)例分析：在實(shí)例中有1000多條記錄和1000多個(gè)照片文件，那對(duì)于小姚的任務(wù)，如果我們對(duì)照工作表一個(gè)個(gè)在照片文件夾中更改，我們的工作量是可想而知的。有沒(méi)有什么辦法能夠輕輕松松的幫助小姚完成這項(xiàng)任務(wù)呢？當(dāng)然有，我們只需在Excel中編寫幾句VBA語(yǔ)句，就可以在幾秒鐘內(nèi)輕松完成任務(wù)。如果你想知道，這項(xiàng)任務(wù)是怎么完成的，就跟我來(lái)吧！

編寫VBA代碼

這個(gè)過(guò)程主要是在Excel中編寫VBA代碼，通過(guò)代碼判斷照片是否存在，如果存在則用Name命令對(duì)照片文件進(jìn)行重命名。

首先，打開(kāi)Excel 2003，點(diǎn)擊“工具→宏→Visual Basic編輯器”菜單，這時(shí)就會(huì)彈出Microsoft Visual Basic程序窗口，也就是VBA的編輯器。在VBA編輯器窗口中選擇“插入→模塊”菜單，這時(shí)在右側(cè)可以看到空白的代碼編輯區(qū)域，我們可以嘗試著輸入圖中代碼（圖2）。（下載地址：http://iask.sina.com.cn/u/ish?uid=1704202287）

圖2

在上述代碼中，只用了一個(gè)過(guò)程“照片重命名”。在這個(gè)過(guò)程中，首先用Dim命令定義了oldname、newname、photopath、nophoto、i這5個(gè)變量，分別用于臨時(shí)存放舊文件名、新文件名、照片文件夾、錯(cuò)誤提示及循環(huán)變量。圖中方框①處的作用是調(diào)出文件夾選擇窗口，并把選擇的文件夾賦給變量photopath。接下來(lái)，利用MsgBox函數(shù)進(jìn)行了人性化的人機(jī)交流，詢問(wèn)是否對(duì)文件進(jìn)行重命名，如果是程序繼續(xù)執(zhí)行，否則退出過(guò)程。圖中方框②處利用FOR…NEXT循環(huán)語(yǔ)句來(lái)讀取工作表中的每條記錄，Worksheets("照相順序表").Range("a65536").End(xlUp).Row表示從A65536這個(gè)單元格向上的非空單元格，即工作表中所使用的總行數(shù)；.Range("a" & i)表示單元格中的值。代碼中用newname變量取得單元格的值，即新文件名，用oldname變量取得C列單元格的值，即舊文件名，然后用Dir函數(shù)進(jìn)行判斷是否存在以舊文件名命名的文件，如果存在則用Name命令進(jìn)行重新命名，如果不存在則把錯(cuò)誤信息給變量nophoto，最后用MsgBox函數(shù)顯示錯(cuò)誤信息。

為按鈕添加事件

為了操作方便我們可把上面我們編寫的過(guò)程放到一個(gè)按鈕上。首先，我們?cè)贓xcel中選擇“視圖→工具欄→窗體”菜單，在“窗體”工具欄上點(diǎn)擊“按鈕”，按住鼠標(biāo)左鍵根據(jù)需要拖出一個(gè)按鈕。在彈出的“指定宏”的窗口中，我們選擇過(guò)程“照片重命名”，點(diǎn)擊確定后退出。最后，在按鈕的標(biāo)簽處單擊，修改按鈕的標(biāo)簽，如更改為“文件重命名”（圖3）。

圖3

激活VBA代碼

要想使這些事件即VBA代碼起作用，我們需要調(diào)整宏的安全性。選擇“工具→宏→安全性”，把宏的安全性設(shè)置為“低”，這樣你才能順利的運(yùn)行VBA代碼。點(diǎn)擊“文件重命名”按鈕，就會(huì)發(fā)現(xiàn)“照片”文件夾中的文件名字已改成了隊(duì)組編號(hào)加姓名的方式了（圖4）。

圖4

對(duì)照片文件夾中的文件重新命名之后，我們可以在文件夾中右擊，選擇“排列圖標(biāo)→名稱”菜單，將文件按照名稱重新排列，這時(shí)就會(huì)把同一個(gè)隊(duì)組的文件放到一起了，我們可以把它們移動(dòng)到相應(yīng)的隊(duì)組文件夾中，就相應(yīng)地完成了按隊(duì)組分類。