excel文件批量重命名工具
上一个帖子被删了，还不知道原因！这次把源码也公布了，只求热心值！
因为这是个excel文件，在文件更名时会更改文件内容，帮设置了一个密码。本来忘记了，因为帖子被删除了的缘故，用工具把这个密码找回来了，密码是：6b7b7b3b7b3b1
不输入密码，直接点只读更安全，因为这个excel文件不会被更改。输入密码后，可以在VBA中看到源码。
看列标题应该明白怎么操作了。下面把源码也帖出来，没有技术含量的东西，不要嘲笑。
Dim strFolder As String
Sub GetFileList()
Dim varFileList As Variant
Dim FSO As Object, myFile As Object
Dim l As Long
Dim f As String
Dim i As Integer
'显示打开文件夹对话框
With Application.FileDialog(msoFileDialogFolderPicker)
.Show
If .SelectedItems.Count = 0 Then Exit Sub '未选择文件夹
strFolder = .SelectedItems(1)
End With
'获取文件夹中的所有文件列表
i = 0
f = Dir$(strFolder & "\*.*")
Do While Len(f) > 0
Cells(i + 2, 2) = f
i = i + 1
f = Dir$()
Loop
End Sub
Private Sub CommandButton2_Click()
GetFileList
End Sub
Private Sub CommandButton1_Click()
Dim i As Integer
Dim n As Integer
Dim SPath As String
SPath = strFolder + "\"
n = .End(xlUp).Row
For i = 2 To n
If Dir(SPath + (Cells(i, 2).Value)) = "" Then
Cells(i, 3).Value = "原文件不存在！"
Else
Name SPath + (Cells(i, 2).Value) As SPath + (Cells(i, 1).Value)
Cells(i, 3).Value = "OK！"
End If
Next
End Sub
附件下载：
热心值啊，我还差4个，谢谢！！！
https://www.52pojie.cn/thread-635546-1-1.html
这个版本也挺不错的 MurphyTian 发表于 2019-2-18 09:07
你好，怎么不能使用啊，按钮无反应，是需要设置什么吗？可以再解释一下吗？
打开excel的时候需要启用宏！office默认是禁用宏的。也可以在excel的设置中启用宏！ 感谢分享。 感谢楼主分享原创作品。 谢谢分享 你好，怎么不能使用啊，按钮无反应，是需要设置什么吗？可以再解释一下吗？ 很不错，谢谢分享。。。 非常感谢你的Excel文件更名工具，很好用 xwei9277 发表于 2019-2-18 09:46
打开excel的时候需要启用宏！office默认是禁用宏的。也可以在excel的设置中启用宏！
感谢，感谢，已经试用，完美 感谢楼主分享原创作品