只需两步，用EXCEL批量修改某个文件夹里的所有文件名

kszcs

好贴，收藏了

酿雪

多谢,先收藏了,等下再试

午夜幽魂

有同样的需求，先下来研究一下，谢谢

renahu

AVEL 发表于 2014-5-20 09:42
11年的文件了。。 现在找不到了。

呵呵，要不你再改一遍？

danhanqing

请教老师：
下例中，如果待改名的文件固定保存在指定目录如何实现，意思是不用每次去选择目录
－－－－－－－－－－－－－－－－－－－－－－
Dim filePath As Variant            '定义filepath为变量
Dim obj As Object                  '定义obj为变量对象
Dim fld, ff, gg                    '定义fld,ff,gg为变量

Sub 提取文件列表()
    Range("A2:A1000").ClearContents               '清空A2：C1000列
    '待改名字图片保存路径是固定的："E:\待处理图片"
    On Error Resume Next
    Dim shell As Variant
    Set shell = CreateObject("Shell.Application")
    Set filePath = shell.BrowseForFolder(&O0, "选择文件夹", &H1 + &H10, "")   '获取文件夹路径地址
    Set shell = Nothing
  If filePath Is Nothing Then                 '检测是否获得有效路径，如取消直接跳出程序
       Exit Sub
    Else
       gg = filePath.Items.Item.path
  End If
    Set obj = CreateObject("Scripting.FileSystemObject")   '定义变量
    Set fld = obj.getfolder(gg)                            '获取路径
     For Each ff In fld.Files                   '遍历文件夹里文件
        m = m + 1
        Cells(m + 1, 1) = ff.Name
      Next
End Sub

星语心愿

可不可以在每个文件名后面增加一个是否修改成功的的提示

game0060

謝謝老師的分享,也想請教老師多個問題,

如果想改成直接讀取當前EXCEL所在位置的所有檔案和不要讀取檔案的類型只讀取名稱

這樣可以嗎?感謝

rhythm7rain

感谢楼主，膜拜楼主，楼主好人一生平安，一万个赞

zeropww

35楼的有人回答吗？固定文件位置，这个比较常用

amao1212

太给力了，谢谢分享