+ -
当前位置:首页 → 问答吧 → 关于Excel输出的问题,帮忙看看!

关于Excel输出的问题,帮忙看看!

时间:2010-10-11

来源:互联网

程序如下:
#!/usr/bin/perl
use Spreadsheet:arseExcel;

$parser=Spreadsheet:arseExcel->new();
$workbook=$parser->parse('aa.xls');
for $worksheet($workbook->worksheets())
{
  ($row_min,$row_max)=$worksheet->row_range();
  ($col_min,$col_max)=$worksheet->col_range();
  for $row($col_min .. $col_max)
  {
    for $col($col_min .. $col_max)
    {
                $cell = $worksheet->get_cell( $row, $col );
                print $cell->value();
    }
  }
}

输出如下:
11
aa
22
bb
33
cc
我想让它输出为:
11  aa
22  bb
33  cc

各位大侠帮忙看一下。

excel.jpg (17.19 KB)

下载次数:0

2010-10-11 11:28

作者: li_000828   发布时间: 2010-10-11

你在内层循环的后面加上print "\n"; 就可以了

作者: hp_truth   发布时间: 2010-10-11

是这样吗?
print $cell->value(),"\n";

我是想最后数据输出的布局和原Excel表的数据布局一样。

作者: li_000828   发布时间: 2010-10-11

在 for $col($col_min .. $col_max)
    {
                $cell = $worksheet->get_cell( $row, $col );
                print $cell->value();
    }

之后加就行, 你可以随便试阿, 试一下你就理解了,这个不难啊

作者: hp_truth   发布时间: 2010-10-11

行了,多谢指点!!!

作者: li_000828   发布时间: 2010-10-11