Daten in Excel Datei einfügen

[Bernd]

Hallo,
mit diesem Code versuche ich Daten in ein Excelblatt zu schreiben:

Code: Alles auswählen

procedure TForm1.Button4Click(Sender: TObject);
var
  i,j,k: Integer;
  sTF, sZeile: String;
  sErgebnis, sDatum : String;
begin
  // fpspreadsheet
  // Open the input file
  InputFileName := 'TFSumme.xls';
  // Create the spreadsheet
  MyWorkbook := TsWorkbook.Create;
  MyWorkbook.ReadFromFile(InputFilename, sfExcel8);
  //MyWorkbook.
  MyWorksheet := MyWorkbook.GetFirstWorksheet;
  ... sTF .. berechnen;
  for i:=0 to MyWorkSheet.GetLastRowNumber do
   if (pos(sTF,MyWorkSheet.ReadAsUTF8Text(i,0))<>0) then
    begin
     MyWorksheet.WriteUTF8Text(i, 1, sDatum);
     MyWorksheet.WriteUTF8Text(i, 2, sZeile);
    end;
 
  end;
  MyWorkbook.WriteToFile('TFSumme1.xls', sfExcel8, true);
  // Finalization
  MyWorkbook.Free;
 
end;

Das ganze funktioniert so ganz gut. Ich lese in der ersten Spalte vorhandene Werte und suche die richtige Zeile um dann zu schreiben. Speichere ich alles in eine neue Datei geht es gut. Verwende ich für "writetofile" den gleichen Dateinamen wie bei "InputFileName" geht es genau einmal gut. Beim zweiten Versuch ist mein Excelblatt leer.

Gibt es da ein Problem mit dem Lesen/Schreiben, oder wo liegt mein Fehler?
Ich möchte gerne in die gleiche Datei zurückschreiben und nicht eine Neue erzeugen.

Gruß Bernd

P.S. Windows XP

[Thomas B.]

Hallo Bernd,
ich hab's eben bei mir überpüft. Es scheint so zu sein, dass das Einlesen von Text aus einer Excel-Datei (Version8)
noch nicht (fertig) in fpspreadsheet implementiert ist.
Bei mir werden auch die Texteinträge nicht mit eingelesen, sondern nur die Zahlen.
Alternative: Umstellung auf ein anderes (freies) Datenformat.
Gruß Thomas

[monta]

Es ist scheinbar wirklich einiges noch nicht implentiert, zumindest steht das als Hinweis auch im Wiki:
http://wiki.lazarus.freepascal.org/FPSp ... t_Progress" onclick="window.open(this.href);return false;