Excel (Import/Export)

**dopeline**

Hallo!

Ich will eine Tabelle (StringGrid) nach Excel exportieren (also die Tabelle in einer Exceldatei abspeichern und diese automatisch mit excel öffnen)

und wenn es möglich ist, auch die einträge aus einer exceldatei importieren.

Wie mache ich das?

Grüße, dopeline

**Specialwork**

Hallo Dopeline,

Ich habe mal ein Beispiel erstellt, mit dem man ein Excelsheet erstellen und mit Daten versorgen kann.

Excelsheets füllen

Gruß, Tom

**dopeline**

Uff! geht das nicht einfacher? excel muss doch beim export gar nicht geöffnet werden. die tabelle ein meinem adressbuch-programm soll einfach nur (mit nem savedialog) irgentwo als xls gespeichert werden.

**Jelly**

Du kannst sehr leicht über ADO auf Excel Dateien zugreifen. In deinem Fall besonders geeignet da es sich um eine Tabellenstruktur handelt.

Der Connectionstring sieht so aus:

markieren

Code:

			Provider=Microsoft.Jet.OLEDB.4.0;

Data Source=%s;

Extended Properties= "Excel 8.0;

HDR=Yes";

Persist Security Info=False;

Persist Security Info=False

Mit SQL Befehl "Create Table" kannst du deine Tabelle erzeugen und wie gewohnt mit Daten füllen.

Gruss,
Tom

**r_kerber**

Hallo,

es geht auch indem Du die Daten in eine csv-Datei schreibst und diese dann mit Excel öffnest.

**dopeline**

und wie mache ich das?
(bin newbie, was delphi angeht

)

**r_kerber**

z.B. so:

markieren

Delphi-Quellcode:

			var 

  F: TextFile;

begin

  AssignFile(F, 'datei.csv');       

  Rewrite(F);

  Writeln(F, Format('%i,%d', IntegerWert, DezimalWert])); 

  ...                       

  CloseFile(F);

end;

**ssach**

also hier ist ein Code zum speichern von stringgrids in eine csv datei, konnte sie nochnicht testen, werde dies aber im abend noch tun:

zusammenfalten · markieren

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;

   lb.Items.SaveToFile('Exell.csv');

end;

hoffe konnte helfe, cu

**dopeline**

danke! das sollte funktionieren.
ich hab versucht, das mit nem savedialog zu machen, funktioniert aber nicht

.

Wie stelle ich das an?

**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!

zusammenfalten · markieren

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

dopeline Registriert seit: 7. Mär 2003 Ort: Berlin 304 Beiträge Delphi 7 Enterprise	#1 Excel (Import/Export) 6. Mai 2003, 10:28 Hallo! Ich will eine Tabelle (StringGrid) nach Excel exportieren (also die Tabelle in einer Exceldatei abspeichern und diese automatisch mit excel öffnen) und wenn es möglich ist, auch die einträge aus einer exceldatei importieren. Wie mache ich das? Grüße, dopeline
	Zitat

Specialwork Registriert seit: 10. Jan 2003 Ort: Schwall 71 Beiträge Delphi 8 Professional	#2 6. Mai 2003, 11:23 Hallo Dopeline, Ich habe mal ein Beispiel erstellt, mit dem man ein Excelsheet erstellen und mit Daten versorgen kann. Excelsheets füllen Gruß, Tom Thomas van Veen Es gibt keine Probleme, nur Lösungen, auf die man nicht gleich kommt !
	Zitat

dopeline Registriert seit: 7. Mär 2003 Ort: Berlin 304 Beiträge Delphi 7 Enterprise	#3 7. Mai 2003, 08:58 Uff! geht das nicht einfacher? excel muss doch beim export gar nicht geöffnet werden. die tabelle ein meinem adressbuch-programm soll einfach nur (mit nem savedialog) irgentwo als xls gespeichert werden.
	Zitat

r_kerber Registriert seit: 11. Feb 2003 Ort: Trittau 3.538 Beiträge Delphi XE Professional	#5 7. Mai 2003, 12:24 Hallo, es geht auch indem Du die Daten in eine csv-Datei schreibst und diese dann mit Excel öffnest. Gruß aus Trittau Rainer http://rkerber57.wordpress.com https://www.facebook.com/rainer.kerber http://www.flickr.com/r_kerber
	Zitat

dopeline Registriert seit: 7. Mär 2003 Ort: Berlin 304 Beiträge Delphi 7 Enterprise	#6 7. Mai 2003, 16:01 und wie mache ich das? (bin newbie, was delphi angeht )
	Zitat

r_kerber Registriert seit: 11. Feb 2003 Ort: Trittau 3.538 Beiträge Delphi XE Professional	#7 7. Mai 2003, 19:06 z.B. so: markieren Delphi-Quellcode: var F: TextFile; begin AssignFile(F, 'datei.csv'); Rewrite(F); Writeln(F, Format('%i,%d', IntegerWert, DezimalWert])); ... CloseFile(F); end; Gruß aus Trittau Rainer http://rkerber57.wordpress.com https://www.facebook.com/rainer.kerber http://www.flickr.com/r_kerber
	Zitat

dopeline Registriert seit: 7. Mär 2003 Ort: Berlin 304 Beiträge Delphi 7 Enterprise	#9 7. Mai 2003, 20:54 danke! das sollte funktionieren. ich hab versucht, das mit nem savedialog zu machen, funktioniert aber nicht . Wie stelle ich das an?
	Zitat

Excel (Import/Export)

Excel (Import/Export)

Forumregeln