请教excel修改sheet名字问题

perlnewbie

中午好!
现需要将一堆excel的工作表名称如" Sheet 1 "改成" 工作表1".
看了下Spreadsheet:arseExcel::SaveParser
能很方便的修改 excel的内容,但是有关sheet名字的方法只有一个 get_name().
网上说可访问修改worksheet对象内部的Name属性, 但我愚笨,没能实现,望指教下,万分感谢!

perlnewbie

看来没人对此有兴趣,最终用Win32::GuiTest了事....

1. 
   
2. #!perl -w
   
3. use strict;
   
4. use Win32::GuiTest qw(:ALL);
   
5. 
   
6. #启动wps
   
7. system("start et.exe");
   
8. sleep 1;
   
9. chdir "d:/draft";
   
10. 
    
11. my $i;
    
12. for(glob"*.xls"){
    
13.      SendKeys("%fo");
    
14.      sleep 1;
    
15.       SendKeys($_);
    
16.        $i=110;
    
17.         for my $n (1..3){
    
18.                 MouseMoveAbsPix($i,720);
    
19.          SendMouse("{LEFTCLICK}");
    
20.           SendKeys("%ohr");
    
21.           sleep1;
    
22.            #打开输入法
    
23.            SendKeys("^{SPACE}");
    
24.            sleep 1;
    
25.             SendKeys("binm");
    
26.             SendKeys("{SPACE}");
    
27.             SendKeys("mvf");
    
28.             SendKeys("{SPACE}");
    
29.             SendKeys($n);
    
30.             SendKeys("~");
    
31.             SendKeys("^{SPACE}");
    
32.              $i+=80;
    
33.               sleep 1;
    
34.          }
    
35.           SendKeys("^s");
    
36.           SendKeys("%fc");
    
37. }
    

复制代码