[已解决]批处理如何替换多个excel表格的指定内容？

dbovsdbo

在《分类内容》文件夹里

将所有excel（包括所有工作表）文件的内容进行修改：
要求如下：

广州天河供电局→ 广州越秀供电局

珠吉站新出F9调整东圃站F30负荷→ 所在文件夹名称的中文部分

               
082400WP20145213→所在文件夹名称的（数字和字母）部分

如 第一个

082000WP20157001广东人民广播电台一户一表改造项目       

所有  广州天河供电局→ 广州越秀供电局       
       
所有 珠吉站新出F9调整东圃站F30负荷→广东人民广播电台一户一表改造项目

所有 082400WP20145213→082000WP20157001


最好可以告诉方法以便以后可以加以优化 适用于其他类似的工作呢。谢谢~在《分类内容》文件夹里

将所有excel（包括所有工作表）文件的内容进行修改：
要求如下：

广州天河供电局→ 广州越秀供电局

珠吉站新出F9调整东圃站F30负荷→ 所在文件夹名称的中文部分

               
082400WP20145213→所在文件夹名称的（数字和字母）部分

如 第一个

082000WP20157001广东人民广播电台一户一表改造项目       

所有  广州天河供电局→ 广州越秀供电局       
       
所有 珠吉站新出F9调整东圃站F30负荷→广东人民广播电台一户一表改造项目

所有 082400WP20145213→082000WP20157001


最好可以告诉方法以便以后可以加以优化 适用于其他类似的工作呢。谢谢~
文件链接：
http://pan.baidu.com/s/1nt6bvsd

B魔方大人

不好意思，没注意到需要把文件夹名的数字去掉，下面是更改之后的。

1. Dim regEx,oExcel,fso,fo,t1:t1=Time
   
2. Set oExcel = CreateObject("Excel.Application")
   
3. Set fso = CreateObject("scripting.filesystemobject")
   
4. Set regEx = New RegExp:regEx.Pattern="[a-zA-Z0-9]*"
   
5. Call mFolder(fso.GetFolder("e:\………………\分类内容"))
   
6. 
   
7. Sub mFolder(p)
   
8.         Dim mName
   
9.         For Each i In p.Files
   
10.                 if fso.GetExtensionName(i)="xlsx" Or fso.GetExtensionName(i)="xls" Then
    
11.                         mName=regEx.Replace(i.ParentFolder.Name,"")
    
12.                         Call ex(i.path,mName)
    
13.                 End if
    
14.         next
    
15.         For Each mf In p.SubFolders
    
16.                 Call mFolder(mf)
    
17.         Next
    
18. End Sub
    
19. 
    
20. Sub ex(p,na)
    
21.         Dim oWb,tmpV
    
22.         Set oWb = oExcel.Workbooks.Open(p)
    
23.         For i=1 To oWb.sheets.count
    
24.                 For Each s In oWb.sheets(i).UsedRange
    
25.                         tmpV=s.value
    
26.                         If tmpV<>"" Then
    
27.                                 Select Case True
    
28.                                         Case  CBool(InStr(tmpV,"广州市天河供电局")):s.value="广州越秀供电局"
    
29.                                         Case CBool(InStr(tmpV,"珠吉站新出F9调整东圃站F30负荷")):s.value=na
    
30.                                         Case CBool(InStr(tmpV,"082400WP20145213")):s.value="082000WP20157001"
    
31.                                 End Select
    
32.                         End If
    
33.                 Next
    
34.         Next
    
35.         oWb.Save:oWb.Close:Set oWb=Nothing
    
36. End Sub
    
37. 
    
38. oExcel.Quit
    
39. Set oExcel=Nothing
    
40. Set fso=Nothing
    
41. Set regEx=Nothing
    
42. msgbox "用时"&DateDiff("s",t1,Time)&"秒完成"

复制代码

pcl_test

1. //&cls&(dir /b /s *.xls)|cscript -nologo -e:jscript "%~f0"&pause&exit
   
2. 
   
3. function replaceStr(xlsFile){
   
4.     var m = /\\([a-z0-9]+)([^\\]+)\\[^\\]+\.[^\.]+$/i.exec(xlsFile);
   
5.     var objBook = objExcel.Workbooks.open(xlsFile);
   
6.     for (var i=1; i<=objBook.sheets.count; i++){
   
7.         var enu = new Enumerator(objBook.sheets(i).usedrange)
   
8.         for (; !enu.atEnd(); enu.moveNext()){
   
9.             var cell = enu.item();
   
10.             if (cell.value){
    
11.                 var tmpvar = cell.value;
    
12.                 cell.value = tmpvar.replace('广州市天河供电局','广州越秀供电局').replace('082400WP20145213',m[1]).replace('珠吉站新出F9调整东圃站F30负荷',m[2]);
    
13.             }
    
14.         }
    
15.     }
    
16.     objBook.Save();
    
17.     objBook.Close();
    
18.     WSH.echo(xlsFile+'\tDone');
    
19. }
    
20. 
    
21. var  objExcel = new ActiveXObject('Excel.Application');
    
22. var files = WScript.StdIn.ReadAll().split(/\r\n/);
    
23. for (var i=0; i<files.length; i++)replaceStr(files[i]);
    
24. objExcel.Quit();

复制代码

dbovsdbo

回复 2# B魔方大人

非常感谢 B魔方大人 大大的热心帮助~ 问题完美解决了~ 非常感谢~

dbovsdbo

回复 3# pcl_test


非常感谢  pcl_test  大大的热心帮助~ 太厉害了~一次性搞定所有问题~  问题已经完美解决了~  真的非常感谢啊~

依山居

回复 5# dbovsdbo


   请 改为已解决。