求个批量更改文件名的代码

liulang0808

https://club.excelhome.net/threa ... tml?_dsign=73cffde5

shufeabb

liulang0808 发表于 2024-11-21 07:46
https://club.excelhome.net/thread-1258425-1-1.html?_dsign=73cffde5

不会宏语句耶。如下是把文件名前面统一添加MOQ-.
如何修改成把"MOQ-" 改成"process"

Sub Files_rename()
    Dim filePath As String
    filePath = "C:\Users\Desktop\ICC\MOQ adjust"
    Dim fileName As String
    Dim newName As String
    fileName = Dir(filePath & "\*.xls*")
   
    Do While fileName <> ""
       If Not (fileName = "." Or fileName = "..") Then
          If InStr(fileName, "MOQ-") = 0 Then
            newName = filePath & "\" & "MOQ-" & fileName
            Name filePath & "\" & fileName As newName
        End If
    End If
    fileName = Dir
   Loop
End Sub

szqhb

shufeabb 发表于 2024-11-21 08:38
不会宏语句耶。如下是把文件名前面统一添加MOQ-.
如何修改成把"MOQ-" 改成"process"

我9楼的附件应该很好用啊