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

news2024/9/19 12:20:10

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

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

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

1. 打开Excel并创建新宏

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

vba

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

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