【Excel】VBA批量修改文件名

最新推荐文章于 2024-08-10 14:59:16 发布

CS正阳

最新推荐文章于 2024-08-10 14:59:16 发布

阅读量1.5w

点赞数 5

分类专栏：开发工具：Excel 文章标签： excel 项目实战

本文链接：https://blog.csdn.net/sunyaowu315/article/details/82907208

版权

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 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)