Excel - markierte Zeile auslesen

[nezumi77]

Hallo,

ich möchte in einem schon geöffneten Excel-Dokument die gerade markierte Zeile auslesen, ohne die Zeilennummer angeben zu müssen und wenn möglich auch ohne Keybd_event.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
WS: OleVariant;
neu: String;
begin
ExcelApplication1.Connect;
ExcelWorkbook1.ConnectTo(ExcelApplication1.ActiveWorkbook);
ExcelWorksheet1.ConnectTo(ExcelApplication1.ActiveSheet as _Worksheet);
WS := ExcelApplication1.ActiveSheet as _Worksheet;  

neu := WS.Selection.text; //so ungefähr, aber das geht nicht
Memo1.Lines.Add(neu);

ExcelWorksheet1.Disconnect;
ExcelWorkbook1.Disconnect;
ExcelApplication1.Disconnect;
end;

Kann mir jemand weiterhelfen?