php批量替換Excel文件內(nèi)容

Sunxb 發(fā)布于2019-06-27 16:48 / 2095人閱讀

摘要：接口來(lái)實(shí)現(xiàn)批量替換不能打開(kāi)應(yīng)用程序打開(kāi)當(dāng)前目錄排除排除循環(huán)讀取文件生成源文件名已跳過(guò)，文件格式不對(duì)正在替換文件打開(kāi)失敗，跳過(guò)文件不存在獲取到值判斷后在這里進(jìn)行替換黑體保存成功關(guān)閉工作簿全部

COM接口來(lái)實(shí)現(xiàn)php批量替換Excl

    $excelPath = "e:excel";
$total = $success = $jump = 0;
$objExcel = new COM("excel.application") or die("不能打開(kāi)Excel應(yīng)用程序");
$handle = opendir($excelPath); //打開(kāi)當(dāng)前目錄
readdir($handle); //排除"."
readdir($handle); //排除 ".."
//循環(huán)讀取文件
while ($file = readdir($handle)) {
    $total++;
    //生成源文件名
    $fileName = $excelPath . DIRECTORY_SEPARATOR .$file;
    $pathinfo = pathinfo($fileName);
    if(strtolower($pathinfo["extension"]) != "xls"){
        echo "已跳過(guò)：".$file."，文件格式不對(duì)";
        $jump++;
        continue;
    }
    echo "正在替換文件：".$file."
";
    if(file_exists($fileName)){
        if(!$objExcel->Application->WorkBooks->Open($fileName)){
            echo $file."打開(kāi)失敗，跳過(guò)！";
            $jump++;
            continue;
        }
    }
    else{
        echo $fileName."文件不存在
";
        $jump++;
        continue;
    }
    $totalRow = $objExcel->ActiveSheet->UsedRange->Rows->Count;
    for($i=1;$i<=$totalRow;$i++){
        $keyword = trim($objExcel->Worksheets(1)->Range("A".$i)->Value);//獲取到值
        if(in_array($keyword,$replaceIn)){//判斷后在這里進(jìn)行替換
            $objExcel->Worksheets(1)->Range("B".$i)->Value = $replaceRule[$keyword];
            $objExcel->Worksheets(1)->Range("B".$i)->Font->Name = "黑體";
            $objExcel->Worksheets(1)->Range("B".$i)->Font->Size = 12;
        }
    }
    if(!$objExcel->ActiveWorkBook->Saved)
    {
        $objExcel->ActiveWorkBook->save();
        echo $file."保存成功！
";
        $success++;
    }
    //關(guān)閉工作簿
    $objExcel->Quit();
}
echo "
全部替換完成！共{$total}個(gè)，成功{$success}個(gè)，跳過(guò){$jump}個(gè)！
";
//清空對(duì)象
$objExcel = null;
exit;

需要注意的是，盡量把這個(gè)程序放在命令行下跑，別放在IIS或APACHE下面，因?yàn)槭钦{(diào)用的系統(tǒng)組件COM，所以可能會(huì)出現(xiàn)各種奇葩的錯(cuò)誤，這些錯(cuò)誤的原因都是因?yàn)闄?quán)限不足引起的，所以直接用管理員身份運(yùn)行命令行，在命令行下跑就能把權(quán)限問(wèn)題排除在外！