OLE Automation mit Excel

[jority]

Hallo,
ich habe eine Adressen.XLS Datei, die ich ein wenig in Ordnung bringen will, sprich die Aufteilung der Daten verbessern...
Momentan sieht meine Prozedur so aus und ergibt folgenen Fehler:
"Ungültige Variant Operation"

so sieht die Prozedur aus:

Delphi-Quellcode:

var i, j: integer;
    excel: Variant;
    Adressen : Array of TAdressen;
    tempstring, Tempstring2:string;
begin
    Excel:= CreateOleObject('Excel.Application');
    Excel.visible:=True;
    Excel.Workbooks.open('C:\Eigene Dateien\Delphi\Christinck\Adressen.xls');

    //Weitere Infos dranhängen
    for i:=1 to 1950 do
    begin
      Tempstring:=copy(Excel.cells[i,1],1,6);
      if Tempstring='Email:' then
      begin
        Tempstring:=Excel.cells[i+1,1];
        If Tempstring='' then
        begin

        end
        else
        begin
          Excel.cells[i,2]:=Excel.cells[i,2]+' '+Tempstring;  // <---Hier entsteht der Fehler
        end;
      end;
    end;
end;

Jemand ne Idee wie ich das anders machen kann?

gruß Jority

[Christian Seehase]

Moin Zusammen,

das Problem wurde von Jority selber gelöst.
Da diese Feststellung mit einer neuen Frage verknüpft wurde, habe ich das Thema geteilt.

Hier geht's dann weiter:

Spalte in Excel löschen