Hallo zeina,
Deine Angaben sind etwas konfus, aber ich habe mal ein kleines Beispielprogramm angehängt wie man die Anzahl Spalten in einer bestimmten Zeile und die Anzahl Zeilen in einer bestimmten Spalte ermitteln kann.
Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
var
DateiName: TFileName;
olevEXCELoffen: OLEVariant;
AnzahlZeilen: integer;
AnzahlSpalten: integer;
SpaltenNr: integer;
ZeilenNr: integer;
begin
try
olevEXCELoffen := CreateOleObject('Excel.Application');
except
ShowMessage('Excel ist nicht geöffnet !');
Exit;
end;
olevEXCELoffen.Visible:= TRUE;
olevEXCELoffen.Workbooks.Open('C:\Users\Public\Documents\EXCEL-Daten\AnzahlMappe1.xlsx');
// Anzahl Zeilen ermitteln, in der Spalte die in SpaltenNr angegeben ist.
SpaltenNr:= 2;
AnzahlZeilen:= olevEXCELoffen.Cells[olevEXCELoffen.Rows.Count,SpaltenNr].End[xlUp].Row;
showmessage(AnzahlZeilen.tostring);
// Anzahl Spalten ermitteln, in der Zeile die in ZeilenNr angegeben ist.
ZeilenNr:= 24;
AnzahlSpalten:= olevEXCELoffen.Cells[ZeilenNr,olevEXCELoffen.Columns.Count].End[xlToLeft].Column;
showmessage(AnzahlSpalten.tostring);
olevEXCELoffen.Quit;
olevEXCELoffen:= Unassigned;
end;
Bis bald Chemiker