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;

  • 相关阅读:
    plsql查询中文乱码
    ORA-12514: TNS:listener does not currently know of service requested in connect
    linux 手动配置ip地址方法
    开机自起tomcat
    (静默安装)Cent OS 6_5(x86_64)下安装Oracle 11g
    Linux下启动Oracle服务和监听程序
    linux下强制安装rpm包
    谷歌浏览器如何将整个网页保存为图片
    C语言移位和位运算
    MySQL连接的使用
  • 原文地址:https://www.cnblogs.com/zhangzhifeng/p/2547245.html
Copyright © 2011-2022 走看看