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.

zusammenfalten · markieren

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

Hi, versuchs mal damit:

Ich verwende das Teil für Installationen, und alles was man so in einer exe einpacken kann und zur Laufzeit wieder mal braucht.

http://www.delphipraxis.net/download.php?id=41354

lg.

Hallo uoeb7gp

Ist zwar nicht das was ich wollte, aber das Tool klappt ausgezeichnet.
Ich habe mein Problem mit dem "Digitizer" gelöst.

Besten Dank
Dubrain