zoukankan      html  css  js  c++  java
  • Delphi TXLSReadWriteII2 导出Excel

    TXLSReadWriteII2版本导出Excel文件:

    procedure TForm1.N1Click(Sender: TObject);

    var

      i: Integer;

      aSaveDialog: TSaveDialog;

      aFileName, aStampTime: AnsiString;

      aXlsObj: TXLSReadWriteII2;

      p: PDataRec;

    begin

      aSaveDialog := TSaveDialog.Create(Self);

      try

        aSaveDialog.InitialDir := ExtractFilePath(ParamStr(0));

        aSaveDialog.DefaultExt := 'xls';

        aSaveDialog.Filter := 'Excel文件(*.xls)|*.xls|所有文件(*.*)|*.*';

        aStampTime := FormatDateTime('yyyymmddhhnnss', Now);

        aSaveDialog.FileName := aStampTime;

        if not aSaveDialog.Execute then

          Exit;

        aFileName := aSaveDialog.FileName;

        if aFileName = '' then

          Exit;

      finally

        aSaveDialog.Free;

      end;

      aXlsObj := TXLSReadWriteII2.Create(nil);

      try

        aXlsObj.Sheets[0].AsWideString[0, 0] := 'id';

        aXlsObj.Sheets[0].AsWideString[1, 0] := 'table';

        aXlsObj.Sheets[0].AsWideString[2, 0] := 'kind';

        aXlsObj.Sheets[0].AsWideString[3, 0] := 'rows';

        aXlsObj.Sheets[0].AsWideString[4, 0] := 'times';

        aXlsObj.Sheets[0].AsWideString[5, 0] := 'desc';

        for i:=1 to FDataHash.Count - 1 do

        begin

          p := FDataHash[i];

          aXlsObj.Sheets[0].AsWideString[0, i] := Format('%d', [p.id]);

          aXlsObj.Sheets[0].AsWideString[1, i] := p.table;

          aXlsObj.Sheets[0].AsWideString[2, i] := p.kind;

          aXlsObj.Sheets[0].AsWideString[3, i] := Format('%d', [p.rows]);

          aXlsObj.Sheets[0].AsWideString[4, i] := Format('%d', [p.times]);

          aXlsObj.Sheets[0].AsWideString[5, i] := p.desc;

        end;

        aXlsObj.Filename := aFileName;

        aXlsObj.Write;

        ShowMessage(Format('导出文件'+#13#10+'%s'+#13#10 +'成功!', [aFileName]));

      finally

        aXlsObj.Free;

      end;

    end;

  • 相关阅读:
    常用标点符号的英文名称
    2018年阅读随笔记录(持续更新)
    Lookahead and Lookbehind in Regex
    My Answer in Regex Golf
    Words to Use Instead of "Very"
    区块链
    EntityFramework Core 学习系列(一)Creating Model
    推送本地项目至Github遇到的问题以及解决办法记录
    TF-IDF In Scikit-Learn
    译MassTransit 创建消息消费者
  • 原文地址:https://www.cnblogs.com/zhangzhifeng/p/2547245.html
Copyright © 2011-2022 走看看