PERL如何生成DOC，EXCEL

gbnice

WEB上提取数据库里的统计信息，我希望最终它以DOC，EXCEL格式呈现出来，怎么创建这种文本格式的结果输出？能给详细代码参考吗？谢谢！

con

这是我以前写的一个例子，对word,excel文件的各种详细的操作
可参看offic的vba参考手册

-------cut  here---------------------------------------------------

#!/usr/bin/aperl

use OLE;

#创建的excel文件的文件名
$xlfile ="c:\\temp\\ccc.xls";
open(FH,"filelist" or die "cannot open file : $!";

#创建excel应用的OLE对象
$xl_app = CreateObject OLE 'Excel.Application' || die $!;
$xl_app->;{'Visible'} = 1; #打开的excel是否可见
$xl_app->;{'SheetsInNewWorkbook'} = 1; #文件中有一个工作表
$workbook = $xl_app->;Workbooks->;Add; #创建新的工作簿
$worksheet = $workbook->;Worksheets(1); #选择第一个工作表
$i=1;
while(<FH>{
        split;
        $worksheet->;Range("A1"->;{'ColumnWidth'}=length $_[10] #设置cell的宽度
                        if( ($worksheet->;Range("A1"->;{'ColumnWidth'}) < (length $_[10]) );
        $worksheet->;Cells($i,1)->;{'Value'}=$_[10]; #为cell赋值
        $worksheet->;Cells($i,2)->;{'Value'}=$_[9];
        $worksheet->;Cells($i,3)->;{'Value'}=$_[6];
        $worksheet->;Cells($i,4)->;{'Value'}=$_[7];
        $worksheet->;Cells($i,5)->;{'Value'}=$_[5];
        $worksheet->;Cells($i,6)->;{'Value'}=$_[4];
        $i++;
}
sleep 5;
#$workbook->;SaveAs($xlfile); #保存文件
$xl_app->;ActiveWorkbook->;Close(0);
$xl_app->;Quit();

gbnice

length $_[10]  是什么东西的长度？


Range("A1"是什么？

$worksheet->;Cells($i,2)->;{'Value'}=$_[9]; 中：

Cells($i,2)如果表示第i行第2列，那么直接Cells($i,2)可以了吗？{'Value'}是固定格式？

con

这个程序很早以前写的，记不太清楚了
好像是把filelist这个文本文件中的内容加到一个生成
的excel文件cc.xls中

1. length $_[10]是filelist中第11列的字串的宽度
2. A1应该是A1号单元格吧
3. Cells($i,2)是一个对象，因此不能直接赋值，要对单元格赋值
的话只能给Cells对象的Value属性赋值

Office里面具体的各种对象，方法和属性可以看Office VBA的参考手册

batchmain

我想输出的Excel文件比较复杂点，有合并单元格，如何实现？

HonestQiao

原帖由 batchmain 于 2005-12-18 23:12 发表
我想输出的Excel文件比较复杂点，有合并单元格，如何实现？

这个我想你应该首先完全熟悉VBA里面对Excel的操作,然后再来使用Perl调用.

否则仅仅从perl的角度来说是没有任何捷径的

batchmain

斑竹你好。我是在UNIX下生成Excel文件，应该与DBA没有什么关系，真的没有什么好办法么？

HonestQiao

Unix???

那基本没有多大的可能了.

前面提供的是Win的方法,才用类似VBA的手段操作的.

peakgod

原帖由 con 于 2004-1-12 17:03 发表
这是我以前写的一个例子，对word,excel文件的各种详细的操作
可参看offic的vba参考手册

-------cut  here---------------------------------------------------

#!/usr/bin/aperl

use OLE;

#创建的e ...

请问 sleep 5 是什么意思呢？

兰花仙子

原帖由 peakgod 于 2005-12-19 22:18 发表

请问 sleep 5 是什么意思呢？

休眠5秒钟。perldoc -f sleep