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

现在有个项目 用户要到处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>