Excel (Import/Export)

[ssach]

hier die version mit nem savedialog, du musst solchen nur auf deine form ziehen, nenne h savedialog dann kannst du denn code komplett kopieren!

Delphi-Quellcode:

procedure TForm1.BtnSaveClick(Sender: TObject); 
var 
R, C : integeR; 
S : string; 
begin 
* *for R := 0 to sg.RowCount - 1 do 
* * * begin 
* * * * *S := ''; 
* * * * *for C := 0 to sg.ColCount - 1 do 
* * * * * * S := S + sg.Cells[C,R] + ';'; 
* * * * *delete(S,length(S),1);* *//loescht den ueberfluessigen ; 
* * * * *lb.Items.Append(S); 
* * * end; 
   if SaveDialog.Execute then
* *   lb.Items.SaveToFile(SaveDialog.Filename); //filename ist der pfad 
end;

um noch die endung csv hinzubekommen musst du im objekt inspektor vom savedialog bei filters einfach eine option mit *.csv eingeben! hast du noch probleme gib bescheid! wenn du willst kann ich dir die prozedur zum laden von csv dateien in delphi gib auch bescheid!

cu