PDF文件，想批量重命名

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.12.15
   
2.     Set fso = CreateObject("scripting.filesystemobject")
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     Application.ScreenUpdating = False
   
5.     With Sheets("Sheet1")
   
6.         r = .Cells(Rows.Count, 1).End(3).Row
   
7.         arr = .[a1].Resize(r, 2)
   
8.     End With
   
9.     For i = 2 To UBound(arr)
   
10.         s = arr(i, 1)
    
11.         d(s) = arr(i, 2)
    
12.     Next
    
13.     p = ThisWorkbook.Path & ""
    
14.     For Each f In fso.GetFolder(p).Files
    
15.         If LCase$(f.Name) Like "*.pdf" Then
    
16.             fn = fso.GetBaseName(f)
    
17.             If d.exists(fn) Then
    
18.                 f.Name = d(fn) & "." & fso.GetExtensionName(f)
    
19.             End If
    
20.         End If
    
21.     Next f
    
22.     Application.ScreenUpdating = True
    
23.     Set d = Nothing
    
24.     MsgBox "OK！"
    
25. End Sub
    
26. 
    

复制代码

13577170400

ykcbf1100 发表于 2024-12-15 17:38
附件供参考。。。

好的，成功了，感谢大神

lizhipei78

https://club.excelhome.net/thread-1708041-1-1.html
试试这个

lizhipei78

13577170400 发表于 2024-12-15 16:28
好的大神，用office的话可以实现不

https://club.excelhome.net/thread-1681310-1-1.html
微软Office用这个