如何将PDF文件按名字最后一个数字进行排序

老KD

各位大师，请帮忙编写个VBA或程序将一个文件夹中许多的PDF以该PDF名字的最后一个数字号，进行按顺序的排列PDF文档，示意图在上传的附件中，  可以把最后一个序号重命名到姓名的第一个姓字之前，这样也就可以电脑上手动按序号排序了，也行。    谢谢谢谢老师！！！

蓝桥玄霜

把后面的1,2,3改到文件名前面。

老KD

蓝桥玄霜 发表于 2024-3-27 10:33
把后面的1,2,3改到文件名前面。

版主，谢谢！问题是这个PDF太多了有时有几千个 如果 一个个重命名太麻烦了，就想用程序排序省事，哈哈

ykcbf1100

文件批量重命名。

ykcbf1100

参与一下。。。

1. Sub 重命名()  '//2024.3.27
   
2.     Set fso = CreateObject("Scripting.FileSystemObject")
   
3.     Application.ScreenUpdating = False
   
4.     Application.DisplayAlerts = False
   
5.     p = ThisWorkbook.Path & ""
   
6.     On Error Resume Next
   
7.     For Each f In fso.GetFolder(p).Files
   
8.         If f.Name Like "*.pdf" Then
   
9.             fn = fso.GetBaseName(f)
   
10.             st = Split(fn, "_")
    
11.             num = Split(fn, "_")(UBound(st))
    
12.             fn1 = num & f.Name
    
13.             f.Name = fn1
    
14.         End If
    
15.     Next f
    
16.     Application.ScreenUpdating = True
    
17.     MsgBox "OK！"
    
18. End Sub
    

复制代码

老KD

谢谢老师，您的VBA很强大，费心了，谢谢谢谢！