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