如何利用VBA将批量重命名图片名称

limonet

关键字：-include

limonet

Sub limonet()
    CreateObject("wscript.shell").Run "powershell push-location " & ThisWorkbook.Path _
    & ";dir .\* -include *.png | % {Ren $_ ((19704153+(++$i)),$_.Extension -join '')}", 0
End Sub

ykcbf1100

练个手，文件重命名

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.6.5
   
2.     Set Fso = CreateObject("scripting.filesystemobject")
   
3.     Set ws = ThisWorkbook
   
4.     p = ws.Path & ""
   
5.     r = Cells(Rows.Count, 1).End(3).Row
   
6.     arr = [a2].Resize(r - 1, 1)
   
7.     Application.ScreenUpdating = False
   
8.     On Error Resume Next
   
9.     For Each f In Fso.getfolder(p).Files
   
10.         If InStr(f.Name, ws.Name) = 0 Then
    
11.             m = m + 1
    
12.             f.Name = arr(m, 1) & "." & Fso.GetExtensionName(f)
    
13.         End If
    
14.     Next f
    
15.     Application.ScreenUpdating = True
    
16.     MsgBox "OK！"
    
17. End Sub
    

复制代码

lln0618

用bat小程序

先批量提取文件名 然后复制到表格 和新名称对应 再复制到bat程序批量命名



名称列表图片.zip (1.15 MB, 下载次数: 3)

2024-6-5 13:57 上传

点击文件名下载附件