Excelvorlage als .xlt öffnen

[EarlyBird]

kann sein das Du die Parameter als OleVariant übergeben musst.
Ich glaube auch die Anzahl der Paramter ist je nach verwendeter Excel Versionen unterschiedlich.

Delphi-Quellcode:

procedure TDBForm.DBGrid1DblClick(Sender: TObject);
var excel : Variant;
    datei : String;
    OleString  : OleVariant;
    OleBoolean : OleVariant;
begin
  OleBoolean := True;  
  If (Table1.FieldByName('DFExt').asstring = '.xlt') or
     (Table1.FieldByName('DFExt').asstring = '.xltx') then begin
    Excel := CreateOleObject('Excel.Application');
    Excel.Visible := True;
    OleString :=Table1.FieldByName('DFNAMEPATH').AsString;
    Excel.Workbooks.Open(OleString , emptyParam, emptyParam, emptyParam, emptyParam,
                        emptyParam, emptyParam, emptyParam, emptyParam, OleBoolean,
                        emptyParam, emptyParam, emptyParam,emptyParam, emptyParam);
  end;
end;