用Perl的WriteExcel從數據庫生成電子數據表格文件

許多商業最終用戶更喜歡使用目前流行的電子數據表格程序(如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;

 
用Perl的WriteExcel從數據庫生成電子數據表格文件
  許多商業最終用戶更喜歡使用目前流行的電子數據表格程序(如Microsoft Excel),而不是數據庫功能或應用程序。盡管Excel可以用ODBC及相關技術來提取儲存在Oracle數據庫當中的數據,但想讓用戶建立一個環境來直接...查看完整版>>用Perl的WriteExcel從數據庫生成電子數據表格文件
 
Hibernate技巧(1):利用配置文件編寫程序生成數據庫
  目前很多人使用Hibernate作爲持久層,假如我們已經寫了配置文件poweracl.hbm.XML,則不必再費勁寫SQL的DDL。除了利用工具SchemaEXPort之外,還可以編寫程序來自動初始化數據庫,並且生成SQL DDL。(1)Hibernate配...查看完整版>>Hibernate技巧(1):利用配置文件編寫程序生成數據庫
 
利用jdom實現讀取數據庫生成XML及讀取XML文件插入數據庫
利用jdom實現讀取數據庫生成XML及讀取XML文件插入數據庫
  非凡說明:希望朋友們在引用尊重版權,因爲這是對像我這樣的朋友的最大尊重!況且這是我2006的處女貼,也希望對大家有點用,工資狂飙升!!1. 首先是預備開源包,到http://jdom.org.下載,當前最新版本是jdom-...查看完整版>>利用jdom實現讀取數據庫生成XML及讀取XML文件插入數據庫
 
一個動態生成數據庫連接文件的類
一個動態生成數據庫連接文件的類 作者: 我們知道,數據庫連接文件(.udl)可以動態生成各種數據庫連接的參數,而且它是一個文本文件。所以我們就可以動態生成,以增強程序的靈活性。但是...查看完整版>>一個動態生成數據庫連接文件的類
 
Hibernate:利用配置文件生成數據庫
目前很多人使用Hibernate作爲持久層,如果我們已經寫了配置文件poweracl.hbm.xml,則不必再費勁寫SQL的DDL。除了利用工具SchemaExport之外,還可以編寫程序來自動初始化數據庫,並且生成SQL DDL。 (1)Hibernate配置文...查看完整版>>Hibernate:利用配置文件生成數據庫
 
· 臨近國慶,李小璐與女兒在天安門前合影

http://image.wangchao.net.cn/users/...

· 震驚!原來酒駕處罰這麽嚴重

酒駕處罰標准 不要有任何一絲僥幸心理! http://image....

· 把年齡相仿的獅虎熊放一起,誰更厲害?結果出人意料

很多人都想知道獅子、老虎和熊打起來誰最厲害,于是便有好事之人把這三種動物關在一起...