Excel -> Text in Spalten

[Codewalker]

Ich habe einfach mal versucht, etwas zu stande zu bekommen. Leider scheitere ich daran, dass ich meistens nur eine IDispatch-Schnittstelle zur Verfügung habe. Das Öffnen der Datei geht super. Danach versuche ich Spalte A auszuwählen und zu sortieren. Leider schaffe ich es nicht, die Funktion TextToColumns aufzurufen. Eigentlich sollte die an einer Selection hängen, aber bis da komme ich nicht. Was muss ich tun?

Delphi-Quellcode:

 
var      i: Integer; 
 Delimiter: Char;
         S: String;
         j: Integer;
      list: TStringList;
 xTrue,XFalse,Delim: OleVariant;
 LCID: Integer;
 Selection: Variant;
 xRange: Variant;
begin
 If not SaveDialog.Execute then Exit;
 xTrue:=True;
 XFalse:=False;
 LCID := GetUserDefaultLCID;
 Case SaveDialog.FilterIndex of
  1:Delimiter:=',';
  2:Delimiter:=#9;
 End;
 Delim:=Delimiter;

/// Hier steht eigentlich das Erstellen und Speichern der CSV-Liste.... das spare ich mir aber hier mal

ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Open(SaveDialog.FileName, xTrue, xFalse, EmptyParam, EmptyParam, xFalse, xTrue, EmptyParam, Delim,xTrue,xFalse,EmptyParam,EmptyParam,xTrue,xFalse,LCID));

xRange:=ExcelWorksheet1.Range['A1','A30000'].Select;

ExcelApplication1.Selection[LCID].TextToColumns(xRange,xlDelimited,xlDoubleQuote,xFalse,xTrue,xFalse,xTrue,xFalse,xFalse);