Dokumentácia HotXLS

Metóda SaveAs

Uloží zmeny v zošite do iného súboru alebo prúdu. Vracia 1 ak uspeje

Syntax

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. Reťazec, ktorý určuje názov súboru na uloženie. Môžete uviesť úplnú cestu; ak ju neuvediete, Workbook uloží súbor do aktuálneho priečinka
FileFormat Optional TXLSFileFormat. Hodnota, ktorá určuje formát súboru na uloženie. Predvolená hodnota je xlExcel97
Stream TStream. Ukladá Workbook do streamu zadaného v parametri Stream

Popis

FileFormat môže byť jedna z týchto konštánt TXLSFileFormat
xlExcel97 Formát súboru MS Excel 97,2000,XP,2003
xlExcel5 Formát súboru MS Excel 5,95
xlHTML Formát súboru HTML
xlRTF Formát Rich Text Format (RTF)
xlCSV Formát súboru s hodnotami oddelenými čiarkou (CSV)
xlText Formát súboru s hodnotami oddelenými tabulátorom (TSV)
xlUnicodeCSV Formát súboru s hodnotami oddelenými čiarkou v unicode (CSV)
xlUnicodeText Formát súboru s hodnotami oddelenými tabulátorom v unicode (TSV)

Príklad

Tento príklad vytvorí nový zošit s jedným pracovným hárkom a potom zošit uloží

Var
  Workbook: IXLSWorkbook;
begin
  Workbook := TXLSWorkbook.Create; {create new Workbook}
  Workbook.Worksheets.Add;
  {...}
  //Save zošit as Excel 97 súbor formát 
  Workbook.SaveAs('C:\book.xls');
  //Save zošit as Excel 5-95 súbor formát 
  Workbook.SaveAs('C:\book5.xls', xlExcel5);
  //Save zošit as HTML 
  Workbook.SaveAs('C:\book.html', xlHTML);
  //Save zošit as RTF súbor 
  Workbook.SaveAs('C:\book.rtf', xlRTF);
  //Save active hárok as comma separated values (CSV)
  Workbook.SaveAs('C:\book.csv', xlCSV);
  //Save active hárok as tab separated values (TSV)
  Workbook.SaveAs('C:\book.tsv', xlText);
  //Save active hárok as comma separated unicode values (CSV)
  Workbook.SaveAs('C:\book.csv', xlUnicodeCSV);
  //Save active hárok as tab separated unicode values (TSV)
  Workbook.SaveAs('C:\book.tsv', xlUnicodeText);
end;
Tento príklad uloží zošit do poľa 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;