Delphi操作Excel日志记录

1、导出数据

uses Comobj;

procedure TForm10.ExeclExit;
var
  h,k:integer;
  Excelid: OleVariant;
  s: string;
begin
  try
    Excelid := CreateOLEObject('Excel.Application');
  except
    Application.MessageBox('Excel没有安装！', '提示信息', MB_OK+MB_ICONASTERISK+MB_DEFBUTTON1+MB_APPLMODAL);
    Exit;
  end;
  try
    k:=ADOQry.RecordCount;
    Excelid.Visible := True;
    Excelid.WorkBooks.Add;
    Excelid.worksheets[1].range['A1:D1'].Merge(True);
    Excelid.WorkSheets[1].Cells[1,1].Value :='缺件记录表' ;
    Excelid.worksheets[1].Range['a1:a1'].HorizontalAlignment := $FFFFEFF4;
    Excelid.worksheets[1].Range['a1:a1'].VerticalAlignment := $FFFFEFF4;
    Excelid.WorkSheets[1].Cells[2,1].Value := '编号';
    Excelid.WorkSheets[1].Cells[2,2].Value := '元件名';
    Excelid.WorkSheets[1].Cells[2,3].Value := '数量';
    Excelid.WorkSheets[1].Cells[2,4].Value := '备注信息';

    Excelid.Columns[2].ColumnWidth:=20;      //设置列宽度
    Excelid.Columns[4].ColumnWidth:=40;

    Excelid.Cells[1,1].Interior.Color:=clGray;  //设置单元格背景颜色
    Excelid.worksheets[1].range['A1:D2'].Interior.Color:=clGray;

    Excelid.worksheets[1].Range['A1:D1'].Font.Name := '宋体';
    Excelid.worksheets[1].Range['A1:D1'].Font.Size := 14;
    Excelid.worksheets[1].range['A1:D2'].font.bold:=true;
    Excelid.worksheets[1].Range['A2:D2'].Font.Size := 10;
    Excelid.worksheets[1].Range['A2:D2'].HorizontalAlignment := $FFFFEFF4;
    Excelid.worksheets[1].Range['A2:D2'].VerticalAlignment := $FFFFEFF4;         
    h:=3;
    ADOQry.First;
    while not ADOQry.Eof do
    begin
      Excelid.WorkSheets[1].Cells[h,1].Value := Adoqry.FieldByName('编号').AsString;
      Excelid.WorkSheets[1].Cells[h,2].Value := Adoqry.FieldByName('元件名').AsString;
      Excelid.WorkSheets[1].Cells[h,3].Value := Adoqry.FieldByName('数量').AsString;
      Excelid.WorkSheets[1].Cells[h,4].Value := Adoqry.FieldByName('备注').AsString;
      Excelid.Cells[h,4].NumberFormatLocal:='@';   //设置单元格为文本格式
      Inc(h);
      Adoqry.Next;
    end;
    //画表格边框线
    s := 'A2:D'+ IntToStr(k+2);
    Excelid.worksheets[1].Range[s].Font.Name := '宋体';
    Excelid.worksheets[1].Range[s].Font.size := 9;
    Excelid.worksheets[1].Range[s].Borders.LineStyle := 1;
    Excelid.Quit;
  except
    Application.MessageBox('导入数据出错！请检查文件的格式是否正确！', '提示信息', MB_OK+MB_ICONASTERISK+MB_DEFBUTTON1+MB_APPLMODAL);
  end;
  MessageBox(GetActiveWindow(), 'EXCEL数据导出成功!', '提示信息', MB_OK +MB_ICONWARNING);
end;