Hente data fra excel regneark

[reeng]

Noen som vet hvordan man kan hente data fra excel regneark og presentere det i en label i et Delphi program , ønsker å hente data (tall) fra 3 celler i regnearket og vise dem i 3 forskjellige label samt å summere tallene og vise resultatet i en fjerde label.

[DidzisK]

var
 MSExcel, Wbk, ASheet: Variant;
 AValue: Variant;
begin
   try
     MsExcel := CreateOleObject('Excel.Application');
   except
     ShowMessage('Feil ved aksessering av Excel');
     Exit;
   end;
   Wbk:=MsExcel.Workbooks.Open('c:\test.xls');
   ASheet := Wbk.Worksheets['Sheet1'];

   AValue := ResultSheet.Cells[1,1].Value;
   Label1.Caption:=AValue;
end;

 

Dette kan selvfølgelig gjøres ved hjelp av "early binding" (litt kjappere), men siden automation interface ikke er kompatibel mellom forskjellige versjoner av Excel, skaper dette ofte problemer. Derfor har jeg gjort dette med "late binding" her.