Perl练习——九九乘法表

以下代码由PHP站长网 52php.cn收集自互联网

现在PHP站长网小编把它分享给大家，仅供参考

#! perl -w
use strict;
use Win32::OLE;
use Win32::OLE::Const 'Microsoft Excel';
$Win32::OLE::Warn = 3;
my $excel = Win32::OLE->GetActiveObject('Excel.Application') ||
Win32::OLE->new('Excel.Application','Quit');
my $book = $excel->Workbooks->Add;
my $sheet = $book->Worksheets(1);
foreach my $i (1..9) {
my $j = 1;
 
    while ($j <= $i) {
        my $result = $j * $i;
        my $cell_content = "$j".' X '."$i".' = '."$result";
        $sheet->Cells($i,$j)->{Value} = $cell_content;    # set value of cells
        $j ++;
    }
}
$book->SaveAs('D:99.xls');
$book->Close;
print "成功";

以上内容由PHP站长网【52php.cn】收集整理供大家参考研究

如果以上内容对您有帮助，欢迎收藏、点赞、推荐、分享。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!