今天的分享严格来说不是Excel的内容，但是会用到Excel。我在分享这个内容，是因为我突然想起来，当初为了给领导整理资料，几百个文件的名字都要修改成统一的格式。为了偷懒，我在网上找了很久的教程，终于得到了这个方法，兴奋了很久。可惜后来无法在大规模部门推广，所以如果我用的话，我就自己偷或者找负责人要权限才能用。话不多说，看正文~
以下图中的文件为例。乱七八糟的，各种格式都有。文件名长短不一，很难一一更改。我该怎么办？我得想办法分批修改。批量的话，我要先把这些文件的名字弄出来，然后批量修改。然后整个过程分为两个步骤：获取原始名称和修改统一格式。
文件名不统一。
第一步：获取原始名称
网上有很多方法可以得到，我是从网上学的。我尽量说清楚。
第一种方法：TXT采集。
1.在要提取文件名的文件夹中，创建一个txt格式的新记事本文件。
新建一个TXT，随便写名字。
2.输入：DIR *。* /B列表。记事本文件中的TXT
TXT内部编写内容
3.将这个记事本文件的名称从txt改为bat。将弹出重命名对话框，单击是。
修改名称
4.更改完成后，双击运行该文件。这时，你会得到一个列表。TXT文件。打开后，你会得到文件名。
跑垒击球
这个文件可以重复使用。如果保存为常用小工具，在其他文件夹中运行，就可以得到当前文件夹下的所有文件名。
第二种方法是cmd指令获取。
这个和上一个差不多。
1.点击菜单或键盘的win键，弹出开始菜单。输入cmd并打开它。
煤矿管理局
2.输入目标文件夹(cd目标文件目录)，即在窗口中输入要提取其名称的cd的文件夹路径。
步骤
3.获取当前文件的目录信息，保存到某个磁盘上的某个文件(dir保存路径)，即在窗口中输入dir提取后的文件保存路径，比如DIR1.xls，经过测试，似乎只能是这种格式。我不知道原因。如果以后知道了，我再补充。在这里并不妨碍使用。
步骤
4.我把文件保存在了D盘，所以1.xls文件出现在了D盘下，打开后是这样的。
结果
这个方法比第一个复杂。如果不熟悉，就不要轻易尝试，不然会死机。因为无法复制，所以很气人。反正我电脑复制不了。每次写路径都要手写输入。如果我犯了一个错误，我必须再打一次。=(` *)))唉。
第三种方法：Excel宏文件获取方法
这种方法是上述两种方法的高级版本。它可以作为一个工具，只要设置好。而且提取的信息是全面的，甚至可以获得视频的长度等信息。唯一的缺点就是处理大批量的文件会很卡很耗时间，所以处理大批量的时候建议分批处理，不然电脑卡的时候会很累。
1.开发人员工具-插入-按钮控件
插入控件
2.按钮画在表中，然后自动弹出指定宏的窗口。此时，将创建一个新宏。
指定宏
3.然后在sub和end sub之间粘贴以下代码以保存宏。
Dim objShell，objFolder，objFolderItem，MyFile$，arr(500，100)，n Set objShell=CreateObject(' shell . Application ')With Application。file dialog(msoFileDialogFolderPicker)。如果. show=-1，则objfolder=。selected items(1)else exit subend with my file=dir(obj folder ' \ *。*)设置objFolder=objShell。命名空间(obj folder)Do While my file“”Set objFolderItem=obj folder。ParseName(MyFile)如果n=0，那么For i=0 To UBound(arr，2) arr(0，i)=objFolder。GetDetailsOf(0，i) n=1 arr(n，0)=MyFile arr(n，i)=objFolder。GetDetailsOf(objFolderItem，i) Next Else For i=0 To UBound(arr，2) arr(n，0)=MyFile arr(n，I)=objholder。getdetailsof (objholder item，I)next end if n=n1 my file=dirloopcells。clearcells (1，1)。resize (n1，ubound (arr，2) 1)=arr4。现在，美化一下，右键点击按钮，点击编辑。至于怎么用？直接点击按钮弹出窗口，选择要解压的文件夹，然后稍等片刻。真是慢-_-||
使用步骤
这个方法很慢，但是他提取的信息很全面。使用的时候，看自己的需求。如果只提取文件名，推荐第一种和第二种方法。如果是视频提取的长度，可以用这个工具。
第二步：修改统一格式。
好了，文件名已经提取出来了，下面是修改的方法。
1.如图排列文件名，然后输入='REN '原始文件名''更改文件名。
输入函数
2.将获得的指令复制粘贴到文本文档中并保存。
粘贴到txt中
3.把txt的扩展名修改成bat，双击运行，就变了~
像这样
这种方法的一个缺点是文件名本身不能有空格，否则不能更改。有空格的呢？我找不到方法。以后再了解，遇到了再补充。本教程到此结束。你可以自己试试。
