So , hab ein weiteres Problem und zwar:
Ich versuche ein Stringgrid auszulesen und es dann in eine Excel Tabelle zu speichern. Wenn ich es auf einen Button lege , mit einem festen Pfad und einem festen Namen funktioniert es einwandfrei , jedoch wenn ich es mit opendialog machen will , damit ich flexibler bin , bekomme ich immer Probleme bei der Zeile:
Excel.ActiveWorkbook.SaveAs(ExtractFilePath(Application.ExeName)+'/'+Speichername);
Die Prozedur sieht folgendermaßen aus:
Delphi-Quellcode:
procedure TForm1.Speichernunter1Click(Sender: TObject);
var excel:Variant;
i,j:integer;
Speichername:string;
begin
if SaveDialog1.Execute then begin
try
excel := CreateOleObject('Excel.Application');
excel.visible := False;
except
ShowMessage('Excel konnte nicht gestartet werden !');
end;
Excel.Workbooks.Add;
for j:=1 to 5
do begin
for i:=1 to Notentabelle.RowCount
do Excel.Cells[i, j].Value:=Notentabelle.Cells[j,i];
end;
Speichername:=SaveDialog1.FileName;
Excel.ActiveWorkbook.SaveAs(ExtractFilePath(Application.ExeName)+'/'+Speichername);
Excel.Quit;
Excel := Unassigned;
end;
end;
Hat einer von euch ne Ahnung woran es liegt? Warum nimmt er den Speichernamen nicht an? Und wie kann ich ihm sagen welchen Ordner ich ausgewählt habe , anstelle des ExtractfilePath?
Vielen Danke im Vorraus
