电子表格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;
就这样可以了很简单的！
打字不易，如满意，望采纳。