WPS Excel小技巧：轻松几步，批量修改文件名不再是难题！

✍ ◷ 2024-07-05 02:10:25 #

WPS Excel小技巧：轻松几步，批量修改文件名不再是难题！

在日常的工作和生活中，我们经常会遇到需要批量修改文件名的场景。无论是整理照片、文档还是其他类型的文件，手动一个一个地修改文件名既耗时又容易出错。今天，我们就来介绍一个使用WPS Excel轻松实现批量修改文件名的小技巧，让你从此告别繁琐的文件名修改工作。

第一步：准备文件名列表

首先，你需要将需要修改的文件名整理成一个列表。你可以手动在Excel中创建一个新的工作簿，并在其中输入文件名。确保每个文件名都单独占据一个单元格，这样可以方便后续的批量操作。

第二步：使用WPS Excel的“填充”功能

如果文件名有一定的规律，比如顺序编号、日期等，你可以使用WPS Excel的“填充”功能来快速生成文件名列表。选择起始单元格，拖动鼠标选中需要填充的区域，然后点击工具栏上的“填充”按钮，选择“序列”或“等差序列”等选项，即可快速生成一系列有规律的文件名。

第三步：利用VBA宏进行批量重命名

WPS Excel提供了强大的VBA宏功能，可以帮助我们实现各种自动化操作。下面是一个简单的VBA宏示例，用于批量修改文件名。

打开WPS Excel，按下快捷键Alt + F11打开VBA编辑器。
在VBA编辑器中，点击“插入”菜单，选择“模块”，创建一个新的模块。
在新模块的代码窗口中，粘贴以下代码：

vbaSub BatchRenameFiles()
    Dim MyFolder As String
    Dim MyFile As String
    Dim MyWorkbook As Workbook
    Dim i As Integer
    Dim OldName As String
    Dim NewName As String
    
    ' 指定包含文件名的Excel工作簿路径
    MyFolder = "C:\YourFolderPath\"
    
    ' 打开包含文件名的Excel工作簿
    Set MyWorkbook = Workbooks.Open("C:\YourExcelFilePath.xlsx")
    
    ' 假设文件名列表在Sheet1的A列，从A2开始
    i = 2
    Do While MyWorkbook.Sheets("Sheet1").Cells(i, 1).Value <> ""
        OldName = MyFolder & MyWorkbook.Sheets("Sheet1").Cells(i, 1).Value
        NewName = MyFolder & MyWorkbook.Sheets("Sheet1").Cells(i, 2).Value
        Name OldName As NewName
        i = i + 1
    Loop
    
    ' 关闭Excel工作簿
    MyWorkbook.Close SaveChanges:=False
End Sub