//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());

    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[].AsWideString[, ] := 'id';

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

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

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

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

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

    for i:= to FDataHash.Count -  do

    begin

      p := FDataHash[i];

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

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

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

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

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

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

    end;

    aXlsObj.Filename := aFileName;

    aXlsObj.Write;

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

  finally

    aXlsObj.Free;

  end;

end;