EXCEL.application 设置格式效率低下的问题

lican1987f 2011-11-03 06:53:44

现在有个项目用户要到处2000多个数据块放在EXCEL里

用文件流导出这些数据倒是很快，但是调用EXCEL.application去设置每个数据块的边框的时候出现了问题。

设置一整个边框几乎要用1秒的时间，有没有什么高效的设置EXCEL边框的方法？

现在设置格式的代码如下



<cffunction name="PrintExcelBorder">

    <CFARGUMENT name="startCellRow" type="numeric" default="">

 	<CFARGUMENT name="monthRowCount" type="numeric" default="">

    <cfscript>

  startCellRow = startCellRow + 6;

  objRange = objWorkSheet.Range("B" & startCellRow,"V" & (startCellRow + 2 + monthRowCount));

  WriteExcelLineByBordersItem("7");

  WriteExcelLineByBordersItem("10");

  WriteExcelLineByBordersItem("8");

  WriteExcelLineByBordersItem("9");

  

  objRange = objWorkSheet.Range("B" & startCellRow,"V" & (startCellRow + 1));

  WriteExcelLineByBordersItem("9");

  

  objRange = objWorkSheet.Range("B" & (startCellRow + 2 + monthRowCount),"V" & (startCellRow + 2 + monthRowCount));

  WriteExcelLineByBordersItem("8");

  

  objRange = objWorkSheet.Range("S" & startCellRow,"V" & (startCellRow + 2 + monthRowCount));

  WriteExcelLineByBordersItem("7");

  

  objRange = objWorkSheet.Range("F" &  (startCellRow + 4 + monthRowCount),"L" & (startCellRow + 7 + monthRowCount));

  WriteExcelLineByBordersItem("7");

  WriteExcelLineByBordersItem("10");

  WriteExcelLineByBordersItem("3");

  WriteExcelLineByBordersItem("9");

  

  objRange = objWorkSheet.Range("H" &  (startCellRow + 4 + monthRowCount),"H" & (startCellRow + 7 + monthRowCount));

  WriteExcelLineByBordersItem("10");

  

    </cfscript>

</cffunction>