zoukankan      html  css  js  c++  java
  • 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;
  • 相关阅读:
    webgl变换:深入图形平移
    webgl基础:顶点到片元的联动
    webgl基础:绘制多边形
    webgl初章:进入3D世界
    canvas动画实战与性能优化
    初识canvas(二)
    初识canvas(一)
    SQL换行符
    正则表达式校验
    2019.7.2 JQ
  • 原文地址:https://www.cnblogs.com/chenmfly/p/4842944.html
Copyright © 2011-2022 走看看