作者terry1983 (HungTse)
看板Office
标题[算表] 大量档案自动改档名
时间Wed Jul 3 15:16:33 2019
软体: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
先感谢各位先进帮忙
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 220.132.17.33 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1562138195.A.62F.html
1F：推 sleepwu: 试试totalcommander这工具 可以批次改档名 07/03 15:26
2F：→ soyoso: 先问档案内要取储存格a1的工作表名都一样吗 07/03 15:26
3F：→ sleepwu: 档名可用文档导入 07/03 15:26
4F：推 ljuber: 我做过类似的 用="rename "&a1&" "&b1串 贴到bat档 07/03 15:27
5F：→ ljuber: 不过有重复的可能要先挑出来 07/03 15:28
6F：→ soyoso: 都一样的话，命令提示字元cmd先到该子目录内 07/03 15:28
7F：→ soyoso: dir /b *.xls >list.txt 07/03 15:28
8F：→ soyoso: 文字档案内取出档名，="'路径["&档名储存格&"]工作表名称' 07/03 15:31
9F：→ soyoso: !a1" 07/03 15:31
10F：→ soyoso: 复制，选择性贴上值，寻找及取代，寻找目标和取代成都打上 07/03 15:32
11F：→ soyoso: =，这样可取得更名要对应的档名 07/03 15:33
12F：→ soyoso: 接着以l大所提的以批次档来更名 ="ren "&a1&" "&b1&判断是 07/03 15:34
13F：→ soyoso: 否重覆，用函数countif 07/03 15:34
14F：→ soyoso: 没重覆""，有重覆"("&countif(...)&")"；前面判断是否重覆 07/03 15:36
15F：→ soyoso: 函数countif的range上是整栏，後面括号内的计数则不是，是 07/03 15:37
16F：→ soyoso: 以绝对参照$固定范围开始的列号，结束列号以相对参照 07/03 15:38
17F：→ soyoso: 巨集的话，回圈dir取档案，档案内工作表里某一储存格 1. 07/03 15:43
18F：→ soyoso: workbook.open，worksheet.range取得 07/03 15:43
19F：→ soyoso: 2.以="'路径["&变数(完整档名)&"]工作表名称'!a1"方式 07/03 15:44
20F：→ soyoso: 更名 name....as 07/03 15:45