SAP报表设置问题

试下以下任一方法

1.在以List的显示格式下输入&RESET_EXCEL后回车

2.运行一个ALV报表，任意格击右健，选spreadsheet ,d出窗口后去掉勾即可

Spreadsheet::WriteExcel，它能动态生成一个真正的、二进制的、Excel的电子数据表格文件。

在这个模块中，你可以创建一个工作手册，并在其中加入工作表，然后直接写入工作表单元格。有许多格式化选项允许你改变字段数据的格式、黑体、对齐方式、字体、前景和背景颜色、填充图案以及边框。

另外，Spreadsheet::WriteExcel可以改变字体，文字变形和旋转文字，插入位图，设置密码保护工作表，以及建立能用鼠标扩展的数据集合。当然还能够设置打印选项和页面暂停的功能。

该模块还可以写标准输出数据，因此它可以在cgi-bin程序中使用。其他程序语言可以通过HTTP

URL参照cgi-bin，来请求Excel电子数据表格电子数据表格。

下面是一个例子，它用DBI从EMP表中提取数据并用公式和格式化生成一个Excel电子数据表格电子数据表格。

use DBI

use Spreadsheet::WriteExcel

# connect to the local database

my $dbh =

DBI->connect(’dbi:Oracle:’,’scott’,’tiger’) || die

$DBI::errstrbitscn.com

print "Generating Excel Spreadsheet＼n"

my $workbook = new Spreadsheet::WriteExcel "emp.xls"

my $worksheet = $workbook->add_worksheet()

my $fmt = {

HEADER =>

$workbook->add_format(bold=>1,align=>’center’,

bottom=>2,bg_color=>’silver’),

ENAME =>

$workbook->add_format(bold=>1,color=>’blue’),

MONEY =>

$workbook->add_format(

num_format=>’$#,##0.00’,align=>’right’),

TOTAL =>

$workbook->add_format(

num_format=>’$#,##0.00’,align=>’right’,bold=>1,

top=>2),

}

print "Querying Employees＼n"

my $sth = $dbh->prepare(’select * from emp’) ||

die $DBI::errstr

my $rc = $sth->execute

my $r = 1

$worksheet->write($r-1,0,’Employee’,$fmt->{HEADER})

$worksheet->write($r-1,1,’Salary’,$fmt->{HEADER})

$worksheet->write($r-1,2,’Commission’,$fmt->{HEADER})

$worksheet->write($r-1,3,’Total’,$fmt->{HEADER})

$r++

while (my $row = $sth->fetchrow_hashref)

中国网管联盟

{

$worksheet->write($r-1,0,$row->{ENAME},$fmt->{ENAME})

$worksheet->write($r-1,1,$row->{SAL},$fmt->{MONEY})

$worksheet->write($r-1,2,$row->{COMM},$fmt->{MONEY})

$worksheet->write($r-1,3,"=B$r+C$r",$fmt->{MONEY})

$r++

}

$worksheet->write($r-1,0,’’,$fmt->{TOTAL})

$worksheet->write($r-1,1,’=SUM(B2:B’.($r-1).’)’,$fmt->{TOTAL})

$worksheet->write($r-1,2,’=SUM(C2:C’.($r-1).’)’,$fmt->{TOTAL})

$worksheet->write($r-1,3,"=B$r+C$r",$fmt->{TOTAL})

print "Processed " . ($r-2) ." rows＼n"

$sth->finish

---