如何用單元格數(shù)據(jù)作為Excel工作簿名稱

如何用單元格數(shù)據(jù)作為Excel工作簿名稱

　　Excel中，通常用Book1、Book2……作為工作簿名稱。能不能讓Excel采用我們選定的某個(gè)單元格中的數(shù)據(jù)做為工作簿名稱來(lái)保存文檔呢?答案是肯定的。

　　1、啟動(dòng)Excel，執(zhí)行“工具→宏→Visual Basic 編輯器”命令，進(jìn)入VBA編輯狀態(tài)。

　　2、在左側(cè)的“工程資源管理器”窗口中，選中“VBAproject(PERSONAL.XLS)”(個(gè)人宏工作簿)選項(xiàng)。

　　3、執(zhí)行“插入→模塊”命令，插入一個(gè)模塊(模塊1)。

　　4、將下述代碼輸入到右側(cè)的代碼編輯窗口中：

　　Sub baocun() lj = InputBox("請(qǐng)輸入文檔保存路徑") ActiveWorkbook.SaveAs Filename:=lj & ActiveCell.Value & ".xls" End Sub

　　退出VBA編輯狀態(tài)。

　　5、以后要保存某個(gè)工作簿文檔時(shí)，先選中作為名稱的字符所在的單元格，然后執(zhí)行“工具→宏→宏”命令，打開(kāi)“宏”對(duì)話框。

　　6、選中剛才編輯的宏(PERSONAL.XLS!baocun)，單擊“執(zhí)行”按鈕，系統(tǒng)彈出對(duì)話框。

　　7、輸入保存文檔的路徑(如“E:office技巧”)，單擊“確定”按鈕。

　　文檔保存成功

　　注意：如果不需要保存路徑，文檔將被保存到“我的文檔”文件夾中。