以儲存格內容為檔名的EXCEL VBA

問題
某個實驗中,產生數十個excel檔案,希望每個excel檔案的檔名都能改成該檔案的A1儲存格的內容為檔名


解法
將以下巨集貼在「個人巨集活頁簿」中執行即可

個人巨集活頁簿其實在每次開啟EXCEL時,都會自動被開啟,但平常都看不到,因為被預設隱藏了。如果想要看到它,可以點選「檢視/取消隱藏視窗」,即可見到一個名為「PERSONAL.XLSB」的檔案

把巨集放在這個檔案裡,可以方便巨集跨檔案使用。

錄製巨集時,也可以直接指定將巨集儲存在個人巨集活頁簿。


這個檔案在win 10 的預設儲存位置是
C:\Users\user name\AppData\Local\Microsoft\Excel\XLStart 

巨集





Sub renameFileWithCellValue()

    For Each w In Application.Workbooks
        If w.Name <> "PERSONAL.XLSB" Then
            w.SaveAs Filename:=w.Path & "/" & w.Worksheets(1).Range("A1").Value
        End If
    Next w

End Sub


在儲存有巨集的檔案時,excel會以不同副檔名儲存。我已將巨集存在PERSONAL.XLSB,而這個檔案不需要另存新檔,所以必須在巨集裡偵測:「非PERSONAL.XLSB的,才會進行另存新檔」



這個網誌中的熱門文章

用顯微測微尺搭配imagej應用來計算顯微影像的長度

ImageJ進行吸光值、透光率、透光度與OD值計算的公式與應用

2011寒假作業紀錄-探究取向的營養器官繁殖實驗