电子表格excel图表模板的预览

1.excel图表模板的预览

把EXCEL放在delphi 应用程序（.exe）同个目录然后

begin

var

excel, WorkBook, Sheet: Variant;

try

excel := CreateOleObject('Excel.Application');

WorkBook := excel.Workbooks.Add(extractfilepath(application.exename) + '\xxxxx.xls');

Sheet := WorkBook.Worksheets[1];

except

excel := NULL;

ShowMessage（'请先安装Excel'）;

EXIT;

end;

try

Sheet.cells(5, 2) := '15484151'； //表示第5行第2列写入15484151字符

。.

finally

end;

try

excel.Visible := true;

WorkBook.Saved := True;

finally

//excel.Quit;

//excel := Unassigned;

end;

end;

就这样可以了很简单的！

打字不易，如满意，望采纳。

2.已知几个点的坐标如何用excel画出他们的图像

1、在EXCEL中任选两列输入数据，打开菜单栏“插入”——“图表”（图）

2、在“标准类型”一栏选“XY散点图”（图）

3、选“下一步”，预览图表

4、下一步

5、得到图表

3.excel图表模板的预览

把EXCEL放在delphi 应用程序（.exe）同个目录然后

begin

var

excel, WorkBook, Sheet: Variant;

try

excel := CreateOleObject('Excel.Application');

WorkBook := excel.Workbooks.Add(extractfilepath(application.exename) + '\xxxxx.xls');

Sheet := WorkBook.Worksheets[1];

except

excel := NULL;

ShowMessage（'请先安装Excel'）;

EXIT;

end;

try

Sheet.cells(5, 2) := '15484151'； //表示第5行第2列写入15484151字符

。

。.

finally

end;

try

excel.Visible := true;

WorkBook.Saved := True;

finally

//excel.Quit;

//excel := Unassigned;

end;

end;

就这样可以了很简单的！

打字不易，如满意，望采纳。