Excel VBA批量获取文件夹内文件名及重命名文件教程

在本文中,我们将介绍如何使用Excel VBA宏来批量获取文件夹内的文件名,并将其输出到Excel单元格区域。此外,我们还将展示如何根据Excel中的列表批量重命名这些文件。

一、批量获取文件夹内文件名

首先,我们需要编写一个VBA宏来列出指定文件夹内的所有文件名称。以下是实现该功能的步骤和代码:

1. 打开Excel并创建新宏

  • 打开Excel,按下 Alt + F11 键打开VBA编辑器。
  • 在"项目-工程"窗口中,右击你的工作簿名称,选择"插入" -> "模块"。
  • 在打开的模块窗口中,复制并粘贴以下代码:

vba

vbscript 复制代码
Sub ListFilesInFolder()
    Dim folderPath As String
    Dim fileName As String
    Dim i As Integer
    Dim fso As Object
    Dim folder As Object
    Dim file As Object
    
    ' 设置文件夹路径
    folderPath = "D:\downloads\" ' 请修改为你的文件夹路径
    
    ' 初始化变量
    i = 1
    
    ' 创建FileSystemObject对象
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 获取文件夹对象
    Set folder = fso.GetFolder(folderPath)
    
    ' 清空目标单元格区域
    Range("A1:A" & Rows.Count).ClearContents
    
    ' 遍历文件夹内的文件
    For Each file In folder.Files
        ' 获取文件名称
        fileName = file.Name
        ' 将文件名输出到单元格
        Cells(i, 1).Value = fileName
        ' 移动到下一行
        i = i + 1
    Next file
    
    ' 清理对象
    Set file = Nothing
    Set folder = Nothing
    Set fso = Nothing
End Sub

2. 运行宏

  • 返回Excel界面,按下 Alt + F8,选择 ListFilesInFolder 宏并运行。
  • 该宏会将指定文件夹内的所有文件名称输出到工作表的A列,从A1单元格开始。

二、批量重命名文件

接下来,我们将编写另一个VBA宏来根据Excel中的列表批量重命名文件夹中的文件。

1. 准备工作表

  • 在Excel中创建一个工作表,例如命名为"Sheet1"。
  • 在该工作表中,创建两列:一列是旧文件名,另一列是你想要的新文件名。

2. 编写宏

  • 在VBA编辑器中,添加以下宏:

vba

vbscript 复制代码
Sub BatchRenameFiles()
    Dim ws As Worksheet
    Dim OldFileName As String
    Dim NewFileName As String
    Dim i As Long
    Dim SourceFolder As String
    Dim FileCount As Long
    
    ' 设置源文件夹路径
    SourceFolder = "D:\downloads" ' 请修改为你的文件夹路径
    
    ' 设置工作表
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 修改为包含文件名的工作表名称
    
    ' 计算文件数量
    FileCount = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 禁用屏幕更新和警告消息
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    ' 遍历文件名列表
    For i = 2 To FileCount ' 假设第一行是标题,从第二行开始
        OldFileName = SourceFolder & ws.Cells(i, 1).Value  ' 旧文件名
        NewFileName = SourceFolder & ws.Cells(i, 2).Value & ".mp4" ' 新文件名
        
        ' 检查文件是否存在,然后重命名
        If Dir(OldFileName) <> "" Then
            Name OldFileName As NewFileName
        Else
            Debug.Print "文件 " & OldFileName & " 不存在。"
        End If
    Next i
    
    ' 启用屏幕更新和警告消息
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    
    MsgBox "文件重命名完成。"
End Sub

3. 运行宏

  • 返回Excel界面,按下 Alt + F8,选择 BatchRenameFiles 宏并运行。
  • 宏会根据Excel列表中的旧文件名和新文件名批量重命名文件夹中的文件。

总结

通过以上两个宏,我们可以轻松地批量获取文件夹内的文件名,并根据需求批量重命名文件。在进行这些操作之前,请确保备份重要文件,以防意外发生。希望本文能帮助你在工作中提高效率。

相关推荐
愿你天黑有灯下雨有伞18 小时前
Java使用FastExcel实现Excel文件导入
java·excel
爆爆凯18 小时前
Excel 导入导出工具类文档
java·excel
凌康ACG1 天前
springboot打包二次压缩Excel导致损坏
spring boot·后端·excel
诸葛大钢铁2 天前
Excel转PDF的三种方法
笔记·职场和发展·pdf·excel
小小薛定谔2 天前
java操作Excel两种方式EasyExcel 和POI
java·python·excel
CodeCraft Studio2 天前
DHTMLX Suite 9.2 重磅发布:支持历史记录、类Excel交互、剪贴板、拖放增强等多项升级
javascript·excel·交互·表格·dhtmlx·grid·网格
小阳睡不醒2 天前
小白成长之路-Elasticsearch 7.0 配置
大数据·elasticsearch·excel
奋进的孤狼2 天前
【Excel】使用vlookup函数快速找出两列数据的差异项
excel
不讲废话的小白2 天前
解锁高效Excel技能:摆脱鼠标,快速编辑单元格
计算机外设·excel
CodeCraft Studio2 天前
Excel处理控件Aspose.Cells教程:使用 Python 在 Excel 中创建甘特图
python·excel·项目管理·甘特图·aspose·aspose.cells