Richedittext nach Excel exportieren ?

[Vader]

hallo,

ich möchte den text von einen richedit in die zelle B7 in Excel eportieren, geht das überhaupt ?
mfg vader

[messie]

Hallo,

ich denke, Du mußt die Aufgabe noch etwas päzisieren. Willst Du etwas in eine vorhandene Datei an diese Stelle schreiben, ist die Datei offen (DDE oder OLE) und zugänglich oder willst Du eine Excel-Datei anlegen, bei der bestimmte Werte an festen Stellen rausgeschrieben werden?
Du solltest auch sagen, wieviel Text Du exportieren willst, kann sein, daß Zeilenumbrüche entfernt werden müssen etc.

Grüße, Messie

[Vader]

hallo,

an eine vorhandene offene exceldatei, und sowas will ich exportieren:

Hertha BSC 1.65
X 3.40
1. FC Köln 5.00

fußballwetten

mfg vader

[Vader]

hallo,

noch präziser: die exceldatei hat den pfad c:\wetten\wetten.xls und ist geöffnet,
und der text von richedit1 soll in die zelle B7 exportiert werden.

mfg vader

[Vader]

hallo,

ich weiß, das schickt sich nicht, aber kann mir da keiner weiterhelfen ?
mfg vader

[marabu]

Hallo Vader,

willst du wirklich einen tabellarischen Text in eine einzige Zelle quetschen? Dein Beispiel ist zweispaltig (Text und Quote) und die Zeilenzahl ist wohl beliebig. Spielt die Tatsache, dass der Text aus einem RichEdit geholt wird, überhaupt eine Rolle? Was ist dein eigentliches Problem? Die Adressierung der Zellen über die Automationsschnittstelle? Welche Delphi-Version verwendest du? Um welche Excel-Version handelt es sich?

Freundliche Grüße vom marabu

[Vader]

hallo,

ja es sollte in eine zelle passen, ja es spielt eine rolle den text von einen richedit holen, das war ja
schon eine vorige frage von mir weil in ein memo konnte ich keine farbigen zeilen gestalten, und ich kopiere
mir die spiele mit quoten von internet in das richedit, mein problem ich hab überhaubt keinen ansatz wie ich
den text vom richedit in die excelzelle bringe, habe delphi6 enterprise und excel 2ooo

mfg vader

[Vader]

hallo,

das ich mich mit einer exceltabelle verbinden habe ich, ich hab auche einen code
der was aus einer zelle einer exceldatei ausliest und in ein editfeld in der form einliest.

Delphi-Quellcode:

private
    { Private-Deklarationen }
FLCID            : Integer;
    procedure CloseExcel;
    function OpenExcel : Boolean;
    function  ReadCell(Row,Col : Integer) : String;




function TForm1.ReadCell(Row, Col: Integer): String;
var
  CellRange : Range;
begin
  CellRange:=ExcelWorksheet1.Cells;
  Result:=CellRange.Item[Row,Col].Value;
end;


procedure TForm1.Ein4Click(Sender: TObject);
begin
spinedit1.text:= '1';
end;


procedure TForm1.Werteauslesen1Click(Sender: TObject);
begin
Edit1.Text:=ReadCell(SpinEdit1.Value,SpinEdit2.Value);
end;

ich würde das umgekehrt brauchen, das der text vom richedit in die zelle der exceltabelle
schreibt ?

mfg vader

[Vader]

hallo,

weil ich keine antwort bekomme, ist es überhaupt möglich von delphi daten nach excel zu schreiben ?
mfg vader

[marabu]

Hallo Vader,

selbstverständlich ist es möglich. Diesen Code habe ich bei mir gefunden:

Delphi-Quellcode:

// xl: TExcelApplication;

procedure TDemoForm.ButtonClick(Sender: TObject);
var
  wb: ExcelWorkbook;
  ws: ExcelWorkSheet;
  r: ExcelRange;
begin
  xl.Connect;
  wb := xl.WorkBooks.Add(null, GetUserDefaultLCID);
  ws := wb.Sheets.Add(null, null, 1, null, GetUserDefaultLCID) as ExcelWorkSheet;
  r := ws.Range['B1', 'B1'];
  r.Value2 := 'marabu';
  xl.Disconnect;
end;

Leider kann ich nicht testen, wie die Zelle auf RichText reagiert, da ich zuhause nicht über Excel verfüge.

Grüße vom marabu