Hallo Delphianer,
habe folgendes Problem:
mit diesem Code lässt sich mit einer zusätzlichen
Unit eine Excel-Datei erzeugen ohne eine lauffähige Installation:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var XLSFile : TXLSExport;
x, y : Integer;
begin
if savedialog1.Execute then begin
if fileexists(savedialog1.filename) then DeleteFile(savedialog1.filename);
XLSFile := TXLSExport.Create(savedialog1.filename);
try
y := 0;
table1.DisableControls;
table1.First;
while not table1.eof do begin
if y = 0 then begin // Kopfzeilen
for x := 0 to table1.FieldCount-1 do XLSFile.Write( x, y, table1.Fields[x].displayname);
end else for x := 0 to table1.FieldCount-1 do begin
case table1.Fields[x].DataType of
ftDate,
ftTime,
ftDateTime,
ftBoolean,
ftString,
ftFixedChar : XLSFile.Write( x, y, table1.Fields[x].asstring);
ftAutoInc,
ftSmallint,
ftInteger,
ftWord : XLSFile.Write( x, y, table1.Fields[x].asInteger);
ftFloat,
ftCurrency : XLSFile.Write( x, y, table1.Fields[x].asFloat);
end;
end;
inc(y);
table1.next;
end;
XLSFile.free;
finally
end;
table1.EnableControls;
end;
end;
Diese habe ich abgeändert, da ich im Prinzip das gleiche aber aus einer Stringgrid exportieren möchte:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var XLSFile : TXLSExport;
x, y : Integer;
Spalten, Zeilen: String;
begin
if savedialog1.Execute then begin
if fileexists(savedialog1.filename) then DeleteFile(savedialog1.filename);
XLSFile := TXLSExport.Create(savedialog1.filename);
try
y := 0;
repeat
Spalten := StringGrid2.Cells[x,y];
XLSFile.Write(x,y,Spalten);
x := 0;
repeat
Zeilen := StringGrid2.Cells[x,y];
XLSFile.write(x,y, Zeilen);
x := x + 1;
until x = StringGrid2.ColCount;
y := y + 1;
until y = StringGrid2.RowCount;
finally
XLSFile.free;
end;
end;
end;
Nun funktioniert das aber nicht richtig, die Datei wird zwar erzeugt, aber nicht korrekt. Das heißt Excel XP kann sie öffnen, sagt aber, dass die Datei repariert werden musste. Nach dem Öffnen ist sie dann auch so wie sie sein soll.
Dennoch ist dieser Zustand logischerweise unbefriedigend.
Meine Vermutung ist, dass es daran liegt:
XLSFilewrite(x,y, .....asstring);
Obwohl ich dachte, dass ein String nicht extra umgewandelt werden muss, ist wohl doch so, anders kann ich es mir nicht erklären.
Meine Frage ist nun, wie lautet die korrekte Syntax für meinen modifizierten Programmteil?
Habe alles mögliche versucht, Delphi bietet in der
IDE sogar was an, meckert dann aber beim Übersetzen.
XLSFilewrite(x,y,asstring(Zeilen);
Danke im Voraus