另外一篇操作excel的参考

1，和上次那边基本差不多，只不过是个实用的工具，多了些文件操作，模式匹配等，备份供参考

2，如何打开VBA帮助，office2007里面

新建或打开已有OFFICE文档

ALT+F11
此時出現VBA編程介面,
幫助菜單

打开EXCEL,工具栏中选宏,单击visual basic编辑器,出现了Microsoft visual basic,在其工具栏帮助中找Microsoft visual basic帮助.

#Auther: lancer
#Data: 2009.11.02
#Function: Get name of all muscic from GDD file and process it, then write to another excel file, to be used by code
#Version: 1.00

#Modified
#Version: 1.01 12/17/2009 -- Remove existed files and create a new excel file;

#!usr/bin/perl
use strict;
use warnings;
use Win32::OLE;   #import win32 OLE package

my $dir = 'C://iphonegame//ParadiseQuest//iphone//trunk//doc//Production//'; #create two EXCEL files under this dir
my $src_name = $dir."Paradise Quest IPhone GDD"."/.xlsx"; #file to be read and processed
my $dst_name = $dir."test"."/.xlsx"; #file to be written
my $src_sheet_name = 'Sound and iTunes Access'; #sheet number in the source xls
my $dst_sheet_name = 'sheet1'; #sheet number in the destination xls
my $nowstr;
my $sound_name;
my $bgm_count = 0;
my $se_count = 0;
my $align_space = '    ';

print "By lancer/n";
#new a EXCEL application object, then we can operate to excel file
my $app_xls = Win32::OLE->new('Excel.Application', sub{$_[0]->Quit})
or die"Can't install Excel01!";

#open a EXCEL file, 'True' means read only
my $src_book = $app_xls->WorkBooks->Open($src_name, 0, 'True');
my $src_sheet = $src_book->Worksheets($src_sheet_name); #selete a worksheet

unlink $dst_name;
#while(<STDIN>){
#
#}
print("delete primal file/n");

#open(OUTFILE, ">$dst_name")||die "Open file [$dst_name] error!";
#close(OUTFILE); #close excel file handle
##while(<STDIN>){
##
##}
#print("open file/n");
#
#while(<STDIN>){
#
#}
my $dst_book = $app_xls->WorkBooks->Add();

print("create new file/n");
#$dst_book->SaveAs($dst_name);
my $dst_sheet = $dst_book->Worksheets(1);
$app_xls->{DisplayAlerts} = 'False';    #close the alert of excel, such as change or save

for (my $i = 1; $i < 200; $i++) {
        $nowstr = $src_sheet->Cells($i,'D')->{Value}; #get data from a cell
        if($nowstr){
                if($nowstr eq 'bgm'){
                        $sound_name = $src_sheet->Cells($i,'C')->{Value}; #get data from a cell
                        process_bgm_name($sound_name);
                }elsif($nowstr eq 'se'){
                        $sound_name = $src_sheet->Cells($i,'C')->{Value}; #get data from a cell
                        process_se_name($sound_name);
                }
        }
}

#$dst_book->Save; #save the change to destination xls
$dst_book->SaveAs($dst_name);
print("Finish process, file saved. Press Enter to quit!/n");
$app_xls->{DisplayAlerts} = 'True'; #restore the alert of excel

undef $src_book;
undef $dst_book;
undef $app_xls; #close the opend excel application

my $a;
$a = <>;

sub process_bgm_name{
   ++$bgm_count;
   my $bgm_str = $_[0];

   #process enum value
   my $enum_str = uc($bgm_str);
   $enum_str =~ s//)?.(WAV|M4A)//;
   $enum_str =~ s// /(|[() -]/_/g;
   if($bgm_count==1){ #first enum
            $enum_str .= ' = 0';
   }
   $enum_str = $align_space . 'MUSIC_BGM_' . $enum_str . ',';


   #process char array value
   my $char_str = $bgm_str;
   $char_str =~ s/.wav/.m4a/;
   $char_str = $align_space . '"' . $char_str . '",';

   print "$enum_str/n";
   print "$char_str/n";
   $dst_sheet->Cells($bgm_count,'A')->{Value} = $enum_str; #write a data to a cell
   $dst_sheet->Cells($bgm_count,'B')->{Value} = $char_str;
}

sub process_se_name{
   ++$se_count;
   my $se_str = $_[0];

   #process enum value
   my $enum_str = uc($se_str);
   $enum_str =~ s//)?.WAV//;
   $enum_str =~ s// /(|[() -]/_/g;
   if($se_count==1){ #first enum
            $enum_str .= ' = 0';
   }
   $enum_str =$align_space . 'SOUND_SE_' . $enum_str . ',';

   #process char array value
   my $char_str = $se_str;
   $char_str = $align_space . '"' . $char_str . '",';
   print "$enum_str/n";
   print "$char_str/n";
   $dst_sheet->Cells($se_count,'C')->{Value} = $enum_str; #write a data to a cell
   $dst_sheet->Cells($se_count,'D')->{Value} = $char_str;
}