Ich habe mit googeln leider nichts finden können. Daher frage ich hier mal nach. Ich steuere Excel per
OLE mit meinem Delphiprogramm. Das soll ne Datei öffnen und die gesammte erste Spalte kopieren in ein array, da ich das später dann brauche. Jetzt weiß ich aber die genaue Länge der Spalte nicht (damit ist gemeint bis wohin da Werte drinstehen). Wie bekomme ich das raus? Bei meinem Text meckert er immer. Hier mal mein QT (Ausschnitt):
Delphi-Quellcode:
// Excel starten
try
Excel := CreateOleObject('Excel.Application');
except
ShowMessage('Excel konnte nicht gestartet werden!');
Exit;
end;
// Laden
try
Excel.workbooks.open(edtquelle.Text);
except
ShowMessage('Datei konnte nicht geöffnet werden');
Excel.free;
Exit;
end;
// Daten Kopieren
menge := Excel.activeworksheet.range['A1','A1'].EntireColumn;
setlength(namensliste,0);
for i := 1 to menge do
begin
SetLength(namensliste,Length(namensliste)+1);
namensliste[i-1] := excel.cells[inttostr(i),1].value;
end;
So müsste das ja theoretisch gehen. Bloß der Befehl um in "Menge" die Länge der Spalte reinzuschreiben geht nicht. Hoffe auf Tipps
