在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
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; |
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论