Excel VBA批量修改文件重命名的工作，完成工作就在转眼间

Excel VBA其实可以批量完成工作簿重命名的工作，完成工作就在转眼间

本文要介绍的是如何使用VBA将我们的工作薄文件名字批量修改，或许你会说到，有很多的方法，比如函数法，BAT法,PY法也可以完成这个，我们会在本文的后面介绍一下DOS（BAT）方法，但是我们现在着重要说的是用VBA方法来完成这个，一起来学习吧！

照样举一个例子啊！我们有如下的文件夹，存放着很多的文件，其中有文档格式的，Excel格式的，Word格式的，图片格式的，我们如果想对他们进行批量修改文件名字应该怎么做呢？

好了，我们先看看代码是怎么写的吧！如下：

其实代码是非常简单的，就是利用Name oldpathname As newpathname，这是批量修改的核心代码所在，就是利用他来完成这个批量修改。解释一下Name语句可以完成重命名一个文件名字或文件夹的名字，也可以将其移动到另一个文件夹中，但不能创建新文件或者文件夹，其参数不能包含通配符，这个需要特别注意的。

他的几个参数oldpathname是必须的，为一个字符串表达式，用来指定已存在的文件名或文件夹名。参数newpathname是必须的，为一个字符串表达式，用来指定新的文件名或者文件夹名，所指定的文件名不能存在。另外对于已打开的文件或文件夹使用Name语句，将会产生运行时错误。

动画操作如下，是不是感觉批量修改文件名字就在一瞬间就完成啦！

或许有的同学要说了，假如我需要只修改其中一个格式的文件，应该怎么办？请不要慌，我们只需要稍微修改一下就完成啦！举个例子假如你只需修改Excel文件格式的，只需要把代码的f = Dir(p & "*.*")修改成 f = Dir(p & "*.xls*")，小伙伴看懂木有，木有看懂的话，可以在下方留言。我会一一回复的。

我们在顺带说下BAT方法吧！一起看看，操作也是非常简单的。照样举一个例子啊！如下我们需要在文件前面增加我爱这2个字。

我们的方式是这样的，新建一个txt文件，做出如下所示的效果：

然后点击保存，修改文件后缀为BAT,点击执行，就可以看到批量修改的效果啦！

BAT执行完成以后的效果如下所示：

其实批量修改文件名字是不是很简单？在这里并没说哪种方法好，哪种方法不好，因人而异，做自己喜欢的事情就好啦！

虽然对我们大部分用户来说，都不会再我们Excel VBA用来批量修改文件名字，，但是万一在哪一天你需要批量修改的时候，拿过去用即可。其实VBA是如此简单的，你在写某段程序的时候，你就会发现我原来可以利用这代码来完成这个。

如果有不明白的或者不懂的可以在下方留言，我们会一一解答的。

我是Excel教案，关注我持续分享更多的Excel技巧！