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

原文发布于微信公众号 - VB小源码(vb_xym)

原文发表时间:2018-07-29

本文参与腾讯云自媒体分享计划,欢迎正在阅读的你也加入,一起分享。

发表于

我来说两句

0 条评论
登录 后参与评论

扫码关注云+社区

领取腾讯云代金券