Documentation HotXLS

Méthode SaveAs

Enregistre les modifications du classeur dans un fichier ou un flux différent. Retourne 1 en cas de succès

Syntaxe

function SaveAs(FileName: WideString): Integer;
function SaveAs(FileName: WideString; FileFormat: TXLSFileFormat): Integer;
function SaveAs(Stream: TStream);
function SaveAs(Stream: TStream; FileFormat: TXLSFileFormat): Integer;
FileName WideString. Chaîne indiquant le nom du fichier à enregistrer. Vous pouvez inclure un chemin complet; sinon, Workbook enregistre le fichier dans le dossier courant
FileFormat TXLSFileFormat facultatif. Valeur indiquant le format du fichier à enregistrer. La valeur par défaut est xlExcel97
Stream TStream. Saves classeur à stream spécifié dans la Stream parameter

Description

FileFormat peut être l'une de ces constantes TXLSFileFormat
xlExcel97Format de fichier MS Excel 97, 2000, XP, 2003
xlExcel5Format de fichier MS Excel 5, 95
xlHTMLFormat de fichier HTML
xlRTFFormat de texte enrichi (RTF)
xlCSVFormat de fichier valeurs séparées par des virgules (CSV)
xlTextFormat de fichier valeurs séparées par des tabulations (TSV)
xlUnicodeCSVFormat de fichier valeurs unicode séparées par des virgules (CSV)
xlUnicodeTextFormat de fichier valeurs unicode séparées par des tabulations (TSV)

Exemple

Cet exemple crée un nouveau classeur avec une feuille de calcul puis enregistre le classeur

Var
  Workbook: IXLSWorkbook;
begin
  Workbook := TXLSWorkbook.Create; {create new Workbook}
  Workbook.Worksheets.Add;
  {...}
  //Save classeur as Excel 97 fichier format 
  Workbook.SaveAs('C:\book.xls');
  //Save classeur as Excel 5-95 fichier format 
  Workbook.SaveAs('C:\book5.xls', xlExcel5);
  //Save classeur as HTML 
  Workbook.SaveAs('C:\book.html', xlHTML);
  //Save classeur as RTF fichier 
  Workbook.SaveAs('C:\book.rtf', xlRTF);
  //Save active feuille de calcul as comma separated valeurs (CSV)
  Workbook.SaveAs('C:\book.csv', xlCSV);
  //Save active feuille de calcul as tab separated valeurs (TSV)
  Workbook.SaveAs('C:\book.tsv', xlText);
  //Save active feuille de calcul as comma separated unicode valeurs (CSV)
  Workbook.SaveAs('C:\book.csv', xlUnicodeCSV);
  //Save active feuille de calcul as tab separated unicode valeurs (TSV)
  Workbook.SaveAs('C:\book.tsv', xlUnicodeText);
end;
Cet exemple enregistre le classeur dans le champ BLOB

var
  MS: TMemoryStream;
begin
  if not (ClientDataSet1.State in [dsInsert, dsEdit]) then
    ClientDataSet1.Insert;
  MS := TMemoryStream.Create();
  try
    FWorkbook.SaveAs(MS);
    ClientDataSet1Documents.LoadFromStream(MS);
  finally
    MS.Free;
  end;
  ClientDataSet1.Post;
end;