The Last Day Of Summer

.NET技术 C# ASP.net ActiveReport SICP 代码生成 报表应用 RDLC
posts - 306, comments - 2046, trackbacks - 78, articles - 3
  博客园 :: 首页 :: 新随笔 :: 联系 :: 订阅 订阅 :: 管理

有的Web项目选用Excel作为报表方案,在服务器端生成Excel文件,然后传送到客户端,由客户端进行打印。在国内的环境下,相对PDF方式,Excel的安装率应该比pdf阅读器的安装率要高,同时,微软也为C#操作Excel提供了完备的接口,虽然ZedGraph和其他的商业报表工具生成的统计图也很好,但是人家微软毕竟是大品牌,值得信赖。

本文介绍使用C#调用Excel来生成统计图(Chart)的以及Chart图中各部分控制的一些方法。

 

在上一篇使用C#Excel进行报表开发(二)-操作统计图(Chart中,我们使用一个预定义的Excel文件,通过改变Chart中的某个值来生成统计图。本文进一步演示如何从指定的数据从头生成统计图。

 

首先当然要添加对Excel的引用,然后需要定义几个要用到的Excel对象:

Excel.Application ThisApplication = null;

Excel.Workbooks m_objBooks = null;

Excel._Workbook ThisWorkbook = null;

Excel.Worksheet xlSheet = null;

 

在创建一个新的_WorkBook对象的时候,默认的会含有3Sheet,所以为了显示清晰,将多余的Sheet都删掉:

private void DeleteSheet()

{

        foreach (Excel.Worksheet ws in ThisWorkbook.Worksheets)

                if (ws != ThisApplication.ActiveSheet)

                {

                        ws.Delete();

                }

        foreach (Excel.Chart cht in ThisWorkbook.Charts)

                cht.Delete();

                       

}

 

再下来需要添加用来给Chart提供数据的Sheet

private void AddDatasheet()

{

        xlSheet = (Excel.Worksheet)ThisWorkbook.

                Worksheets.Add(Type.Missing, ThisWorkbook.ActiveSheet,

                Type.Missing, Type.Missing);

 

        xlSheet.Name = "数据";

}

 

生成Chart用到的数据,因为是演示,所以这里使用生成随机数的方法来替代从数据库中提取数据。

private void LoadData()

{

        Random ran = new Random();

        for (int i = 1; i <= 12; i++)

        {

                xlSheet.Cells[i,  1] = i.ToString() + "";

                xlSheet.Cells[i, 2] = ran.Next(2000).ToString();       

        }

}

 

好了,到此,准备工作全部已经就绪,下面要进行Chart的生成设置部分了:

生成一个统计图对象:

Excel.Chart xlChart = (Excel.Chart)ThisWorkbook.Charts.

                Add(Type.Missing, xlSheet, Type.Missing, Type.Missing);

 

设定数据来源:

Excel.Range cellRange = (Excel.Range)xlSheet.Cells[1, 1];

 

通过向导生成Chart

xlChart.ChartWizard(cellRange.CurrentRegion,

                Excel.XlChartType.xl3DColumn, Type.Missing,

                Excel.XlRowCol.xlColumns,1, 0, true ,

                "访问量比较(dahuzizyd.cnblogs.com)", "月份", "访问量",

                "");

 

到此,Chart的生成就完成了,貌似比较简单,下面我们对其作一些设置,好更漂亮些。

设置统计图Sheet的名称:

xlChart.Name = "统计";

 

现在的统计图只有一个组,他们会显示成一样的颜色,我们来让12Bar都显示不同的颜色:

Excel.ChartGroup grp = (Excel.ChartGroup)xlChart.ChartGroups(1);

grp.GapWidth = 20;

grp.VaryByCategories = true;

 

现在Chart的条目的显示形状是Box,我们让它们变成圆柱形,并给它们显示加上数据标签:

Excel.Series s = (Excel.Series)grp.SeriesCollection(1);

s.BarShape = XlBarShape.xlCylinder;

s.HasDataLabels = true;

 

下面再来设置统计图的标题和图例的显示:

xlChart.Legend.Position = XlLegendPosition.xlLegendPositionTop;

xlChart.ChartTitle.Font.Size = 24;

xlChart.ChartTitle.Shadow = true;

xlChart.ChartTitle.Border.LineStyle = Excel.XlLineStyle.xlContinuous;

 

最后设置两个轴的属性,Excel.XlAxisType.xlValue对应的是Y轴,Excel.XlAxisType.xlCategory对应的是X轴:

Excel.Axis valueAxis = (Excel.Axis)xlChart.Axes(Excel.XlAxisType.xlValue, XlAxisGroup.xlPrimary);

valueAxis.AxisTitle.Orientation = -90;

 

Excel.Axis categoryAxis = (Excel.Axis)xlChart.Axes(Excel.XlAxisType.xlCategory, XlAxisGroup.xlPrimary);

categoryAxis.AxisTitle.Font.Name = "MS UI Gothic";

 

到此,一切就绪了,下面要生成Chart,并将其存为一个Excel文件:

