PHP写出Excel文件的操作类

congbai3426

于 2007-06-12 18:13:18 发布

阅读量115

点赞数

<?php

//查询结果
$db->query($sQueryList);
$numRows = $db->num_rows();
$DataRows = $db->cdata();
if ($numRows != 0) {

$xls = new Exel(true);
//写标题栏
$xls->WriteLabel(0,0,"A");
$xls->WriteLabel(0,1,"B");
$xls->WriteLabel(0,2,"C");
$xls->WriteLabel(0,3,"D");
$xls->WriteLabel(0,4,"E");
$xls->WriteLabel(0,5,"F");
$xls->WriteLabel(0,6,"G");
$xls->WriteLabel(0,7,"H");
$xls->WriteLabel(0,8,"J");
$xls->WriteLabel(0,9,"K");
//写数据区
for ($i=0;$i $n = $i + 1;
$xls->WriteLabel($n,0,$n);
$xls->WriteLabel($n,1,"data1");
$xls->WriteLabel($n,2,"data3");
$xls->WriteLabel($n,3,"data4");
$xls->WriteLabel($n,4,"data4");
$xls->WriteLabel($n,5,"data5");
$xls->WriteLabel($n,6,"data6");
$xls->WriteLabel($n,7,"data7");
$xls->WriteLabel($n,8,"data8");
$xls->WriteLabel($n,9,"data9");
}

}

[@more@]

<?php
// +----------------------------------------------------------------------+
// | PHP Class for generating Exel binary data. (PHP 4 >= 4.0b1) |
// +----------------------------------------------------------------------+
// | Copyright (c) 2001 by KVN |
// +----------------------------------------------------------------------+
// | This source file is subject to version 2.0 of the PHP license, |
// | that is bundled with this package in the file LICENSE, and is |
// | available at through the world-wide-web at |
// | [url]http://www.php.net/license/2_02.txt.[/url] |
// | If you did not receive a copy of the PHP license and are unable to |
// | obtain it through the world-wide-web, please send a note to |
// | [email]license@php.net[/email] so we can mail you a copy immediately. |
// +----------------------------------------------------------------------+
// | Author: Vitaliy N. Kravchenko <kvn@phbme.ntu-kpi.kiev.ua> |
// +----------------------------------------------------------------------+
//
// $Id$ Thu Jul 11 EEST 2002 version 2.5

/*
Usage Example:

$xls = new Exel(false); // begin Excel stream, start Exel and dont ask "Save"..
while($row = $res->fetchRow())
{
$line++;
for ($i=0; $i{
$xls->WriteLabel($line,$i,$row[$i]);
}
}
$xls->SendFile("moe.xls"); // close the stream

Also present Function to write a Number (double) into Row, Col:
$xls->WriteNumber($Row,$Col,$Number);

Example2:

$str = Exel::WriteLabel(1,1,"Hello World!");
$str .= Exel::WriteNumber(1,2,671);
header(..);
echo Exel::Begin();
echo $str;
echo Exel::EOF();

Examle3:

header(....)
$xls = new Exel();
$xls->.... WriteNumber/Label..
echo $xls->GetData();

class Exel {
var $xls_data = "";
var $error = "";
var $download = "true";

function Exel($download = "true") {
$this->download = $download;
$this->Begin();
}

function Begin() {
$str = pack("ssssss", 0x809, 0x8, 0x0, 0x10, 0x0, 0x0);
$this->xls_data = $str;
return $str;
}

function EOF() {
$str = pack("ss", 0x0A, 0x00);
$this->xls_data .= $str;
return $str;
}

function WriteNumber($Row, $Col, $Value) {
$str = pack("sssss", 0x203, 14, $Row, $Col, 0x0);
$str .= pack("d", $Value);
$this->xls_data .= $str;
return $str;
}

function WriteLabel($Row, $Col, $Value ) {
$L = strlen($Value);
$str = pack("ssssss", 0x204, 8 + $L, $Row, $Col, 0x0, $L);
$str .= $Value;
$this->xls_data .= $str;
return $str;
}

function SendFile($filename = "test.xls") {
//$this->_Header($filename);
//echo $this->xls_data;
echo $this->EOF();
}

function SendFileDown($filename = "test.xls") {
//$this->_Header($filename);
//echo $this->xls_data;
//echo $this->EOF();
$this->toFile($filename);
}

function GetData($eof = "true") {
if ($eof)
return $xls_data . $this->EOF();
else
return $xls_data;
}

/**
* Function to write Excel-data to $file
* Example:
* if ($xls->toFile("/path/to/file.xls")) {
* echo "OK";
* } else {
* echo $xls->getLastError();
* }
*
*
* @param $efile string - File name.
*
*/
function toFile($file = "test.xls") {
$fp = @fopen($file,"w");
if (is_resource($fp)) {
fwrite($fp, $this->xls_data);
fclose($fp);
return true;
} else {
$this->error = "Can't access file '$file' for writting!";
return false;
}
}