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