Question

用Delphi7，如何读取excel里面的数据，并在chart控件里面画出曲线图？大神能给个例程最好了

Answer 1

在 delphi 里读取 excel 数据，用 XLSReadWriteII 控件效率最高，但如果还要操纵生成 Chart 图表，通常还是要借用 OleObject 方式来操作。

试编写示例代码如下：

procedure TForm1.Button3Click(Sender: TObject);
var
  ExcelApplication,Sheet1,Cell1,Cell2,Range1:Variant;
begin
  try
    ExcelApplication := CreateOleObject('Excel.Application');
  except
    Showmessage('你的电脑里没有安装 Excel 软件');
    abort;
  end;
  ExcelApplication.Visible:=true;

  ExcelApplication.Workbooks.Add;
  Sheet1:=ExcelApplication.Workbooks[1].Worksheets['sheet1'];

  //建立示例数据
  Sheet1.Name:='图表示例';
  Sheet1.Cells.item[1,1]:='课程';
  Sheet1.Cells.item[2,1]:='语文';
  Sheet1.Cells.item[3,1]:='数字';
  Sheet1.Cells.item[4,1]:='英语';
  Sheet1.Cells.item[5,1]:='化学';
  Sheet1.Cells.item[6,1]:='物理';
  Sheet1.Cells.item[7,1]:='几何';
  Sheet1.Cells.item[1,2]:='成绩';
  Sheet1.Cells.item[2,2]:=78;
  Sheet1.Cells.item[3,2]:=63;
  Sheet1.Cells.item[4,2]:=52;
  Sheet1.Cells.item[5,2]:=77;
  Sheet1.Cells.item[6,2]:=66;
  Sheet1.Cells.item[7,2]:=89;

  //设定图表座标轴范围
  Cell1:=Sheet1.Cells.item[2,1];
  Cell2:=Sheet1.Cells.item[7,2];
  Range1:=sheet1.Range[cell1,cell2];

  Range1.Borders.Color:=27;

  //添加图表
  Sheet1.ChartObjects.add(160, 40, 400, 280);
  sheet1.ChartObjects[1].Activate; //激活图表
  sheet1.ChartObjects[1].Chart.charttype:=xlLineStacked; //指定图表为折线图
  sheet1.ChartObjects[1].Chart.seriescollection.ADD[Range1]; //建立数据
end;

运行效果截图：