Hi,
also hier mal der Code... Wär echt klasse wenn Du mir da helfen könntest, ich kriegs nicht hin...
Delphi-Quellcode:
procedure TDBForm.DBGrid1DblClick(Sender: TObject);
var excel : Variant;
datei : String;
begin
If (Table1.FieldByName('DFExt').asstring = '.xlt') or
(Table1.FieldByName('DFExt').asstring = '.xltx') then begin
Excel := CreateOleObject('Excel.Application');
Excel.Visible := True;
Datei:=Table1.FieldByName('DFNAMEPATH').AsString;
Excel.Workbooks.Open(Datei, emptyParam, emptyParam, emptyParam, emptyParam,
emptyParam, emptyParam, emptyParam, emptyParam, emptyParam,
emptyParam, emptyParam, emptyParam,emptyParam, emptyParam,True);
end;
end;
Das Ganze wird zwar Comiliert, aber dann krieg ich nen Fehler, dass Parameteranzahl nicht stimmt.