软件:excel
版本:2016
请问如果有一百笔excel的档案
想要让程式自动把档案名称改成档案内某一格的文字再.xls
要怎么做到呢？
ex:
档案 1.xls a1= 小明 → 小明.xls
档案 2.xls a1= 小华 → 小华.xls
......
档案 99.xls a1= 发大财 → 发大财.xls
档案100.xls a1= 芒果干 → 芒果干.xls
如果其中有a1相同的，档名能自动加(1)(2)…之类的，有什么办法能做到吗
ex 小明(1).xls
小明(2).xls
先感谢各位先进帮忙

试试totalcommander这工具 可以批次改档名

先问档案内要取储存格a1的工作表名都一样吗

我做过类似的 用="rename "&a1&" "&b1串 贴到bat档不过有重复的可能要先挑出来

都一样的话，命令提示字符cmd先到该子目录内dir /b *.xls >list.txt文字档案内取出档名，="'路径["&档名储存格&"]工作表名称'!a1"复制，选择性贴上值，寻找及取代，寻找目标和取代成都打上=，这样可取得更名要对应的档名接着以l大所提的以批次档来更名 ="ren "&a1&" "&b1&判断是否重复，用函数countif没重复""，有重复"("&countif(...)&")"；前面判断是否重复函数countif的range上是整栏，后面括号内的计数则不是，是以绝对参照$固定范围开始的列号，结束列号以相对参照宏的话，循环dir取档案，档案内工作表里某一储存格 1.workbook.open，worksheet.range取得2.以="'路径["&变量(完整档名)&"]工作表名称'!a1"方式更名 name....as