PHPExcelでExcel作成～クライアント端末へコピー つまずいたことメモ

１．サーバ上の所定のフォルダへExcelファイルを作成する（PHPExcel5使用）

用意しておいたひな形ExcelファイルをPHPExcelでオープン~値をセット~使用行に罫線を引く~名前を付けて保存。（保存ダイアログは表示させない）

//ループ処理などは省略、単純なセット方法のみのメモ
$this->load->library("phpexcel");
$objReader = new PHPExcel_Reader_Excel5();
$objPHPExcel = $objReader->load("d:\\conference_output\\gen\\format.xls");
$objPHPExcel->setActiveSheetIndex(0)->setCellValue('E2', $p_id);
$objPHPExcel->setActiveSheetIndex(0)->setCellValue('N2', $p_name);
//罫線
$objPHPExcel->setActiveSheetIndex(0)->getStyle('A'.$setrow.':'.'S'.$setrow)->getBorders()->getBottom()->setBorderStyle(PHPExcel_Style_Border::BORDER_THIN);
$objPHPExcel->setActiveSheetIndex(0)->getStyle('A'.$setrow)->getBorders()->getLeft()->setBorderStyle(PHPExcel_Style_Border::BORDER_THIN);
$objPHPExcel->setActiveSheetIndex(0)->getStyle('C'.$setrow)->getBorders()->getRight()->setBorderStyle(PHPExcel_Style_Border::BORDER_THIN);
$objPHPExcel->setActiveSheetIndex(0)->getStyle('F'.$setrow)->getBorders()->getRight()->setBorderStyle(PHPExcel_Style_Border::BORDER_THIN);
$objPHPExcel->setActiveSheetIndex(0)->getStyle('H'.$setrow)->getBorders()->getRight()->setBorderStyle(PHPExcel_Style_Border::BORDER_THIN);
$objPHPExcel->setActiveSheetIndex(0)->getStyle('S'.$setrow)->getBorders()->getRight()->setBorderStyle(PHPExcel_Style_Border::BORDER_THIN);
//文字数や改行数に応じて行高さ設定
if($j > 3){
$AdmRowHeight = $j * 20;
$objPHPExcel->setActiveSheetIndex(0)->getRowDimension(6)->setRowHeight($AdmRowHeight);
}
$k = substr_count($soudannaiyou,"\n");
if($k > 3){
$SDNRowHeight = $k * 20;
$objPHPExcel->setActiveSheetIndex(0)->getRowDimension($setrow)->setRowHeight($SDNRowHeight);
}
//印刷範囲の設定
$objPHPExcel->getActiveSheet()->getPageSetup()->setPrintArea('A1:S'.$setrow);
$objPHPExcel->getActiveSheet()->setTitle('Output');
$objPHPExcel->setActiveSheetIndex(0);
$objWriter = PHPExcel_IOFactory::createWriter($objPHPExcel, 'Excel5');
$objWriter->save('d:\\conference_output\\ticket.xls');

ここまでは問題ないが、今回このひな形となるExcelファイルを数パターン用意しており、フラグによって使用するひな形Excelを使い分けるという仕様であった。その中の一つにチェックボックスを含むひな形があり、ここで問題発生。

チェックボックスを含む場合に、PHPExcelを通して編集をかけたらチェックボックスがすべて消えてしまう現象。ググってみると、PHPExcelやExcelWriterではチェックボックスに対応していないとのこと。

そこでCOMを使用した方法に変更すると解決。

$excel=new COM("excel.application") or die("システムエラーが発生したため処理を中止します。");
$excel->DisplayAlerts=0;
$sFilename = "d:\\conference_output\\can\\format.xls";
//ひな形段階で日本語シート名としていたらうまくいかないためここで命名
$sheet1_name = mb_convert_encoding("しーと名１","sjis-win","utf8");
$sheet2_name = mb_convert_encoding("しーと名２","sjis-win","utf8");
$wkb=$excel->Workbooks->Open($sFilename);
//シート１名称変更
$sheet=$wkb->Worksheets("sheet1");
$sheet->activate;
$sheet->Name=$sheet1_name;
$cells=$sheet->Cells(9,3);
$cells->Activate;
$cells->value=$p_id;
$cells=$sheet->Cells(11,3);
$cells->Activate;
$cells->value=mb_convert_encoding($patientname,"sjis-win","utf8");
//シート２名称変更
$sheet=$wkb->Worksheets("sheet2");
$sheet->activate;
$sheet->Name=$sheet2_name;
$cells=$sheet->Cells(9,3);
$cells->Activate;
$cells->value=$p_id;
//シート１アクティブ
$sheet=$wkb->Worksheets($sheet1_name);
$sheet->activate;
$wkb->SaveAs("d:\\conference_output\\ticket.xls");
$wkb->Close();
$excel->Quit();
unset($excel);

(2)サーバのOfficeのバージョン

２．操作端末へExcelファイルをコピーし、起動する（VBScript使用）

<script language="VBScript">
<!--
Function getFiletoCliant()
Set objNetWork = CreateObject("WScript.Network")
getComputerName = objNetWork.ComputerName
Set objNetWork = Nothing
path0="\\srvname\d\conference_output\ticket.xls"
path1="\\" & getComputerName & "\C$\test\"
filename="てすと.xls"
Set fso = CreateObject("Scripting.FileSystemObject")
Call fso.CopyFile(path0,path1,True)
if fso.FileExists(path1 & filename) then
fso.DeleteFile path1 & filename
end if
Set f = fso.getFile(path1 & "\ticket.xls")
f.name = "てすと.xls"
Set ExlApp = CreateObject("Excel.Application")
ExlApp.Visible = True
ExlApp.Workbooks.Open (path1 & filename)
ExlApp.WindowState=-4143
//最前面に表示
CreateObject("WScript.Shell").SendKeys "%({TAB})"
Set ExlApp = nothing
End Function
-->
</script>