[Excel] OLE und Gruppierungen

[Igotcha]

Hallo zusammen,

ich benutze in meinem Programm ein Excel-OLE-Object zum Erstellen von Tabellen.

Jetzt möchte ich Zeilen gruppieren, finde aber nicht die passende Syntax.

So sieht es in VBA aus:

Code:

Rows("8:16").Select
Selection.Rows.Group

So geht es in Delphi nicht:

Delphi-Quellcode:

excel.sheets[1].rows[iStartGroup,iEndGroup].rows.group; oder
excel.sheets[1].rows[iStartGroup,iEndGroup].group;

Gruß Igotcha

[Reinhard]

Guten Morgen,

gibt es für dieses Problem eine Lösung?

Reinhard

[Dale]

Hallo Igotcha,

bei mir scheint folgendes zu funktionieren:

Delphi-Quellcode:

var lRange: String;
...
lRange := Format('%d:%d', [iStartGroup, iEndGroup]);
excel.sheets[1].Range[lRange].Rows.Group;

versuchs doch mal damit.

Gruß Dale

[Igotcha]

Zitat:

Zitat von Dale

Hallo Igotcha,

bei mir scheint folgendes zu funktionieren:

Danke, aber der Ursprungspost ist 2 Jahre alt :-)

[Reinhard]

Hallo,

@Dale:

Was sind den richtige Werte für "iStartGroup" und "iEndGroup"? Ist das der "Zellenname" also z.B. "A1"?

In meiner Delphi-Version (Delphi 6) benötigt das Range-Objekt zwei Parameter. Leider funktioniert dein Delphi-Quellcode bei mir so nicht :(

Hast du noch eine Idee?

@Igotcha:

Hast du das ganze noch lösen können? Auch wenn es schon zwei Jahre her ist :)

Reinhard

[Dale]

@Reinhard:

iStartGroup und iEndGroup sind Integer-Variablen, die für die erste und letzte Zeilennummer stehen, die gruppiert werden sollen.

Gruß Dale

[Reinhard]

Folgendes funktioniert leider bei mir nicht:
excel.sheets[1].Range[1,2].Rows.Group;

[Dale]

'Range' erwartet einen String!

Also:

Delphi-Quellcode:

excel.sheets[1].Range['1,2'].Rows.Group;

Gruß Dale

[Reinhard]

Hallo,

Range benötigt bei mir zwei Parameter und Group benötigt vier Parameter.
Bei mir sieht das dann so aus:

fWorkSheet.Range[1,2].Rows.Group(EmptyParam, EmptyParam, EmptyParam, EmptyParam);

Funktioniert aber leider nicht :(

Reinhard

[Dale]

von welchen Typ ist "fWorkSheet"?

[Reinhard]

Ich hab den Quellcode jetzt gerade nicht da, aber ich glaube der Typ wa "WorkSheet_".

[Dale]

möglicherweise liegt da das Problem, denn

Delphi-Quellcode:

excel.sheets[1]

liefert ein Objekt vom Typ "Sheets" zurück.

Gruß Dale

[Reinhard]

Guten Morgen,

ich hab es jetzt noch mal wie hier beschrieben getestet. Über CreateOleObject funktioniert das ganze wie von Dale beschrieben.

Ich nutze hier in meiner Anwnedung die Excel2000.pas und die TExcelApplication und damit funktioniert es leider nicht. Ich möchte jetzt aber nicht alles auf Ole umstellen.

In diesem Fall werde ich die Gruppierung einfach weglassen.

Eine Kleinigkeit ist mir noch aufgefallen, die Zeile für die Gruppierung muss so aussehen:

Delphi-Quellcode:

excel.sheets[1].Range['1:2'].Rows.Group;

Dann hat sie bei mir funktioniert :)

Trotzdem danke für die Hilfe.

Reinhard

[MSerror]

Hallo,

weiß jemand wie die Syntax lauten soll, wenn man mit Variablen arbeitet?

Hier ein Beispiel:

var
bereich : string;
zeile1, zeile2 : integer;

...
bereich := Format(#39 + '%d:%d' + #39, [zeile1, zeile2]);
excel.sheets[1].Range[bereich].Rows.Group; -> Hier bekomme ich den OLE-Fehler 800A03EC

Danke im Voraus für Eure Tipps.

[bra]

Zitat:

Zitat von MSerror (Beitrag 1337279)

...
bereich := Format(#39 + '%d:%d' + #39, [zeile1, zeile2]);
excel.sheets[1].Range[bereich].Rows.Group; -> Hier bekomme ich den OLE-Fehler 800A03EC

Die #39 sehen falsch aus, wozu hängst du da nochmal ' ran?

[himitsu]

Lass die #39 weg, denn im String seh ich hier nirgendwo Welche.

[MSerror]

Super! Vielen Dank.