跨工作簿查询，但是日期每月会变动

李糖糖

各位老师好，

期望  “人力汇总” 表能汇总其他工作簿“人力系数”表内容，要注意的是每个项目的人力信息部分日期不一样，而且汇总表里的日期每月也会变动。



新人小白，翻阅了几天论坛，因为汇总表日期每月会变，没能写成功代码，恳请各位老师指导。感谢！！！

3190496160

上传你的excel附件，具体说明需求，最好模拟一点结果，才能得到满意的答案

李糖糖

自顶，千万不要沉下去

学习js宏

建议发个附件不然被人很难回答

李糖糖

学习js宏 发表于 2022-7-5 09:48
建议发个附件不然被人很难回答

感谢提醒，忘了发附件。麻烦帮忙给看下，谢谢

LIUZHU

李糖糖 发表于 2022-7-5 10:09
感谢提醒，忘了发附件。麻烦帮忙给看下，谢谢

1. function 人力汇总(){
   
2.         ChDrive(ThisWorkbook.Path);
   
3.         ChDir(ThisWorkbook.Path);
   
4.        
   
5.         let fname=Application.GetOpenFilename(...["Excel文件（*.xlsx)","*.xls*",,,true]);
   
6.         if (fname==false){
   
7.                 alert("未选择任何工作簿。");
   
8.                 return;
   
9.         }
   
10.        
    
11.         let sh=ThisWorkbook.Sheets.Item("系数表");
    
12.         let c1=sh.Range("a2").End(xlToRight).Column
    
13.         let xsarr=Range("a2").Resize(1,c1).Value2;
    
14.         let obj=new Object();
    
15.         for (let [i,v] of xsarr[0].entries()){
    
16.                 obj[WorksheetFunction.Text(v,"yyyymm")]=i;
    
17.         }
    
18.        
    
19.         Application.DisplayAlerts=false;
    
20.         for (let f of fname){
    
21.                 Workbooks.Open(f);
    
22.                 let xmarr=ActiveSheet.Range("b9:i9").Value2[0];
    
23.                 let temparr=[xmarr[1],xmarr[0],xmarr[2],xmarr[3],xmarr[4],xmarr[6],xmarr[7]];
    
24.                
    
25.                 temparr.length=xsarr[0].length;
    
26.                
    
27.                 let c2=ActiveSheet.Cells(11,Columns.Count).End(xlToLeft).Column;
    
28.                 let r1=ActiveSheet.Cells(Rows.Count,3).End(xlUp).Row;
    
29.                 let btarr=ActiveSheet.Cells(11,1).Resize(1,c2).Value2[0];
    
30.                 let sjarr=ActiveSheet.Cells(r1,1).Resize(1,c2).Value2[0];
    
31.                
    
32.                 for (let [i,v] of btarr.entries()){
    
33.                         let bt=WorksheetFunction.Text(v,"yyyymm");
    
34.                         if (bt in obj){
    
35.                                 n=obj[bt];
    
36.                                 temparr[n]=sjarr[i];
    
37.                         }
    
38.                 }
    
39.                 xsarr.push(temparr);
    
40.                 ActiveWorkbook.Close(false);
    
41.         }
    
42.         if (xsarr.length>1){
    
43.                 sh.Range("a2").Resize(xsarr.length,xsarr[0].length).Value2=xsarr;
    
44.         }
    
45.         Application.DisplayAlerts=true;
    
46. }

复制代码

LIUZHU

附件在此，请测试。

李糖糖

LIUZHU 发表于 2022-7-10 19:21
附件在此，请测试。

里面是空的依然很感谢