delphi使用ado导出excel(2)-阿里云开发者社区

delphi使用ado导出excel(2)

2017-11-08 1094

版权

本文内容由阿里云实名注册用户自发贡献，版权归原作者所有，阿里云开发者社区不拥有其著作权，亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容，填写侵权投诉表单进行举报，一经查实，本社区将立刻删除涉嫌侵权内容。

简介：

var
FileName, s: String;
i,n:integer;
excelapp:Variant;
Temp_Worksheet: _WorkSheet;
begin
excelapp := CreateOleObject('excel.application');
excelapp.Visible := true;
excelapp.Caption := '临床路径每天执行情况表';
ExcelApp.WorkBooks.Add;
ExcelApp.WorkSheets[2].Activate;

//导出
if Self.qry_pat.RecordCount = 0 then
begin
    s := '没有导出数据...';
    Application.MessageBox(PChar(s), PChar(Application.Title),
      MB_OK or MB_ICONERROR);
    Exit;
end;
Application.ProcessMessages;

excelapp.Range['a1', 'a'+inttostr(qry_pat.RecordCount)].ColumnWidth := 20;
excelapp.cells.Item[1,1] := qry_pat.Fields[1].FieldName;
excelapp.Cells.Item[1,1].Font.name := '宋体';
excelapp.Cells.Item[1,1].Font.bold := true;
excelapp.Cells.Item[1,1].orientation := xlhorizontal;
excelapp.Cells.Item[1,1].verticalAlignment := xlTop;
excelapp.Cells.Item[1,1].font.size := 11;
excelapp.cells.Item[1,2] := qry_pat.Fields[2].FieldName;
excelapp.Cells.Item[1,2].Font.name := '宋体';
excelapp.Cells.Item[1,2].Font.bold := true;
excelapp.Cells.Item[1,2].orientation := xlhorizontal;
excelapp.Cells.Item[1,2].verticalAlignment := xlTop;
excelapp.Cells.Item[1,2].font.size := 11;
    excelapp.cells.Item[1,3] := qry_pat.Fields[3].FieldName;
excelapp.Cells.Item[1,3].Font.name := '宋体';
excelapp.Cells.Item[1,3].Font.bold := true;
excelapp.Cells.Item[1,3].orientation := xlhorizontal;
excelapp.Cells.Item[1,3].verticalAlignment := xlTop;
excelapp.Cells.Item[1,3].font.size := 11;
    excelapp.cells.Item[1,4] := qry_pat.Fields[4].FieldName;
excelapp.Cells.Item[1,4].Font.name := '宋体';
excelapp.Cells.Item[1,4].Font.bold := true;
excelapp.Cells.Item[1,4].orientation := xlhorizontal;
excelapp.Cells.Item[1,4].verticalAlignment := xlTop;
excelapp.Cells.Item[1,4].font.size := 11;
    excelapp.cells.Item[1,5] := qry_pat.Fields[5].FieldName;
excelapp.Cells.Item[1,5].Font.name := '宋体';
excelapp.Cells.Item[1,5].Font.bold := true;
excelapp.Cells.Item[1,5].orientation := xlhorizontal;
excelapp.Cells.Item[1,5].verticalAlignment := xlTop;
excelapp.Cells.Item[1,5].font.size := 11;
    excelapp.cells.Item[1,6] := qry_pat.Fields[6].FieldName;
excelapp.Cells.Item[1,6].Font.name := '宋体';
excelapp.Cells.Item[1,6].Font.bold := true;
excelapp.Cells.Item[1,6].orientation := xlhorizontal;
excelapp.Cells.Item[1,6].verticalAlignment := xlTop;
excelapp.Cells.Item[1,6].font.size := 11;
    excelapp.cells.Item[1,7] := qry_pat.Fields[7].FieldName;
excelapp.Cells.Item[1,7].Font.name := '宋体';
excelapp.Cells.Item[1,7].Font.bold := true;
excelapp.Cells.Item[1,7].orientation := xlhorizontal;
excelapp.Cells.Item[1,7].verticalAlignment := xlTop;
excelapp.Cells.Item[1,7].font.size := 11;
    excelapp.cells.Item[1,8] := qry_pat.Fields[8].FieldName;
excelapp.Cells.Item[1,8].Font.name := '宋体';
excelapp.Cells.Item[1,8].Font.bold := true;
excelapp.Cells.Item[1,8].orientation := xlhorizontal;
excelapp.Cells.Item[1,8].verticalAlignment := xlTop;
excelapp.Cells.Item[1,8].font.size := 11;
    excelapp.cells.Item[1,9] := qry_pat.Fields[9].FieldName;
excelapp.Cells.Item[1,9].Font.name := '宋体';
excelapp.Cells.Item[1,9].Font.bold := true;
excelapp.Cells.Item[1,9].orientation := xlhorizontal;
excelapp.Cells.Item[1,9].verticalAlignment := xlTop;
excelapp.Cells.Item[1,9].font.size := 11;

