php2xls com parser

[crazy horse]

Преамбула: надоело мне как-то раз постоянно делать одни и те-же телодвижения, чтобы конвертнуть отчет в экселе в хтмл и выложить на сервер.
Перебрал много скриптов, начиная от Excel parser pro и заканчивая PHPExcel.
Поняв, что это не для меня (то с форматами принимаемыми сложности, то с несколькими страницами не умеет работать,) начал искать свое решение. Поскольку в наличии имеется пару серверов под Win2003 было принято решение не мутить голову, а использовать COM.
Амбула: вот, собственно и сам парсер, может кому-то окажется полезным. Все в комментариях:

 <?php
 //Открываем исходный excel-файл
$dh = opendir('C:\otgruzka\\');
while($excel_file = readdir($dh)):
	if ($excel_file!='.' && $excel_file!='..') {
		break;
	} endwhile;
$excel_file='C:\otgruzka\\'.$excel_file;

//Строим путь к конечному Html
$d = date("j");
$m = date("m");

switch($m){
	case "01":
		$month = "january";
		break;
	case "02":
		$month = "february";
		break;
	case "03":
		$month = "martch";
		break;
	case "04":
		$month = "april";
		break;
	case "05":
		$month = "may";
		break;
	case "06":
		$month = "jun";
		break;
	case "07":
		$month = "july";
		break;
	case "08":
		$month = "august";
		break;
	case "09":
		$month = "september";
		break;
	case "10":
		$month = "october";
		break;
	case "11":
		$month = "november";
		break;
	case "12":
		$month = "december";
		break;
	default:
		$month = "";
} // switch

$htm = '\\\Ez-server-1\asu\2008\unload\\'.$month.'\\'.$d.'.htm';



xls2html($excel_file,$htm);

//Собственно сам парсер. На сервере обязан присутствовать microsoft excel. Тестировалось на 2007.
function xls2html($doc,$htm)
{
	$empty = new VARIANT();
	$w = new COM("excel.application") or trigger_error("invalid device");
	//нефиг сервер грузить excel'евским UI
	$w->Visible = 0;

	//Открываем исходный файл
	if (file_exists($doc))
	{
		$w->Workbooks->open($doc);
	}else return false;

	//выделяем значащую область ячеек
	$s = $w->ActiveSheet->UsedRange;
	//Ctrl+c
	$s->Copy();
	//Ctrl+n
	$w->workbooks->add();
	//Ctrl+v
	$w->Activesheet->Paste();
	//тут прикол - если попытаться закрыть первый лист сразу, мастдай
	//будет визжать что в буфере находится много инфы и задавать глупые вопросы
	//на тему - сохранять ли ее после закрытия. Грузить свою умную голову сложными формулами
	//не стал (О, МСДН!) и поступил просто:
	$w->Workbooks[1]->Worksheets[1]->Range("A1:A1")->Copy(); //тык в ячейку, Ctrl+c
	//Закрываем без вопросов
	$w->Workbooks[1]->Close(false);
	//выравниваем оставшийся лист по содержимому
	$w->Workbooks[1]->Worksheets[1]->UsedRange->Columns->AutoFit;
	//Сохраняем как Html - второй параметр отвечает за формат
	//(О, МСДН! Я долго бился и нашел - оказывается, 44!)
	$w->Workbooks[1]->SaveAs($htm,44);
	//снова в клозет и без вопросов!
	$w->Workbooks[1]->Close(false);
	//И нечего нам память жрать!
	$w->Quit();
	$w = null;
	unset($w);
}
?>

Зы. За обработку ошибок ногами не пинать, кому надо - тот сам прикрутит. Не делал еще.