批量复制文件夹下多个EXCEL表的第一个表

yrjgoodluck666

求助大师：1、批量复制文件夹下多个EXCEL表的第一个表“APR 2023”,重命为“MAY 2023”,新表放到最左第一个表。2、能不能将新表“MAY 2023”的B3格日期改为2023-5-31。谢谢！

仙女配凡人

运行代码后，选择需要处理的文件即可

1. function testTitle() {
   
2.   let suffix = 'Excel Files(*.xls;*.xlsx;*.csv), *.xls;*.xlsx;*.csv';
   
3.   let path = Application.GetOpenFilename(suffix, 1, '可选多个文件', undefined, true);
   
4.   path.forEach(i => {
   
5.     let wb = Workbooks.Open(i);
   
6.     let sht = wb.Sheets('APR 2023');
   
7.     if (!sht) return wb.Close(false);
   
8. 
   
9.     sht.Copy(wb.Sheets(1));
   
10.     sht = wb.ActiveSheet;
    
11.     sht.Range('B3').Value2 = '2023-5-31';
    
12.     try {
    
13.       sht.Name = 'MAY 2023';
    
14.       wb.Save();
    
15.       wb.Close()
    
16.     } catch {
    
17.       alert('已经存在相同名称的工作表：MAY 2023')
    
18.     }
    
19.   })
    
20. }

复制代码

yrjgoodluck666

仙女配凡人 发表于 2023-5-5 17:10
运行代码后，选择需要处理的文件即可

您好！代码是不是不全，运行不了

LIUZHU

仙女配凡人 发表于 2023-5-5 17:10
运行代码后，选择需要处理的文件即可

第6行，如果“APR 2023”的表不存在的话，会不会报错？这里是否要用try...catch?

yrjgoodluck666

仙女配凡人 发表于 2023-5-5 17:10
运行代码后，选择需要处理的文件即可

您好！不好意思，麻烦帮忙上传一下附件，我没捣鼓出来

仙女配凡人

LIUZHU 发表于 2023-5-6 14:31
第6行，如果“APR 2023”的表不存在的话，会不会报错？这里是否要用try...catch?

不会报错，第七行代码已经判断了，如果APR 2023工作表不存在，则关闭工作簿并结束本次函数执行，
然后继续执行下一次循环

仙女配凡人

用JavaScript语言写的，用WPS打开使用

yrjgoodluck666

仙女配凡人 发表于 2023-5-6 23:44
用JavaScript语言写的，用WPS打开使用

您好！我们办公电脑用的Microsoft Office Excel 2007版本，私自装不了WPS, 请问能不能改为VBA代码？