【原】WPS JS 宏实践运用：批量修改学籍相片文件名

WPS JS 宏实践运用：批量修改文件名

熟悉VBA的电脑员都知道，使用Excel来批量修改文件名，给我们带了十分方便的体验效果。从文件开始，将注重实践操作来运用WPS JS宏制作一些实际中工作运用的表格。欢迎网友提供素材，抽取部分为你免费制作。本例为：批量修改学籍相片名称。首先说说学籍相片的命名方式为学生本人身份证号码，注意身份证号含X的要大写。没有身份证的学生命名方式为：学校标识码_班号_姓名。要保持和系统内学生的身份证号一致。每个学生的学籍照片大小不能超过60kb。否则无法上传。上传文件的压缩格式是zip，名称可以自己定义比如XX班学籍相片.zip。表格式如下：

表宏按键如下：

宏程序思路：

1、确定当前工作文件名路径。使用ThisWorkbook.Path属性来确定当前工作薄路径。

2、使用Dir()方法获取文件名，使用while循环将原文件名写入工作薄。

3、使用try  catch语句来判断获取最后文件名为空，如果为空表示所有文件读取完毕，结束循环。

二、生成新文件名。

1、使用End()方法获取列最后一个单元。

2、使用for  of循环遍历数组，获取列的每一个单元。

3、使用if语句判断该学生是否存在身份证号码，没有身份证号码的按学校标识码_班号_姓名的文件命名方式命名。

function 生成新文件名(){
	var endRange=Range("G9999").End(xlUp);
	for (let Rng of Range("G2",endRange)){
		if (Range("E"+Rng.Row).Value2!=undefined){
			Range("H"+Rng.Row).Value2=Range("E"+Rng.Row).Value2
		}else{
		bVal=Range("B"+Rng.Row).Value2
		cVal=Range("c"+Rng.Row).Value2
		dVal=Range("d"+Rng.Row).Value2
		Range("H"+Rng.Row).Value2=bVal+cVal+dVal
		}
	}
	
}

宏程序思路：

1、使用typeof类型判断，单元格是否为空，如果为空则表示表格不存在数据，需要填写数据才能进行操作。

2、使用FileCopy（）方法复制并修改文件名，这样既能不破坏原文件名，又可实现文件重命名的效果。

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

原表格获取方法，关注公众号：大内管家零零柒 发送内容：批量修改学籍相片文件名表格 即可。