VBA 批量重命名

VBA 批量重命名!!

Sub 批量重命名()

On Error GoTo err

If ActiveSheet .Range("c2") = "" Then

MsgBox "请输入新文件名！"

Exit Sub

End If

If MsgBox("是否要重命名所有文件；并且不可逆？？", vbYesNo) = vbYes Then

'获取有数据的总行数

hh = Range("B65536").End(xlUp).Row

Dim y_name As String

Dim x_name As String

For i = 2 To hh

y_name = ActiveSheet .Range("aw1") & ActiveSheet.Range("B" & i)

x_name = ActiveSheet .Range("aw1") & ActiveSheet.Range("C" & i) & "." & Split(ActiveSheet .Range("B2"), ".")(1) '获取文件后缀名

On Error Resume Next

Name y_name As x_name

Next

Else