使用WPS表格进行文件重命名的优势
![wils](https://wps-home.wpscdn.cn/images/2024/01/01/9c566cb83f10f520ae29c344d3b1698a.png@base@tag=imgScale&w=38&h=38&m=1&c=1&q=75)
创作者俱乐部成员
以前都是在给WPS挑毛病,今天来夸一夸WPS😁
问题来自论坛朋友的回帖:https://bbs.wps.cn/topic/36194
在批量文件重命名这里,他喜欢用表格列出重命名前后的文件名,随意修改,执行vba宏,就可以完成修改,直观又方便
但以前遇到过,Excel表格里,无法获取包含特殊符号的文件名,导致这种方式不如用powershell等脚本支持的文件名广泛,所以一直避免使用这种方式,如下图所示。
在Excel里,无论是VBA立即窗口,还是表格里,都把特殊的一些符号处理成问号,导致进一步执行重命名时出错
今天在论坛朋友的提醒下,试了一下JS宏,却是完全正常处理
应该是因为JS宏默认用utf8编码,而vba默认用gbk,导致vba里遇到不同编码的文件名会出错,JS宏则支持更广泛
于是,用JS宏写了个简陋的重命名工具
点第一个按钮,读取当前文件夹里的txt文件到A列
点第二个按钮,按B列重命名A列的文件名
可以看到,JS宏支持特殊字符的文件名
🔔 | /** * CommandButton1_Click Macro */ function CommandButton1_Click() { Range("A1").EntireColumn.ClearContents() let f = Dir(ThisWorkbook.Path + "\\*.txt") let r = 1 while (f) { Range("A" + (r++)).Value2 = f f = Dir() } Range("A1").EntireColumn.AutoFit() } /** * CommandButton2_Click Macro */ function CommandButton2_Click() { let r = Range("A" + Rows.Count).End(xlUp).Row let rng = Range("A1:B" + r).Value2 for (let i of rng) { let s = ThisWorkbook.Path + "\\" + i[0] let d = ThisWorkbook.Path + "\\" + i[1] if (s !== d) { FileCopy(s, d) Kill(s) } } } |
如有需要欢迎回帖,后面可以扩展一些功能,比如,自选路径;自选后缀;递归遍历文件夹等等
创作者俱乐部成员
社区管理员