Hallo!
Ich muss aus einer Excel-Datei Daten in mein Programm importieren. Dafür benutze ich folgende Anweisungen:
Delphi-Quellcode:
var
Excel: OleVariant;
i,j: integer;
begin
try
Excel := CreateOleObject('Excel.Application');
except
MessageDlg('Kein Excel installiert',mtError,[mbOk],0);
end;
Excel.WorkBooks.Open(Pfad);
for i := 1 to 94 do for j := 1 to 16 do Tabelle[i,j] := Excel.ActiveSheet.Cells.Item[i+1,j].value;
Excel.Workbooks.Close;
Excel.Quit;
end;
Das klappt auch wunderbar, sodass alle Daten danach in dem Array of string "Tabelle" sind. Nun muss ich jedoch auch noch Daten vom 2ten Tabellenblatt der Excel-Datei holen. Wie wechsle ich denn nun das Blatt, von dem die Daten gelesen werden?