Excelvorlage als .xlt öffnen

[Chemiker]

Hallo,

es ist auch möglich die Parameter in Workbooks.Open zu bezeichnen, das sorgt dafür das wenn sich die Parameteranzahl ändert trotzdem die richtigen Parameter angesprochen werden. Als weiteres ist es besser die Excel – Instanz mit OLEVariant zu deklarieren. Dafür ist es nicht notwendig den Dateiname und die Boolean als OLEVariant zu deklarieren.

Delphi-Quellcode:

procedure TDBForm.DBGrid1DblClick(Sender: TObject);
var excel : OLEVariant;
    DateiName : String;
begin
  OleBoolean := True; 
  If (Table1.FieldByName('DFExt').asstring = '.xlt') or
     (Table1.FieldByName('DFExt').asstring = '.xltx') then begin
    Excel := CreateOleObject('Excel.Application');
    Excel.Visible := True;
    DateiName :=Table1.FieldByName('DFNAMEPATH').AsString;
    Excel.Workbooks.Open(FileName:=DateiName, Editable:=TRUE);
  end;
end;

Bis bald Chemiker