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技巧!