Læse i Excel 2010 (xlsx) fra Delphi 7

rename til zip, pak ud, og kig i xml

/J

Du har vist glemt at vedlægge filen ;-)

Nej tag en xslx fil, omdøb den til *.zip, kig i wooksheet folderen. Der er massere af  andre beskrivende mxl filer også.

Brug så xpath til at hente dine noder ud.

/J

Så er det vist lige så nemt at indlæse den i Excel og gemme den i det ældre format.
Jeg kan modtage data i en csv-fil, en xls-fil eller i en xlsx-fil og jeg vil gerne kunne behandle data i mit program uanset formatet, derfor er datakonvertering uden for programmet ikke ønskværdi.

Hola

Jeg har netop selv haft brug for at hente data fra xlsx filer, så jeg håber du kan bruge noget af det her:
http://testarea.skovjuul.dk/frmmain.pas

Jeg har sat en TADOConnection op som hedder conExcel, en TADOQuery som hedder qExcel med property "connection" sat til conExcel og endelig en TDataSource som har sin "Dataset" sat til qExcel.

Ovenstående viser hvordan du får fat i et bestemt worksheet (som du kender navnet på) og får fat på de enkelte rækker og felter.

Du kan også nemt finde på google hvordan du finder alle worksheets i excel-arket.

Med ovenstående opsætning kan du bruge excel-arket som du ville enhver anden database. Et forkortet uddrag fra kode jeg selv bruger:

sqlstring := 'select F1 as paxdate, F3 as event from [forecast$] where F1 >= ' + floattostr(today) +' and F1 <= ' + floattostr(today+1);//to correspond with datetime-format in excel
  qExcel.SQL.Add(sqlstring);
  try
  try
    qExcel.Open;
    qExcel.First;
    while not qExcel.Eof  do begin
      sEvent := qExcel.FieldByName('event').AsString;
      qExcel.Next;
    end;
  except
  end;
  finally
  end;

Håber noget af det kan bruges.

Til SkovJuul
Det ser meget spændende ud. Jeg håber,at jeg får tid til at kikke på det i morgen på arbejdet.

Til skovjuul
Vil du ikke lægge et svar?
Jeg er løbet ind i en ny stilling og ved ikke hvornår, jeg får tid til at kikke på programmeringen igen, men jeg vil gerne tildele dig pointene.

Tak for det.
God fornøjelse med det nye job.

Hygge.