1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

var
  xcl : OleVariant;
  sl1, sl2, sl3 : TStringlist;

const
  xlCellTypeLastCell = 11;

//Laden aus Excel
procedure Laden(Datei: string; list: TStrings);
var i, r: integer;
begin
  list.clear;
  xcl := createOleObject('Excel.Application');
  xcl.Workbooks.Open(Datei);
  r := xcl.Cells.SpecialCells(xlCellTypeLastCell, EmptyParam).Row; 
       //hier benötige ich die letzte Zeile von Spalte B (Spalte A enthält mehr Daten als Spalte B)
  for i := 3 to r do begin
    list.add(xcl.range['B' + inttostr(i)]);
    sl1.add(xcl.range['C' + inttostr(i)]);
    //sl2 ...
  end;
  xcl.quit;
end;

procedure TForm1.Button1Click(Sender: TObject);
var Datei: string;
begin
  if OpenDialog1.Execute then begin
    sl1 := TStringlist.create;
    //sl2 ...
    Datei := OpenDialog1.FileName;
    Laden(Datei, ComboBox1.items);
    ComboBox1.ItemIndex := 0;
    Edit1.Text := sl1.Strings[0];
    // ...
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

//Laden aus Excel
procedure Laden(Datei: string; list: TStrings);
var i, r: integer;
    s, x : string;
begin
  list.clear;
  xcl := createOleObject('Excel.Application');
  xcl.Workbooks.Open(Datei);
  for i := 1 to xcl.Sheets.Count do begin
    s := s + chr(13) + IntToStr(i) + ' - ' +xcl.Sheets[i].name
  end;
  InputQuery('Tabelle auswählen', s, x);
  r := xcl.Sheets[StrToInt(x)].Cells.SpecialCells(xlCellTypeLastCell, EmptyParam).Row;
  for i := 3 to r do begin
    list.add(xcl.Sheets[StrToInt(x)].range['B' + inttostr(i)]);
    sl1.add(xcl.Sheets[StrToInt(x)].range['C' + inttostr(i)]);
    //sl2 ...
  end;
  xcl.quit;
end;					

1:

<span class="inlineSyntax"><span class="codecomment">{PROTECTTAGd6f0893982771bbe9faced57b60e8924}</span></span>					

1:

var Test: integer;					

1:

xcl.quit;					

1:

xcl:= Unassigned;