Excel：VBA批量修改文件名

Dim filePath As Variant '定義filepath為變量 Dim obj As Object '定義obj為變量對象 Dim fld, ff, gg '定義fld,ff,gg為變量 Sub getpath()Range("A2:C1000").ClearContents '清空A2：C1000列On Error Resume NextDim shell As VariantSet shell = CreateObject("Shell.Application")Set filePath = shell.BrowseForFolder(&O0, "選擇文件夾", &H1 + &H10, "") '獲取文件夾路徑地址Set shell = NothingIf filePath Is Nothing Then '檢測是否獲得有效路徑，如取消直接跳出程序Exit SubElsegg = filePath.Items.Item.PathEnd IfSet obj = CreateObject("Scripting.FileSystemObject") '定義變量Set fld = obj.getfolder(gg) '獲取路徑For Each ff In fld.Files '遍歷文件夾里文件m = m + 1Cells(m + 1, 1) = ff.NameCells(m + 1, 2) = "-------"Cells(m + 1, 3) = Right(ff.Name, Len(ff.Name) - 2)NextEnd SubSub renamefile()x = InputBox("例如：5月", "要改為幾月")On Error Resume NextIf [a2] = "" Then MsgBox "請點擊第一步": Exit SubFor Each ff In fld.Files '遍歷文件夾里的所有文件m = m + 1ff.Name = x & Cells(m + 1, 3) '將實際文件名改成目錄中C列的對應文件名NextMsgBox "改名已完成，請檢查", vbOKOnlyEnd Sub

總結

以上是生活随笔為你收集整理的【Excel】VBA批量修改文件名的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。