PDF文件，想批量重命名

13577170400

我F盘有好多PDF文件，想批量重命名，例如：A001，A002，，，，到A007文件名修改为附件Excel表里A列对应B列的PDF文件名，请高手用VBA实现。

sunshuangzhong

lizhipei78的帖子 - ExcelHome技术论坛  https://club.excelhome.net/home. ... w=me&from=space

约定的童话

《MiniRenamer批量文件重命名v2.2.0》用这个软件也可以，或者用下面压缩包里面的

user湫

Sub RenameFilesInCurrentFolder()     Dim ws As Worksheet     Dim currentFolder As String     Dim fileName As String     Dim newFileName As String     Dim i As Long     Dim filePath As String     Set ws = ThisWorkbook.ActiveSheet     currentFolder = ThisWorkbook.Path     i = 1     Do While ws.Cells(i, 1).Value <> ""         fileName = ws.Cells(i, 1).Value         newFileName = ws.Cells(i, 2).Value         filePath = currentFolder & "\" & fileName & ".pdf"         If Dir(filePath) <> "" Then             Name filePath As currentFolder & "\" & newFileName & ".pdf"         End If         i = i + 1     Loop     MsgBox "重命名完成！" End Sub

user湫

1. Sub RenameFilesInCurrentFolder()
   
2.     Dim ws As Worksheet
   
3.     Dim currentFolder As String
   
4.     Dim fileName As String
   
5.     Dim newFileName As String
   
6.     Dim i As Long
   
7.     Dim filePath As String
   
8.     Set ws = ThisWorkbook.ActiveSheet
   
9.     currentFolder = ThisWorkbook.Path
   
10.     i = 1
    
11.     Do While ws.Cells(i, 1).Value <> ""
    
12.         fileName = ws.Cells(i, 1).Value
    
13.         newFileName = ws.Cells(i, 2).Value
    
14.         filePath = currentFolder & "" & fileName & ".pdf"
    
15.         If Dir(filePath) <> "" Then
    
16.             Name filePath As currentFolder & "" & newFileName & ".pdf"
    
17.         End If
    
18.         i = i + 1
    
19.     Loop
    
20.     MsgBox "重命名完成！"
    
21. End Sub
    
22. 
    

复制代码

user湫

1. Sub GetFileNamesInFolderToNewSheet() ' 获取用户选择的文件夹的文件名
   
2.     Dim folderPath As String
   
3.     Dim fileName As String
   
4.     Dim ws As Worksheet
   
5.     Dim fDialog As FileDialog
   
6.     Dim i As Integer
   
7.     Dim timeStamp As String
   
8.     Set fDialog = Application.FileDialog(msoFileDialogFolderPicker)
   
9.     If fDialog.Show = -1 Then
   
10.         folderPath = fDialog.SelectedItems(1) & ""
    
11.     Else
    
12.         MsgBox "没有选择文件夹"
    
13.         Exit Sub
    
14.     End If
    
15.     timeStamp = Format(Now, "yyyy-mm-dd_hh-mm-ss")
    
16.     Set ws = ThisWorkbook.Worksheets.Add
    
17.     ws.Name = "Files_" & timeStamp
    
18.     fileName = Dir(folderPath)
    
19.     i = 1
    
20.     Do While fileName <> ""
    
21.         ws.Cells(i, 1).Value = fileName
    
22.         i = i + 1
    
23.         fileName = Dir
    
24.     Loop
    
25.     If i > 1 Then
    
26.         MsgBox "文件名已写入工作表: " & ws.Name
    
27.     Else
    
28.         MsgBox "文件夹为空"
    
29.         Application.DisplayAlerts = False
    
30.         ws.Delete
    
31.         Application.DisplayAlerts = True
    
32.     End If
    
33. End Sub
    
34. 
    

复制代码

13577170400

user湫 发表于 2024-12-15 15:04

老师，可不可以指定某一个位置文件夹里面的PDF文件进行重命名呢

spaghetti8

利用WPS的shell功能，就几行代码搞定。

spaghetti8

等会我开个帖子，附上附件。

13577170400

spaghetti8 发表于 2024-12-15 16:25
等会我开个帖子，附上附件。

好的大神，用office的话可以实现不