|
?
#!/usr/bin/perl ??
use?strict; ??
use?warnings; ??
??
??
use?Win32::OLE?qw(in?with); ??
use?Win32::OLE::Const?'Microsoft?Excel'; ??
use?Win32::OLE::NLS?qw(:LOCALE?:TIME); ??
my?$Excel?=?Win32::OLE->GetActiveObject('Excel.Application') ??
????????||?Win32::OLE->new('Excel.Application',?'Quit'); ??
??
my$excelfile='E:学习程序perlexcelfile.xls'; ??
??
#关闭警告信息，例如保存等,不跳出确认窗口 ??
$Excel->{DisplayAlerts}=0;?? ??
??
#创建一个workbook ??
#my?$Book=$Excel->Workbooks->Add(); ??
#???$Book->SaveAs($excelfile);?#?增加一个workbook，然后保存 ??
??
#直接打开一个excel?若存在 ??
my$Book=$Excel->Workbooks->Open($excelfile); ??
??
#创建一个worksheet对象 ??
my?$Sheet?=?$Book->Worksheets("Sheet1"); ??
#???$Sheet->Activate(); ??
#???$Sheet->{Name}?=?"DidItInPerl"; ??
??
#插入数据 ??
my?($mday,$mon,$year)?=?(localtime(time))[3,4,5]; ??
$year?+=?1900; ??
$mon?+=?1; ??
my?$str?=?$year."/".$mon."/".$mday; ??
??
#Range??行方法 ??
$Sheet->Range("C1")->{Value}=$str; ??
$Sheet->Range("D1")->{Value}="今天的日期"; ??
??
#迭代插入数据 ??
foreach?my$x?(1?..50)?{ ??
????my$range="A".$x; ??
????$Sheet->Range($range)->{Value}="这是第$range行"; ??
} ??
??
??
#循环访问sheet ??
my?$sheetcnt?=?$Book->Worksheets->Count(); ??
foreach?(1..$sheetcnt){ ??
???print?"t"?.$Book->Worksheets($_)->{Name}?."n"; ??
} ??
??
foreach?my?$Sheet(in?$Book->{Worksheets}){ ??
???print?"t"?.$Sheet->{Name}?."n"; ??
} ??
??
??
#找到最后一行?最后一列方法 ??
my?$LastRow?=?$Sheet->UsedRange->Find({What=>"*",??
????SearchDirection=>xlPrevious,??
????SearchOrder=>xlByRows})->{Row}; ??
??
my?$LastCol?=?$Sheet->UsedRange->Find({What=>"*",??
??????????????????SearchDirection=>xlPrevious,??
??????????????????SearchOrder=>xlByColumns})->{Column}; ??
print?"最后一列:",$LastCol,"n"; ??
print?"最后一行:",$LastRow,"n"; ??
??
??
#读取第一行到最后一行数据 ??
print?"#"?x80,"n"; ??
print?"读取A列第一行到最后一行数据n"; ??
my$tmp; ??
foreach?my$last_data?(1..$LastRow)?{ ??
????$tmp=$Sheet->Range("A".$last_data)->{Value}; ??
????print?"第$last_data行数据:",$tmp,"n"; ??
}
#学习来源perlmonks.org ?? http://13angel.iteye.com/blog/602486
（编辑：李大同）
【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!
|
