VBA修改文件名:利用EXCELVBA批量变更文件夹内文件名

分享一段用Excel VBA做的程序,可以实现用excel vba批量修改文件名。程序aa部分为读取文件夹内所有文件名,程序bb部分,是按照excel里改好的文件名,对文件夹内文件名进行批量修改~代码如下,程序已测试,可直接使用,不会用的朋友可以给我留言

Dim obj As Object

Dim fld, ff, gg

Sub aa()

Range(“a2:a300”).ClearContents

On Error Resume Next

gg = InputBox(“请把要批量更名的文件夹地址粘贴或输入到下框中”, , 100)

Set obj = CreateObject(“Scripting.FileSystemObject”)

Set fld = obj.GetFolder(gg)

For Each ff In fld.Files

m = m + 1

Cells(m + 1, 1) = ff.Name

Cells(m + 1, 2) = “——-”

Cells(m + 1, 3) = ff.Name

Next

End Sub

 

Sub bb()

On Error Resume Next

If [a2] = “” Then MsgBox “请点击第一步”: Exit Sub

For Each ff In fld.Files

m = m + 1

ff.Name = Cells(m + 1, 3)

Next

MsgBox “改名已完成,请检查”, vbOKOnly

End Sub

 » 本站地址:http://www.gomoth.com

标签: