批量修改PDF名称

二哥exe

大家好：

        我想对同一文件夹下的所有PDF进行重新命名，命名规则参考图片&附件，请参考

   

ynzsvt

这么多的名称

二哥exe

ynzsvt 发表于 2024-7-19 10:21
这么多的名称

上传文件用的，名字需要统一，而且动则上百张PDF一起传

usedrange

1. Sub t()
   
2.     Dim fso, fs, f, pa$, s
   
3.     Set fso = CreateObject("scripting.filesystemobject")
   
4.     pa = ThisWorkbook.Path
   
5.     Set fs = fso.getfolder(pa).Files
   
6.    
   
7.     For Each f In fs
   
8.         If InStr(f.Name, ".PDF") Then
   
9.             s = "5612396658_" & Split(f.Name, "_")(1) & ".PDF"
   
10.             f.Name = s
    
11.         End If
    
12.     Next f
    
13.     Set fso = Nothing
    
14.     Set fs = Nothing
    
15. End Sub

复制代码

二哥exe

usedrange 发表于 2024-7-19 10:33

牛啊，老铁，完美解决

松永

需要把excel和PDF放一个文件夹里使用

usedrange

二哥exe 发表于 2024-7-19 10:35
牛啊，老铁，完美解决

搞定就好

二哥exe

松永 发表于 2024-7-19 11:00
需要把excel和PDF放一个文件夹里使用

厉害，运行了下，没有问题，多谢了