好了,我们先看看代码是怎么写的吧!如下:
其实代码是非常简单的,就是利用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技巧!