excel以指定单元格内容另存文件，当文件重名时以末尾字符数字递增的命名另存，求VBA

54_3q

请教各位VBA高手：我想以M3单元格的内容另存文件在相同文件夹下，当没有存在同名文件时就另存并提示“文件已另存完毕”，点击确定退出。当在相同文件夹下存在与M3单元格内容同名的文件时，提示“文件有重名，是否需要自动重命名？”，如果选择否就退出，如果选择是，就按方案一：自动以M3单元格内容最后的数字+1来命名（原始默认文件名格式为“巡检YYMMDD A1”，如果重名就变成“巡检YYMMDD A2、巡检YYMMDD A3,……以此类推），同样每次另存时循环出现以上提示。按方案二：在M列预置文件名，M3为“巡检YYMMDD A1”，M4为“巡检YYMMDD A2”，M5为“巡检YYMMDD A3”，以此类推，第一次发现重名就以M4内容另存，第二次发现重名就以M5内容另存。同样每次另存时出现以上提示。两种方案都可以，最好是第一种方案。备注：M3单元格内容本身也是通过获取其它单元格内容经函数处理后组合而成的。 巡检记录表.zip (11.05 KB, 下载次数: 8)

2018-8-9 15:11 上传

点击文件名下载附件