当前位置：首页 > news >正文

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

news 来源：原创 2024/9/20 5:40:39

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

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

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

1. 打开Excel并创建新宏

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

vba

Sub ListFilesInFolder()Dim folderPath As StringDim fileName As StringDim i As IntegerDim fso As ObjectDim folder As ObjectDim 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 + 1Next file' 清理对象Set file = NothingSet folder = NothingSet fso = Nothing
End Sub

2. 运行宏

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

二、批量重命名文件

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

1. 准备工作表

在Excel中创建一个工作表，例如命名为“Sheet1”。
在该工作表中，创建两列：一列是旧文件名，另一列是你想要的新文件名。

2. 编写宏

在VBA编辑器中，添加以下宏：

vba

Sub BatchRenameFiles()Dim ws As WorksheetDim OldFileName As StringDim NewFileName As StringDim i As LongDim SourceFolder As StringDim FileCount As Long' 设置源文件夹路径SourceFolder = "D:\downloads" ' 请修改为你的文件夹路径' 设置工作表Set ws = ThisWorkbook.Sheets("Sheet1") ' 修改为包含文件名的工作表名称' 计算文件数量FileCount = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row' 禁用屏幕更新和警告消息Application.ScreenUpdating = FalseApplication.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) <> "" ThenName OldFileName As NewFileNameElseDebug.Print "文件 " & OldFileName & " 不存在。"End IfNext i' 启用屏幕更新和警告消息Application.ScreenUpdating = TrueApplication.DisplayAlerts = TrueMsgBox "文件重命名完成。"
End Sub