HotXLS-documentatie

SaveAs-methode

Slaat wijzigingen in de werkmap op in een ander bestand of een andere stroom. Retourneert 1 als het lukt

Syntaxis

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. Een tekenreeks die de naam aangeeft van het op te slaan bestand. U kunt een volledig pad opnemen; anders slaat Workbook het bestand op in de huidige map
FileFormat Optionele TXLSFileFormat. Een waarde die aangeeft in welk formaat het bestand moet worden opgeslagen. Standaard is xlExcel97
Stream TStream. Saves werkmap naar stream opgegeven in het Stream parameter

Opmerkingen

FileFormat kan een van deze TXLSFileFormat-constanten zijn
xlExcel97 MS Excel 97, 2000, XP, 2003 bestandsindeling
xlExcel5 MS Excel 5, 95 bestandsindeling
xlHTML HTML-bestandsindeling
xlRTF Rich Text Format (RTF)
xlCSV Bestandsindeling met kommagescheiden waarden (CSV)
xlText Bestandsindeling met tabgescheiden waarden (TSV)
xlUnicodeCSV Bestandsindeling met kommagescheiden unicode-waarden (CSV)
xlUnicodeText Bestandsindeling met tabgescheiden unicode-waarden (TSV)

Voorbeeld

Dit voorbeeld maakt een nieuwe werkmap met één werkblad en slaat vervolgens de werkmap op

Var
  Workbook: IXLSWorkbook;
begin
  Workbook := TXLSWorkbook.Create; {create new Workbook}
  Workbook.Worksheets.Add;
  {...}
  //Save werkmap as Excel 97 bestand indeling 
  Workbook.SaveAs('C:\book.xls');
  //Save werkmap as Excel 5-95 bestand indeling 
  Workbook.SaveAs('C:\book5.xls', xlExcel5);
  //Save werkmap as HTML 
  Workbook.SaveAs('C:\book.html', xlHTML);
  //Save werkmap as RTF bestand 
  Workbook.SaveAs('C:\book.rtf', xlRTF);
  //Save active werkblad as comma separated waarden (CSV)
  Workbook.SaveAs('C:\book.csv', xlCSV);
  //Save active werkblad as tab separated waarden (TSV)
  Workbook.SaveAs('C:\book.tsv', xlText);
  //Save active werkblad as comma separated unicode waarden (CSV)
  Workbook.SaveAs('C:\book.csv', xlUnicodeCSV);
  //Save active werkblad as tab separated unicode waarden (TSV)
  Workbook.SaveAs('C:\book.tsv', xlUnicodeText);
end;
Dit voorbeeld slaat de werkmap op in het BLOB-veld

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;