qry_pat.First;
n := 2;
while not qry_pat.eof do
begin
    excelapp.cells.Item[n,1] := qry_pat.Fields[1].AsString;
    excelapp.Cells.Item[n,1].Font.name := '宋体';
    excelapp.Cells.Item[n,1].Font.bold := true;
    excelapp.Cells.Item[n,1].orientation := xlhorizontal;
    excelapp.Cells.Item[n,1].verticalAlignment := xlTop;
    excelapp.Cells.Item[n,1].font.size := 11;
    excelapp.Cells.Item[n,1].wraptext := true;
    excelapp.cells.Item[n,2] := qry_pat.Fields[2].AsString;
    excelapp.Cells.Item[n,2].Font.name := '宋体';
    excelapp.Cells.Item[n,2].Font.bold := true;
    excelapp.Cells.Item[n,2].orientation := xlhorizontal;
    excelapp.Cells.Item[n,2].verticalAlignment := xlTop;
    excelapp.Cells.Item[n,2].font.size := 11;
    excelapp.Cells.Item[n,2].wraptext := true;
        excelapp.cells.Item[n,3] := qry_pat.Fields[3].AsString;
    excelapp.Cells.Item[n,3].Font.name := '宋体';
    excelapp.Cells.Item[n,3].Font.bold := true;
    excelapp.Cells.Item[n,3].orientation := xlhorizontal;
    excelapp.Cells.Item[n,3].verticalAlignment := xlTop;
    excelapp.Cells.Item[n,3].font.size := 11;
    excelapp.Cells.Item[n,3].wraptext := true;
        excelapp.cells.Item[n,4] := qry_pat.Fields[4].AsString;
    excelapp.Cells.Item[n,4].Font.name := '宋体';
    excelapp.Cells.Item[n,4].Font.bold := true;
    excelapp.Cells.Item[n,4].orientation := xlhorizontal;
    excelapp.Cells.Item[n,4].verticalAlignment := xlTop;
    excelapp.Cells.Item[n,4].font.size := 11;
    excelapp.Cells.Item[n,4].wraptext := true;
        excelapp.cells.Item[n,5] := qry_pat.Fields[5].AsString;
    excelapp.Cells.Item[n,5].Font.name := '宋体';
    excelapp.Cells.Item[n,5].Font.bold := true;
    excelapp.Cells.Item[n,5].orientation := xlhorizontal;
    excelapp.Cells.Item[n,5].verticalAlignment := xlTop;
    excelapp.Cells.Item[n,5].font.size := 11;
    excelapp.Cells.Item[n,5].wraptext := true;
        excelapp.cells.Item[n,6] := qry_pat.Fields[6].AsString;
    excelapp.Cells.Item[n,6].Font.name := '宋体';
    excelapp.Cells.Item[n,6].Font.bold := true;
    excelapp.Cells.Item[n,6].orientation := xlhorizontal;
    excelapp.Cells.Item[n,6].verticalAlignment := xlTop;
    excelapp.Cells.Item[n,6].font.size := 11;
    excelapp.Cells.Item[n,6].wraptext := true;
        excelapp.cells.Item[n,7] := qry_pat.Fields[7].AsString;
    excelapp.Cells.Item[n,7].Font.name := '宋体';
    excelapp.Cells.Item[n,7].Font.bold := true;
    excelapp.Cells.Item[n,7].orientation := xlhorizontal;
    excelapp.Cells.Item[n,7].verticalAlignment := xlTop;
    excelapp.Cells.Item[n,7].font.size := 11;
    excelapp.Cells.Item[n,7].wraptext := true;
        excelapp.cells.Item[n,8] := qry_pat.Fields[8].AsString;
    excelapp.Cells.Item[n,8].Font.name := '宋体';
    excelapp.Cells.Item[n,8].Font.bold := true;
    excelapp.Cells.Item[n,8].orientation := xlhorizontal;
    excelapp.Cells.Item[n,8].verticalAlignment := xlTop;
    excelapp.Cells.Item[n,8].font.size := 11;
    excelapp.Cells.Item[n,8].wraptext := true;
        excelapp.cells.Item[n,9] := qry_pat.Fields[9].AsString;
    excelapp.Cells.Item[n,9].Font.name := '宋体';
    excelapp.Cells.Item[n,9].Font.bold := true;
    excelapp.Cells.Item[n,9].orientation := xlhorizontal;
    excelapp.Cells.Item[n,9].verticalAlignment := xlTop;
    excelapp.Cells.Item[n,9].font.size := 11;
    excelapp.Cells.Item[n,9].wraptext := true;

    inc(n);
    qry_pat.Next;
end;
// xlWorksheet.cells.Item[n+qry_medicalorder.recordcount,1] := '';

SaveDialogExport.Filter := 'Excel文件 (*.xls)';
SaveDialogExport.Title := '导出为';
if excelapp.activeworkbook.saved then
begin
    ExcelApp.ActiveSheet.PrintPreview;
    ExcelApp.WorkBooks.Close;
    ExcelApp.Quit;
    Screen.Cursor := crDefault;
    // Application.ProcessMessages;
    s := '导出完成...';
    Application.MessageBox(PChar(s), PChar(Application.Title),
      MB_OK or MB_IconInformation);

end;

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

delphi使用ado导出excel(2)

热门文章

最新文章

相关电子书

热门

活动广场

任务中心

开发者评测

高校计划

乘风者计划

训练营

阿里云MVP

话题

直播

下载

镜像站

技术资料

插件

delphi使用ado导出excel(2)

热门文章

最新文章

相关电子书