DCOM技术自定义Excel模版报表组件的一些构思(适用于Excel 2003)

DCOM技术自定义Excel模版报表组件的一些构思(适用于Excel 2003)

     Office无疑是目前最普及的办公软件，在应用开发过程中会有很多相关的需求，将其相关的功能进行组件化，已提高重用度，便于维护,是很有必要的;针对Excel2003的一些特性开发构件了一个轻量级的Excel报表组件:
   报表组件主要功能(目前主要内存数据交换通过DataTable来处理，更通用的模式数据交换应用采用XML来完成):
  1、将EXCEL数据文件导入系统中:
    这一部分实现的比较简单循环Workbook.Sheet获取sheet.Name集合，后用使用OleDbDataAdapter将数据Fill进DataTable中，从目前的运行情况来看效率还是不错

的；
 Web.config中配置OLEDB连接字符串如下:
 <add key="ExcelOledbConnString" value="Provider=Microsoft.Jet.OLEDB.4.0;Data Source={0};Extended Properties=Excel 8.0;"/> //0：为Excel文件的完整路径
 查询字符串格式如下:
  "select * from [{0}$]"; //0：为Excel的Sheet.Name

 2、根据预先定义模版将数据导出到Excel中:
    目前将数据大致分为(用户数据“单行单列如报表标题，创建者”、明细数据“多行多列数据,包括对图表数据列的标记”、多工作表数据，公式数据“如计算求和，平均

值等”、多工作表数据“数据量大时可能要分多个Sheet进行数据填充”...)
    a、模版设计:根据数据类型定义命名区域,(使用模版好处：当应用系统发布后，用户要修改数据列顺序，修改数据列条件格式，修改图表数据区域等操作时，只需要修改更新Excel数据模版的标记和命名区域就可实现)如图:

   

b、核心思路：利用Excel Application全局Names,标记数据的分类及数据填充区域，利用Name.RefersToRange属性找到要填充数据的区域,根据“<>”内的标记解析填充的

数据字段进行数据填充，图表数据解析，公式计算，多工作表数据处理等分类操作导出后如图所示;

    c、大数据量明细数据填充如采用一个单元格单元格处理效率较低（将数据解析为二维数据进行自动填充Range.Value2将大大提高效率）
 
        /// <summary>
        /// 根据模版标签 整合要填充的数据集信息方法
        /// </summary>
        /// <param name="srcDataTable">源数据表</param>
        /// <param name="detailsRange">标签区域</param>
        /// <returns>填充的二维数组</returns>
        public object[,] MergerExcelData(System.Data.DataTable srcDataTable, Range detailsRange)
        {
            object[,] dataArray = new object[srcDataTable.Rows.Count, detailsRange.Cells.Count];
            string [] columnList = new string[detailsRange.Cells.Count];
            Range range = null;
            string parm = string.Empty;
            for (int i = 0; i < detailsRange.Cells.Count; i++)
            {
                range = (Range)detailsRange.Cells[0, i];
                if (range.Value2 != null)
                {
                    parm = range.Value2.ToString();
                }
                parm = ReportUtils.FillterString(parm);
                if (parm.IndexOf(">.") > 0)
                {
                    parm = parm.Substring(1, parm.IndexOf(">") - 1);
                }
                else if (parm.IndexOf(">") >= 2)
                {
                    parm = parm.Substring(1, parm.Length - 2);
                }
                else
                {
                    parm = string.Empty;
                }
                columnList[i] = parm ;
            }
          
            for (int i = 0; i < srcDataTable.Rows.Count; i++)
            {
                for (int j = 0; j < columnList.Count; j++)
                {
                    dataArray[i, j] = ReportUtils.GetDataTableData(srcDataTable, i, columnList[j]);
                }
            }
            return dataArray;
        }

     d、公式字段格式化进行公式填充
 string forum = String.Format("={0}(R[{1}]C:R[-1]C)", parm, (templateCell.X1 - detalCell.X).ToString());
        tempRange.FormulaR1C1 = (object)forum;

     e:将行号转化成字符
        /// <summary>
        /// 将EXCEL的列号转换成字符
        /// </summary>
        /// <param name="anValue">行号</param>
        /// <returns></returns>
        public static string ConverNumToChar(int anValue)
        {
            int k, j, m;
            string tmpStr;
            k = 64;
            m = anValue / 26;
            j = anValue % 26;
            if (0 == j)
            {
                m = m - 1;
            }
            if (m > 0)
            {
                tmpStr = "" + Convert.ToChar(k + m);
            }
            else
            {
                tmpStr = "";
            }
            if (j > 0)
            {
                tmpStr = tmpStr + Convert.ToChar(k + j);
            }
            else
            {
                tmpStr += "Z";
            }
            return tmpStr;
        }