|
JSA代码,供参考
- function 简历保存(){
- let sh=Range("a1").Worksheet;
- let bt=Sheets.Item("明细表").Range("b2:l2").Value2[0];
- let res=bt.reduce((res,x,i)=>{
- let rng=Cells.Find(x);
- if (rng!=null) res[i+1]=rng.Offset(0,1).Value2;
- return res;
- },["=ROW()-ROW($A$2)"]);
- with(Sheets.Item("明细表")){
- if (Cells.Find(res[5])==null){
- let r1=Range("a"+ Rows.Count).End(xlUp).Row + 1;
- Range(`a${r1}`).Resize(1,res.length).Value2=res;
- for (let shp of ActiveSheet.Shapes){
- if (shp.Type==1){
- shp.Copy();
- let cht=sh.ChartObjects().Add(0, 0, shp.Width, shp.Height).Chart;
- cht.Paste();
- cht.Export(`${ThisWorkbook.Path}\\照片\\${res[1]}${res[5]}.jpg`);
- cht.Parent.Delete();
- }
- }
- alert("保存完毕。")
- }else{
- alert("姓名已存在,不能保存。");
- }
- }
- }
复制代码 |
|