Einzelnen Beitrag anzeigen

nezumi77

Registriert seit: 24. Mär 2009
16 Beiträge
 
#1

Excel - markierte Zeile auslesen

  Alt 16. Mai 2010, 09:04
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?
  Mit Zitat antworten Zitat