--需要的头文件Comobj,shellAPI,Excel2000,添加保存对话框 object SaveDialogExport: TSaveDialog
--
 

var
  FileName, s: String;
  xlapp:TexcelApplication;
  xlWorkbook:TExcelWorkbook;
  xlWorksheet:TExcelWorksheet;
begin
  //导出
  if Self.cx_criticalpath.DataController.RecordCount = 0 then
  begin
    s := '没有导出数据...';
    Application.MessageBox(PChar(s), PChar(Application.Title),
      MB_OK or MB_ICONERROR);
    Exit;
  end;

  SaveDialogExport.Filter := 'Excel文件 (*.xls)';
  SaveDialogExport.Title := '导出为';

  if not SaveDialogExport.Execute then
    Exit;

  FileName := SaveDialogExport.FileName;
  Application.ProcessMessages;

  try
    xlApp := TExcelApplication.Create(self);
    xlWorkbook := TExcelWorkbook.create(self);
    xlworksheet := Texcelworksheet.create(self);
  except
    Application.MessageBox('无法创建Excel文件, 请确认是否安装了Excel软件',
      PChar(Application.Title), MB_OK + MB_ICONWarning);
    Exit;
  end;
  Screen.Cursor := crHourGlass;
  Application.ProcessMessages;
  xlapp.Connect;
  xlapp.Workbooks.Add(null,0);
  xlWorkbook.ConnectTo(xlapp.Workbooks[1]);
  xlWorksheet.ConnectTo(xlWorkbook.Sheets[1] as _Worksheet);

