Hallo MCOP2001DE,
vielleicht hilft Dir das weiter.
Delphi-Quellcode:
function EXCELStarten (var m_EXCEL : Variant): boolean;
begin
try
m_EXCEL := CreateOleObject('Excel.Application');
Result := TRUE;
except
ShowMessage('Excel konnte nicht gestartet werden!');
Result := FALSE;
Exit
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var ArtNr, ArtBez : string;
DateiName: string;
Excel: Variant;
begin
DateiName:= 'F:\Excel-ProgammOrdner\Beispiel Daten\Bestellungen.xls';
if EXCELStarten(Excel)then // Excel startet
begin
ShowMessage('MSExcel ist erfolgreich gestartet worden!!');
end
else
begin
ShowMessage('MSExcel konnte nicht gestartet werden!!');
end;
Excel.Workbooks.Open(DateiName);
Excel.Visible := TRUE; // TRUE = Excel sichtbar.
Excel.Worksheets[1].Activate;
ArtNr:= '4711';
ArtBez:= 'Wasser';
Excel.Cells[2,3]:= ArtNr;
Excel.Cells[2,4]:= ArtBez;
Excel.Quit;
end;
Der Dateiname muss natürlich noch angepasst werden.
Die Formatierungen bleiben im Excel-Formular erhalten, es werden nur die Daten geschrieben. Das ganze zeigt auch nur wie Daten in ein Excel-Formular geschrieben werden können.
Bis bald Chemiker