Daten aus Exel

[lamoller]

Hallo
Ich bin in Delphi und insgesamt im Programmieren noch unerfahren, möchte jetzt aber eine Excel tabelle mit Delphi auslesen. Ich bin mir klar darüber, dass das so einfach nicht sein kann, wäre aber sehr froh, wenn mir jemand helfen könnte.
Danke

[Oswald Mair]

Hallo Iamoller,
hier ein wenig Code zum schnippseln.


uses ComObj;

procedure TForm1.Button1Click(Sender: TObject);
const wdFindContinue = 1;
wdReplaceOne = 1;
wdReplaceAll = 2;
wdDoNotSaveChanges = 0;

var ExcelApp, Sheet: OleVariant;
OpenReadOnly : OleVariant;
cFileName, cValue : string;
begin
// Vorbereitung
cFileName := 'C:\Testdatei.xls';
OpenReadOnly := true;

// Excel starten
try
ExcelApp := GetActiveOleObject('Excel.Application');
except
try
ExcelApp := CreateOleObject('Excel.Application');
except
ShowMessage('Excel kann nicht gestartet werden, oder ist nicht installiert.');
Exit;
end;
end;
ExcelApp.Workbooks.Open(cFileName,EmptyParam,OpenR eadOnly);
Sheet := ExcelApp.Workbooks[1].WorkSheets['Tabelle1'];
ExcelApp.Visible := true;

// Daten lesen
cValue := Sheet.Cells[1,1].Value;

// Daten schreiben
Sheet.Cells[1,2].Value := cValue;
Sheet.Cells[1,3].Value := 'Test-inhalt';

// Schließen
ExcelApp.DisplayAlerts := False; // Abfragen Speichern abschalten
ExcelApp.Quit;
ExcelApp := Unassigned;
Sheet := Unassigned;
end;


Viel Spaß
Oswald

[lamoller]

danke, ich werds mal probieren

[Josef_D]

Hi Iamoller,

auf dieser Internetseite ist die Steuerung einer Exceldatei gut erklärt.
http://www.dsdt.info/tipps/?id=605

Viel Spaß
Josef_D