try
{
    ThisApplication 
= new Excel.Application();
    m_objBooks 
= (Excel.Workbooks)ThisApplication.Workbooks;
    ThisWorkbook 
= (Excel._Workbook)(m_objBooks.Add(Type.Missing));

    ThisApplication.DisplayAlerts 
= false;

    
this.DeleteSheet();
    
this.AddDatasheet();
    
this.LoadData();

    CreateChart();

    ThisWorkbook.SaveAs(
"z:\\Book2.xls", Type.Missing, Type.Missing,
                    Type.Missing, Type.Missing, Type.Missing, Excel.XlSaveAsAccessMode.xlNoChange,
                Type.Missing, Type.Missing, Type.Missing, Type.Missing);

}

catch (Exception ex)
{
    MessageBox.Show(ex.Message);
}

finally
{
    ThisWorkbook.Close(Type.Missing, Type.Missing, Type.Missing);
    ThisApplication.Workbooks.Close();

    ThisApplication.Quit();
            System.Runtime.InteropServices.Marshal.ReleaseComObject(ThisWorkbook);
                System.Runtime.InteropServices.Marshal.ReleaseComObject(ThisApplication);
    ThisWorkbook 
= null;
    ThisApplication 
= null;
    GC.Collect();
    
this.Close();
}


运行你的程序,打开生成的Excel文件,最终生成的Chart应该像这样:

完成了Chart的生成,但是上面对于每个月只有一项数据,如果我想显示多项呢,例如显示每个月两个页面的范围量的对比。方法很简单,只要再多生成一组数据就可以了,我们修改下LoadData方法:

private void LoadData()

{

        Random ran = new Random();

        for (int i = 1; i <= 12; i++)

        {

                xlSheet.Cells[i,  1] = i.ToString() + "";

                xlSheet.Cells[i, 2] = ran.Next(2000).ToString();

xlSheet.Cells[i, 3] = ran.Next(1500).ToString();       

        }

}

再次运行程序,生成Chart看看,应该像下面的效果:

可以看到,两组数据以不同的形状显示,同时,图例部分也不再显示112月共12项,而是显示两项,这是因为在上面的代码中我们设置了ChartGroupVaryByCategories 属性:

grp.VaryByCategories = true;当我们有两个以上的组时,这一项就失效了。

 

在用C#操作Excel的时候,恐怕最大的困难就在于不知道Excel提供的各个对象,以及它们的属性,方法等信息,好在MSDN里有关于Excel的接口说明-Excel Primary Interop Assembly Reference,参照这些,相信很快就能上手了。

 

最后是完整代码:

Feedback

#1楼  回复 引用 查看   

2006-12-20 16:44 by neuhawk      
这样服务端打开excel进程,太耗资源了.我觉得用reportview+localreport模式
更好.也可以导出excel pdf.
客户端也用装excel.

#2楼  回复 引用 查看   

2006-12-20 16:51 by aspnetx      
how about OWC?

#3楼[楼主]  回复 引用 查看   

2006-12-20 16:56 by Cure      
@neuhawk
谢谢你指出问题,可能我对localreport了解不深,总觉得灵活不够,其实用Excel也有一些不太好的地方,比如将最终的数据输出给客户端,那么在客户端就可以修改数据伪造报表了。
不过我想在开发时能多一种选择也并不是坏事:)

#4楼  回复 引用 查看   

2006-12-20 21:00 by 高海东      
excel 开发

#5楼  回复 引用   

2006-12-21 13:59 by byrybye[未注册用户]
非常支持,赫赫 感觉现在的报表 都弄得太复杂了
RDLC也是这样 其实感觉 用EXCEL做报表 不错
就是不知道 数据量比较大的时候 效率上有没有
好的办法了,哈哈

#6楼  回复 引用 查看   

2006-12-21 17:46 by jchdong      
用水晶报表,可以选择导出到excal

#7楼[楼主]  回复 引用 查看   

2006-12-21 19:10 by Cure      
Excel最大的优势就在于对国内的不规则表格能很快的进行布局设计,而不需要用一条条的线来画表格

#8楼  回复 引用 查看   

2006-12-22 11:49 by Bryant      
不错
那你能传个Excel.dll给我么
先谢了

#9楼[楼主]  回复 引用 查看   

2006-12-22 12:37 by Cure      
@Bryant
我引用的是安装office后的Excel,不是单独的Excel.dll

#10楼  回复 引用   

2007-05-24 16:17 by gohy[未注册用户]
好东西,学习了。。。

#11楼  回复 引用   

2008-02-22 18:36 by la[未注册用户]
请问怎么图个饼画??

#12楼  回复 引用 查看   

2010-10-01 23:44 by 丁健      
孟老师你好,我想实现生产双Y轴的操作,但报参数无效的错误,还请帮忙看看:
Excel.Series s = (Excel.Series)grp.SeriesCollection(1);
s.BarShape = XlBarShape.xlCylinder;
s.HasDataLabels = true;
//下面这句是我加的,报错“参数无效”
s.AxisGroup=XlAxisGroup.xlSecondary;