perl的EXCEL操作初级学习总结

1、使用EXECL驱动(生成脚本到固定文件)

######################################################################
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
######################################################################
$Win32::OLE::Warn = 3;
my $Excel = Win32::OLE->GetActiveObject('Excel.Application') || Win32::OLE->new('Excel.Application','Quit');
my $fielname = q(D:EDW_VSS供数APS1-设计保全SDM映射.xls);
my $Book = $Excel->Workbooks->Open("$fielname");
open(F,'>C:Documents and SettingsAdministrator桌面create_procaps_table_comments.SQL');

#程序主题部分

# clean up after ourselves
$Book->Close;
close(F);

2、获取系统时间

my$Create_Time = localtime();

3、固定字符与变量字符相连

my$Proc_Name = "P_APS_".${Target_Table_Name};

4、获取EXCEL单元格内容

my$Src_Tab_Ch_Name = $Sheet->Cells(1,9)->{'Value'};

5、将字符串转成大写或小写

$Source_Table_Name= uc($Source_Table_Name);

$Source_Table_Name= lc($Source_Table_Name);

6、引用字符串变量时如果有时候不起作用，可以带上大括号

${Target_Table_Name};

7、打印文本到文件

???????? print F"------------${Proc_Name}的生成代码脚本------------n";

8、perl读取的EXCEL文件或生成的文本文件路径不能有空格

如：open(F,'>C:Documentsand SettingsAdministrator桌面create_procaps_table_comments.SQL');

执行将不成功。