向EXCEL中添加数据代码

mianfeiziyuan

procedure TForm1.suiButton3Click(Sender: TObject);
var
aSheet:Variant;
time:string;
begin
// 显示MS-Excel的运行过程
ExcelApplication1.Visible[0] := True;

// 创建一个 WorkBook
ExcelApplication1.WorkBooks.Add(xlWBATWorksheet,0);

// 获取 WorkBook 中的一页 WorkSheet
aSheet:=ExcelApplication1.Worksheets.Item[1];
//存数
//干原料
   aSheet.Cells[1,1].Value:='原料（干）成分';
aSheet.Cells[2,1].Value:='混合矿（干）';
aSheet.Cells[3,1].Value:='石灰石（干）';
aSheet.Cells[4,1].Value:='白云石（干）';
aSheet.Cells[5,1].Value:='焦  粉（干）';
aSheet.Cells[6,1].Value:='生石灰（干）';
aSheet.Cells[7,1].Value:='污  泥（干）';
aSheet.Cells[8,1].Value:='矿粉1（干）';
aSheet.Cells[9,1].Value:='矿粉2（干）';
aSheet.Cells[10,1].Value:='矿粉3（干）';
aSheet.Cells[11,1].Value:='矿粉4（干）';
aSheet.Cells[12,1].Value:='矿粉5（干）';
aSheet.Cells[13,1].Value:='矿粉6（干）';
aSheet.Cells[14,1].Value:='矿粉7（干）';
aSheet.Cells[15,1].Value:='矿粉8（干）';
aSheet.Cells[16,1].Value:='矿粉9（干）';
aSheet.Cells[17,1].Value:='矿粉10（干）';

time:=FormatDateTime('mmddhhmmss', Now);
// 将数据存成Excel格式的文件
aSheet.SaveAs('d:'+time+'.xls');
// 结束MS-Excel的运行
aSheet.Application.Quit;
end;