WPS JS宏批量重命名文件名

 工具软件：WPS JS宏编辑器

代码实现：

一、读取文件名模块

1、定义当前工作薄路径为当前工作路径

var pah=ThisWorkbook.Path;

2、获取当前文件名 

var file=Dir(pah + "\\*.jpg");

 3、获取的文件名写入指定区域

Range("G"+ ++row_num).Value2=file;

function 读取文件名1(){
	var pah=ThisWorkbook.Path;
	var file=Dir(pah + "\\*.jpg");
	Range("G2:G999").Clear()	//清空单元格
	var row_num=1;
	while (true){
		Range("G"+ ++row_num).Value2=file;
		
		try{
			file=Dir();
		}
		catch(err){
			alert("文件名已获取完！");
			break;
		};
	}
}

以上代码是为了获取文件名，方便在修改文件名时进行查阅

 二、重命模块

1、使用MkDir（）方法重命名文件

MkDir(pah+ '\\新文件名');

2、使用文件复制的方法进行重命名文件，这样可以保留原有文件名不被破坏！

 FileCopy(pah+'\\'+Range("G"+Rng.Row).Value2,pah+'\\新文件名'+'\\'+Range("H"+Rng.Row).Value2+'.jpg')

function 重命名文件1(){
	var pah=ThisWorkbook.Path;
	
	if(typeof Range("G2").Value()=="undefined"){
		alert("数据表没有需要校验的数据!");
	}else{
		var 下尾单元格=Range("G9999").End(xlUp);
		//Console.log(pah+'\\10月.xlsx')
		try{
				MkDir(pah+ '\\新文件名');
			}
			catch(err){
				alert("<新文件名>文件夹已存在！点击确定，将为你重命名文件！");
			};
		 for(var Rng of Range("G2",下尾单元格)){
		 	try{
		 	FileCopy(pah+'\\'+Range("G"+Rng.Row).Value2,pah+'\\新文件名'+'\\'+Range("H"+Rng.Row).Value2+'.jpg')
		 	}
		 	catch(err){
				alert("你重命名的文件已存在，请清空文件重新执行！");
				break;
			};
		
		 }
		 alert("重命名文件已完成，请查看<新文件名>文件夹！");
	}
	}

相比于VBA来说，js宏更加易懂简洁。表格已发布资源，可到本博客进行下载学习。