Question

如何按照要求批量修改文件的名字

如图表格，每个名字前面都有一个序号，如1，2,3等，同时我有和名字一样相匹配的文件夹，如文件夹的名字为小兰，小红，（每个文件夹里面都是不同的东西）。现在我需要把文件夹的名字修改为和表格想对应的序号。请问有什么可以批量修改的办法？如，我的文件夹名字是小米，我要修改为1，文件夹名字是小红，我要修改为2，因为每个文件夹里面都有不同的东西，所以不能重新创建新的文件夹。

Answer 1

1、在c盘建立一个文件夹，将下载的图片放置于该文件夹中。
2、鼠标左键点击，开始-》运行-》在对话框中输入字母“cmd”，进入dos模式 。
3、在dos模式输入命令行“cd c:\pic”然后回车，再输入命令行“dir /b>rename.xls"，可将文件夹中的文件名在rename.xls文件中列出。小贴士：有的时候，你的计算机正处于中文输入状态，为确保命令行能够打出来，你可以切换成英文大写状态。
4、随后用xls打开c:\pic文件夹中的rename.xls，你会发现文件名以全部罗列在A列中（你也可以用鼠标来调整文件名的顺序），你可以在B1列中输入1.jpg作为第一个文件文件名。
5、鼠标选中B1单元格，并在B1列的右下方，使鼠标光标变为+号时，拖动使所有jpg文件的右侧B列中都有文件名。再将A8单元格中没有用的文件名删除。
6、鼠标选中C1单元格，并在编辑框中输入公式="ren "&A1&" "&B1。
7、继续用鼠标拖动C1单元格右下方的句柄，使剩余的C2-C7单元格填充。
8、然后，鼠标选中C列，鼠标右键复制。
9、在记事本中，粘贴刚才的命令行。
10、鼠标点击菜单“文件”——“另存为”，输入文件名ren.bat，要注意下图所示红圈中的路径及扩展名选项。
11、打开c盘pic文件夹，鼠标双击ren.bat这个批处理文件，即可将该文件夹下的jpg图片，按照刚才rename.xls中的顺序和文件名批量修改文件名。
12、自此，你已经完成了批量修改文件名的操作。我们运用了dos命令技巧、xls技巧以及批处理3个知识点来达到批量修改文件名的效果。

Answer 2

可以用宏代码来完成呀！

Sub Rename()
  Dim MainDir As String
AAs:
  MainDir = InputBox("请指定待更名的文件夹所在的主目录。", "消息", "C:\test\")
  If Dir(MainDir, vbDirectory) = "" Then
    Rc = MsgBox("非法主目录！请重新指定！", vbRetryCancel + vbCritical, "消息")
    If Rc = vbCancel Then Exit Sub
    GoTo AAs
  End If
    MyRows = ActiveSheet.UsedRange.Rows.Count
    RowStart = ActiveSheet.UsedRange.Row
    For i = RowStart To RowStart + MyRows - 1
     On Error Resume Next
     Name MainDir & "\" & Cells(i, ActiveSheet.UsedRange.Column + 1) As MainDir & "\" & Cells(i, ActiveSheet.UsedRange.Column)
    Next
    MsgBox "文件夹更名完毕！", vbInformation + vbOKOnly, "消息"
    Shell "explorer.exe " & MainDir, vbMaximizedFocus
End Sub

追问

不会代码，，这个怎么操作呢

追答

按Alt+F11打开代码编辑器，然后双击sheet1，在打开的新窗口中，将代码粘贴过来，然后按F5运行即可。