//设置列宽。。。
  xlapp.Range['a1', 'a4'].ColumnWidth := 15;
  xlapp.Range['b1', 'b4'].ColumnWidth := 15;
  xlapp.Range['c1', 'c4'].ColumnWidth := 15;
  xlapp.Range['d1', 'd4'].ColumnWidth := 15;
  xlapp.Range['e1', 'e4'].ColumnWidth := 15;
  xlapp.Range['f1', 'f4'].ColumnWidth := 20;
  xlapp.Range['g1', 'g4'].ColumnWidth := 20;

  xlWorksheet.cells.Item[1,1] := qry_critical.Fields[0].FieldName;
  xlWorksheet.Cells.Item[1,1].Font.name := '宋体';
  xlWorksheet.Cells.Item[1,1].Font.bold := true;
  xlWorksheet.Cells.Item[1,1].orientation := xlhorizontal;
  xlWorksheet.Cells.Item[1,1].verticalAlignment := xlTop;
  xlWorksheet.Cells.Item[1,1].font.size := 11;

  xlWorksheet.cells.Item[1,2] := qry_critical.Fields[9].FieldName;
  xlWorksheet.Cells.Item[1,2].Font.name := '宋体';
  xlWorksheet.Cells.Item[1,2].Font.bold := true;
  xlWorksheet.Cells.Item[1,2].orientation := xlhorizontal;
  xlWorksheet.Cells.Item[1,2].verticalAlignment := xlTop;
  xlWorksheet.Cells.Item[1,2].font.size := 11;

  xlWorksheet.cells.Item[1,3] := qry_critical.Fields[10].FieldName;
  xlWorksheet.Cells.Item[1,3].Font.name := '宋体';
  xlWorksheet.Cells.Item[1,3].Font.bold := true;
  xlWorksheet.Cells.Item[1,3].orientation := xlhorizontal;
  xlWorksheet.Cells.Item[1,3].verticalAlignment := xlTop;
  xlWorksheet.Cells.Item[1,3].font.size := 11;

  xlWorksheet.cells.Item[1,4] := qry_critical.Fields[11].FieldName;
  xlWorksheet.Cells.Item[1,4].Font.name := '宋体';
  xlWorksheet.Cells.Item[1,4].Font.bold := true;
  xlWorksheet.Cells.Item[1,4].orientation := xlhorizontal;
  xlWorksheet.Cells.Item[1,4].verticalAlignment := xlTop;
  xlWorksheet.Cells.Item[1,4].font.size := 11;

  xlWorksheet.cells.Item[1,5] := qry_critical.Fields[12].FieldName;
  xlWorksheet.Cells.Item[1,5].Font.name := '宋体';
  xlWorksheet.Cells.Item[1,5].Font.bold := true;
  xlWorksheet.Cells.Item[1,5].orientation := xlhorizontal;
  xlWorksheet.Cells.Item[1,5].verticalAlignment := xlTop;
  xlWorksheet.Cells.Item[1,5].font.size := 11;

  xlWorksheet.cells.Item[1,6] := qry_critical.Fields[13].FieldName;
  xlWorksheet.Cells.Item[1,6].Font.name := '宋体';
  xlWorksheet.Cells.Item[1,6].Font.bold := true;
  xlWorksheet.Cells.Item[1,6].orientation := xlhorizontal;
  xlWorksheet.Cells.Item[1,6].verticalAlignment := xlTop;
  xlWorksheet.Cells.Item[1,6].font.size := 11;

  xlWorksheet.cells.Item[1,7] := qry_critical.Fields[14].FieldName;
  xlWorksheet.Cells.Item[1,7].Font.name := '宋体';
  xlWorksheet.Cells.Item[1,7].Font.bold := true;
  xlWorksheet.Cells.Item[1,7].orientation := xlhorizontal;
  xlWorksheet.Cells.Item[1,7].verticalAlignment := xlTop;
  xlWorksheet.Cells.Item[1,7].font.size := 11;

  qry_critical.First;
  n := 2;
  while not qry_critical.eof do
  begin
    xlWorksheet.cells.Item[n,1] := qry_critical.Fields[0].AsString;
    xlWorksheet.Cells.Item[n,1].Font.name := '宋体';
    xlWorksheet.Cells.Item[n,1].Font.bold := true;
    xlWorksheet.Cells.Item[n,1].orientation := xlhorizontal;
    xlWorksheet.Cells.Item[n,1].verticalAlignment := xlTop;
    xlWorksheet.Cells.Item[n,1].font.size := 11;
    xlWorksheet.Cells.Item[n,1].wraptext := true;

    xlWorksheet.cells.Item[n,2] := qry_critical.Fields[9].AsString;
    xlWorksheet.Cells.Item[n,2].Font.name := '宋体';
    xlWorksheet.Cells.Item[n,2].Font.bold := true;
    xlWorksheet.Cells.Item[n,2].orientation := xlhorizontal;
    xlWorksheet.Cells.Item[n,2].verticalAlignment := xlTop;
    xlWorksheet.Cells.Item[n,2].font.size := 11;
    xlWorksheet.Cells.Item[n,2].wraptext := true;

    xlWorksheet.cells.Item[n,3] := qry_critical.Fields[10].AsString;
    xlWorksheet.Cells.Item[n,3].Font.name := '宋体';
    xlWorksheet.Cells.Item[n,3].Font.bold := true;
    xlWorksheet.Cells.Item[n,3].orientation := xlhorizontal;
    xlWorksheet.Cells.Item[n,3].verticalAlignment := xlTop;
    xlWorksheet.Cells.Item[n,3].font.size := 11;
    xlWorksheet.Cells.Item[n,3].wraptext := true;

    xlWorksheet.cells.Item[n,4] := qry_critical.Fields[11].AsString;
    xlWorksheet.Cells.Item[n,4].Font.name := '宋体';
    xlWorksheet.Cells.Item[n,4].Font.bold := true;
    xlWorksheet.Cells.Item[n,4].orientation := xlhorizontal;
    xlWorksheet.Cells.Item[n,4].verticalAlignment := xlTop;
    xlWorksheet.Cells.Item[n,4].font.size := 11;
    xlWorksheet.Cells.Item[n,4].wraptext := true;

    xlWorksheet.cells.Item[n,5] := qry_critical.Fields[12].AsString;
    xlWorksheet.Cells.Item[n,5].Font.name := '宋体';
    xlWorksheet.Cells.Item[n,5].Font.bold := true;
    xlWorksheet.Cells.Item[n,5].orientation := xlhorizontal;
    xlWorksheet.Cells.Item[n,5].verticalAlignment := xlTop;
    xlWorksheet.Cells.Item[n,5].font.size := 11;
    xlWorksheet.Cells.Item[n,5].wraptext := true;

    xlWorksheet.cells.Item[n,6] := qry_critical.Fields[13].AsString;
    xlWorksheet.Cells.Item[n,6].Font.name := '宋体';
    xlWorksheet.Cells.Item[n,6].Font.bold := true;
    xlWorksheet.Cells.Item[n,6].orientation := xlhorizontal;
    xlWorksheet.Cells.Item[n,6].verticalAlignment := xlTop;
    xlWorksheet.Cells.Item[n,6].font.size := 11;
    xlWorksheet.Cells.Item[n,6].wraptext := true;

    xlWorksheet.cells.Item[n,7] := qry_critical.Fields[14].AsString;
    xlWorksheet.Cells.Item[n,7].Font.name := '宋体';
    xlWorksheet.Cells.Item[n,7].Font.bold := true;
    xlWorksheet.Cells.Item[n,7].orientation := xlhorizontal;
    xlWorksheet.Cells.Item[n,7].verticalAlignment := xlTop;
    xlWorksheet.Cells.Item[n,7].font.size := 11;
    xlWorksheet.Cells.Item[n,7].wraptext := true;

    inc(n);
    qry_critical.Next;
  end;
  xlWorksheet.cells.Item[n+qry_critical.recordcount,1] := '';
  xlWorkbook.SaveCopyAs(FileName);
  xlapp.Quit;
  xlWorksheet.Disconnect;
  xlWorkbook.Disconnect;
  xlapp.Disconnect;
  FreeAndNil(xlWorkbook);
  FreeAndNil(xlWorksheet);
  FreeAndNil(xlapp);

  Screen.Cursor := crDefault;
  Application.ProcessMessages;
  s := '导出完成...';
  Application.MessageBox(PChar(s), PChar(Application.Title),
    MB_OK or MB_IconInformation);

本文转自鹅倌51CTO博客，原文链接：http://blog.51cto.com/kaixinbuliao/1104876 ，如需转载请自行联系原作者