Hallo Netzbewohner
Ich möchte in ein vorbereitetes Exceldokument, mit Delphi7, automatisch ein paar Felder ausfüllen und unter einem neuen Namen speichern.
Das klappt prima mit diesem Code.
Delphi-Quellcode:
implementation
{$R *.dfm}
{$R XLSResData.res} // = XLSFile RCData "XLS-File.xls"
procedure TForm1.Button1Click(Sender: TObject);
var Workbook,XLSName,Excel : OLEVariant; //uses ComObj
begin
Excel := CreateOleObject('Excel.Application');
XLSName:=ExtractFilePath(ParamStr(0))+'XLS-File.xls';
Workbook:=Excel.Workbooks.Open(XLSName);
Excel.ActiveWorkBook.Saved := True;
Excel.Cells[2, 2].Value := 'Zelle 2.2';
Excel.ActiveWorkbook.SaveAs(ExtractFilePath(ParamStr(0))+'XLS-Save.xls');
Excel.Quit;
Excel := Unassigned;
end;
Jetzt habe ich die Excelvorlage direkt mit der EXE-Datei verknüpft. ( mit BRCC32 als RES-Datei )
siehe > {$R XLSResData.res}
Nur habe ich jetzt keinen Plan, wie ich diese Datei nun öffnen muss.
Ich habe probiert:
Workbook:=Excel.Workbooks.LoadFromResourceName(hInstance,'XLSFile');
Das ist gescheitert mit der Fehlermeldung:
"Die Methode 'LoadFromResourceName' wird von Automatisierungsobjekten nicht unterstützt."
Kann mir jemand die korrekte Befehlszeile posten ? Oder gehe ich für mein Vorhaben den falschen Weg.
Gruss Dubrain