【VBA】使用vba进行文件批量重命名（自定义后缀，重复文件自动编号）

        笔者在一段工作经历中有批量管理附件的需要，因此使用了vba进行文件名的重命名和管理。vba命名时文件名可以是汉字，字母，数字，全半角符号等，具有很强的包容性；而使用dos编码的bat文件则只能重命名字母、数字和符号，无法对汉字重命名。

        然而经常会遇到要命名的文件名已存在，或者多个文件名需要命名成同一个名字，需要后面用括号数字区分的情况，可以参考以下解决办法。

先说我的excel单元格设置：

         L9用来存放文件地址，E4和G4存放文件格式，分别设置了下拉菜单用来切换不同的文件格式；D列和F列分别是改名前和改名后的文件名（不含后缀），并且两列单元格一一对应。

需要注意的点是——

        1）变量 i 的上限为usedrange.count，excel中已使用单元格动辄几十万个，而Integer的范围在-32768~32767之间，因此不可以将 i 定义为整形，而是要定义为范围更大的Long；

        2）尽管Dir函数可以定义文件类型，但是为了能够灵活切换不同的文件类型，我做了下拉列表，所以这里文件后缀手动引用E4和G4两个单元格的内容；

        3）F=Dir(文件地址) 这一函数可以查询该地址对应的文件是否存在，存在返回文