彩票走势图

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

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

　　private void LoadData()

　　{

　　        Random ran = new Random();

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

　　        {

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

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

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

　　        }

　　}

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

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

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

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

　　最后是完整代码：
private void button4_Click(object sender, EventArgs e)
{
    try
    {
        ThisApplication = new Excel.Application();
        m_objBooks = (Excel.Workbooks)ThisApplication.Workbooks;
   &nbsp;    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,
             &nbsp;      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.Application ThisApplication = null;
Excel.Workbooks m_objBooks = null;
Excel._Workbook ThisWorkbook = null;

Excel.Worksheet xlSheet = null;

/**//// <summary>
/// 用生成的随机数作数据
/// </summary>
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();    
 }
}
/**//// <summary>
/// 删除多余的Sheet
/// </summary>
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();
            
}
/**//// <summary>
/// 创建一个Sheet，用来存数据
/// </summary>
private void AddDatasheet()
{
    xlSheet = (Excel.Worksheet)ThisWorkbook.
        Worksheets.Add(Type.Missing, ThisWorkbook.ActiveSheet,
        Type.Missing, Type.Missing);

    xlSheet.Name = "数据";
}
/**//// <summary>
/// 创建统计图         
/// </summary>
private void CreateChart()
{
    Excel.Chart xlChart = (Excel.Chart)ThisWorkbook.Charts.
        Add(Type.Missing, xlSheet, Type.Missing, Type.Missing);

    Excel.Range cellRange = (Excel.Range)xlSheet.Cells[1, 1];
    xlChart.ChartWizard(cellRange.CurrentRegion,
        Excel.XlChartType.xl3DColumn, Type.Missing,
        Excel.XlRowCol.xlColumns,1, 0, true ,
        "访问量比较(dahuzizyd.cnblogs.com)", "月份", "访问量",
        "");

    xlChart.Name = "统计";

    Excel.ChartGroup grp = (Excel.ChartGroup)xlChart.ChartGroups(1);
grp.GapWidth = 20;
    grp.VaryByCategories = true;

    Excel.Series s = (Excel.Series)grp.SeriesCollection(1);
    s.BarShape = XlBarShape.xlCylinder;
    s.HasDataLabels = true;

    xlChart.Legend.Position&nbsp;= 

XlLegendPosition.xlLegendPositionTop;
    xlChart.ChartTitle.Font.Size = 24;
    xlChart.ChartTitle.Shadow = true;
    xlChart.ChartTitle.Border.LineStyle = 

Excel.XlLineStyle.xlContinuous;
            
  &nbsp;&nbsp;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";
}