Daten export nach Excel

[MCOP2001DE]

Hallo

Ich habe folgen des Problem.
Ich möchte bestimmte Daten, die ich über einen Query suchen und anzeigen lasse, in bestimmte Felder im Excel ablegen.
z.B. Artikelnummer soll in Feld B2 im Excel geschrieben werden Artikelname in C2 usw
ist das mit Delphi möglich wenn ja wie.
Ich habe schon über die Server Komponenten versuch etwas hin zu bekommen aber ich weiß nicht wie ich sie einsetzen soll.
Den in der Delphi Hilfe steht nicht zu dem Thema.


Gruß

MCOP2001de

[x000x]

Hallo MCOP2001de, dein echter Vorname?

es gibt viele Möglichkeiten das zu realisieren.
Muß es eine xls Datei sein, oder würde es eine csv Datei auch tun?

Ich habe nur mal nach deiner Themenüberschrift Daten export nach Excel gesucht, dort wird
deine Frage meiner Meinung nach beantwortet (sogar mit Code-Schnippseln).
Evtl. ist hier ja auch was dabei? TJvDBGridExcelExport

[MCOP2001DE]

Hallo x000x

Danke für deine schnell Antwort.
Ja es muß eine xls datei sein die auch schon existiert ich müsste nun die Daten aus meinem Programm in die Tabelle in die dafür vorgesehenen Felder eintragen lassen.
geht das?

Mcop2001de

[x000x]

Moin moin MCOP2001de,

du kannst auch Peter zu mir sagen.

Zitat von MCOP2001DE:

...geht das?

Ja es geht.
Die Such-Anfragen aus meinem letzten Beitrag führen dich eigentlich zu genau solchen Themen.
Wie gesagt, dort sind auch Code Auszüge mit bei. Lese dir diese Threads mal durch, sollten
dann Fragen aufkommen, kannst du sie hier konkret formulieren.
Viel Erfolg

[Hansa]

Wie hoch ist denn das Datenvolumen ? IMHO ist es in puncto Excel immer noch am einfachsten, eine Datei zu erstellen und diese dann komplett zu importieren. CSV sollte aber nicht interpretiert werden als eine "comma separated Value" Datei, sondern sollte schon eine normale Textdatei sein (allerdings mit klar definierten festen Feldlängen, Profis brauchen keine festen Trennzeichen. Habe so was zumindest noch nicht gesehen). Ansonsten besteht ein gewisses Risiko und sei es nur, weil der CSV-Character als ';' eingestellt wurde, der Zeichensatz als englisch interpretiert wird und dann wegen jedem Original "ö" ein Feldende simuliert wird. Das kann gefährlich werden. Alles schon erlebt. Deshalb mein Rat : Datei immer neu erstellen.

[MCOP2001DE]

Hallo

Das Datenvolumen ist garnicht so groß. Zweck für diese Erstellung ist es das wir in unserem Unternehmemen ein Excel Datei Vorlage für Bestellungen Ausfüllen müssen und diese zu unserem Einkauf per Email schicken müssen. Es Handelt sich um maximal 12 Datensätze die in die Volage eingefügt werden müssen. Wobei dei Vorlage von der Formatierung her nicht verändert werden darf.
Das Ansprechen von gezeilten Zellen habe ich schon hin bekommen aber er erstellt immer eine neue Datei und löscht mir die Formatirung der original Datei. Wie kann ich einen vorhandene Datei nur aufüllen?


Mcop2001de

[Joffm]

Hallo, MCOP2001DE,

hast Du Dir schon einmal die FLEXCEL-Komponente von Adrian Gallero angesehen.
Mit dem FlexcelImport hast Du IMHO genau die Komponete, die Du brauchtst

Joffm

[hoika]

Hallo,

http://www.dsdt.info/tutorials/automation/?page=5


Heiko

[MCOP2001DE]

Hallo Heiko

Danke für den Link ich habe das bei mir mal ausprobiert ich bekomme aber leider nur die Fehlermeldung zu wenig Parameter wenn ich den Quelltext so ausprobieren möchte gibt es den bei denVersionen so große Unterschiede?

ich benutze Delphi 7 und Office 2003 also die Komonenten von ExcelXP.

gruß

Mirko

[Chemiker]

Hallo MCOP2001DE,

vielleicht hilft Dir das weiter.

Delphi-Quellcode:

function EXCELStarten (var m_EXCEL : Variant): boolean;
begin
   try
    m_EXCEL := CreateOleObject('Excel.Application');
    Result := TRUE;
  except
    ShowMessage('Excel konnte nicht gestartet werden!');
    Result := FALSE;
    Exit
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var ArtNr, ArtBez : string;
    DateiName: string;
    Excel: Variant;
begin
  DateiName:= 'F:\Excel-ProgammOrdner\Beispiel Daten\Bestellungen.xls';
  if EXCELStarten(Excel)then   // Excel startet
  begin
    ShowMessage('MSExcel ist erfolgreich gestartet worden!!');
  end
  else
  begin
     ShowMessage('MSExcel konnte nicht gestartet werden!!');
  end;

  Excel.Workbooks.Open(DateiName);
  Excel.Visible := TRUE;             // TRUE = Excel sichtbar.
  Excel.Worksheets[1].Activate;
  ArtNr:= '4711';
  ArtBez:= 'Wasser';
  Excel.Cells[2,3]:= ArtNr;
  Excel.Cells[2,4]:= ArtBez;
  Excel.Quit;
end;

Der Dateiname muss natürlich noch angepasst werden.
Die Formatierungen bleiben im Excel-Formular erhalten, es werden nur die Daten geschrieben. Das ganze zeigt auch nur wie Daten in ein Excel-Formular geschrieben werden können.

Bis bald Chemiker