Hallo zusammen,
ich möchte aus einer bestimmten Excel-Datei z. B. aus der Zelle A1 den Wert in ein Edit-Feld übernehmen lassen.
Hier im Forum habe ich schon mal etwas gefunden.
Aber ich kann es leider nicht auf mich umbauen.
Kann mir bitte wer helfen?!
Hier mal mein bisheriger Code (Ausgabe noch in ShowMessage):
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
// Excel öffnen
lcid := GetUserDefaultLCID;
excel := TExcelApplication.Create(Form1);
excel.Connect;
// Exceldatei laden (test.xls)
wb := excel.Workbooks.Open('test.xls', emptyParam, emptyParam,
emptyParam, emptyParam, emptyParam, emptyParam, emptyParam,
emptyParam, emptyParam, emptyParam, emptyParam, emptyParam,
lcid);
// erstes Worksheet auswählen
ws := wb.Sheets[1] as _WorkSheet;
ShowMessage(ws.Cells.Item[1,a].value); //Fehlermeldung "a" undefinierter Bezeichner
end;
Vielen Dank im Voraus.