Delphi控制Excel2000

领测软件测试网

    if not ExcelApplication1.ActiveWorkBook.Saved then
    ExcelApplication1.ActiveSheet.PrintPreview;
    23) 工作表另存为：
    ExcelApplication1.SaveAs( ’C:\Excel\Demo1.xls’ );
    24) 放弃存盘：
    ExcelApplication1.ActiveWorkBook.Saved := True;
    25) 关闭工作簿：
    ExcelApplication1.WorkBooks.Close;
    26) 退出 Excel：
    ExcelApplication1.Quit;
    ExcelApplication1.Disconnect;
    (三) 使用Delphi 控制Excle二维图
    在Form中分别放入ExcelApplication, ExcelWorkbook和ExcelWorksheet
    var asheet1,achart, range:variant;
    1）选择当第一个工作薄第一个工作表
    asheet1:=ExcelApplication1.Workbooks[1].Worksheets[1];
    2）增加一个二维图
    achart:=asheet1.chartobjects.add(100,100,200,200);
    3）选择二维图的形态
    achart.chart.charttype:=4;
    4）给二维图赋值
    series:=achart.chart.seriescollection;

文章来源于领测软件测试网 https://www.ltesting.net/