Excelvorlage als .xlt öffnen

[beanbear6]

Hi,
hm... ich hab in Delphi jedoch nicht die Möglichkeit beim Befehl diesen Editable-Parameter mit zu liefern...
Hat vielleicht noch jemand eine Idee?? Trotzdem vielen Dank für die Postings..
Gruß beanbear
PS: Hat das vielleicht schon mal jemand in DXE versucht? Evtl ein Bug in D5 oder D7?

[Jumpy]

Zitat von beanbear6:

Hi,
hm... ich hab in Delphi jedoch nicht die Möglichkeit beim Befehl diesen Editable-Parameter mit zu liefern...

Das kann ich mir jetzt aber nicht vorstellen. Kannst du mal deinen Code zeigen, wie du auf Excel zugreifst? Im Notfall müsstest du das doch mit lauter EmptyParams hinkriegen:

Workbook.Open(Filename,EmptyParam,EmptyParam,...., EmptyParam,True)

[beanbear6]

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.

[nahpets]

nach https://msdn.microsoft.com/de-de/lib...ice.11%29.aspx müsste der 10 Parameter auf True gesetzt werden.

ungefähr so?

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, true,
                        emptyParam, emptyParam, emptyParam,emptyParam, emptyParam);
  end;
end;

[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;

[beanbear6]

Ou mann ey Ihr seid die BESTEN hier!!! Was würd ich oft nur ohne Eure Hilfe machen..
Vieeelen herzlichen Dank! Habt mir sehr geholfen.
Gruß beanbear

[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