分享
 
 
 

用Perl的WriteExcel从数据库生成电子数据表格文件

王朝perl·作者佚名  2008-05-19
窄屏简体版  字體: |||超大  

许多商业最终用户更喜欢使用目前流行的电子数据表格程序(如Microsoft Excel),而不是数据库功能或应用程序。尽管Excel可以用ODBC及相关技术来提取储存在Oracle数据库当中的数据,但想让用户建立一个环境来直接访问数据或是通过安装脚本来安装数据资源可能会不大合理。

因此,对于程序开发人员来说,从储存在数据库中的数据生成一个电子数据表格,并通过e-mail或网站将其文档传回用户手中,是一个非常基本的一般要求。

关于如何生成Excel电子数据表格,一个典型回答是,生成一个CSV(comma-separated values)文件,在这里每一个字段都用一个Text属性来说明,可能包含在引号里。这种情况下,这个文件作为原始数据被终端用户接受,终端用户在Excel下打开它,通过一个对话将数据正确的分解成电子数据表格中的单元格。

也可能仅仅通过传送作为一个电子数据表格属性的公式(如“=A1+B1”),将这些公式写进电子数据表格,而这个公式只有在字段被准确读取到正确位置时才会有用。在这种情况下,没有格式化控制,当数据读入时,最终用户只能手工将一个电子数据表格重新格式化。

一个Perl替代品

现在有了一个非常有用的CSV文件的替代品。John McNamara创建了一个Perl模块,叫做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::errstr;

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;

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有