Hallo,
ich suche ein Lösung um aus Delphi heraus in einer Exceltabelle (WorkSheet) bestimmte Zeilen
zu markieren und anschließend zu gruppieren.

Das hat mir der Markorecorder geliefert:

markieren

Code:

Sub Makro1()
'
' Makro1 Makro
' Makro am 20.01.2004 von Jens Schumann aufgezeichnet
'

'
    Rows("2:9").Select
    Selection.Rows.Group
End Sub

Und hier mein jämmerlicher Versuch das Makro nach Delphi zu übertragen.

zusammenfalten · markieren

Delphi-Quellcode:

var
  Filename : String;
begin
  Filename:=ApplicationPath+'mappe1.xls';
  ExcelApplication.Workbooks.Open(Filename,EmptyParam,EmptyParam,EmptyParam,
                                  EmptyParam,EmptyParam,EmptyParam,EmptyParam,
                                  EmptyParam,EmptyParam,EmptyParam,EmptyParam,
                                  EmptyParam,FLCID);
  ExcelWorkbook.ConnectTo(ExcelApplication.Workbooks.Item['mappe1.xls']);
  ExcelWorksheet.ConnectTo(ExcelWorkbook.Sheets.Item['Tabelle2'] as _WorkSheet);


  ExcelWorksheet.Rows.Range_['A2','A8'].Select; // Die Paramter sind hier falsch
  ExcelWorksheet.Rows.Group(EmptyParam,EmptyParam,EmptyParam,EmptyParam);

  ExcelWorkbook.Save;
  ExcelWorkbook.Close;
end;

Probleme machen die Paramter für das Range Objekt.
Weiß jemand was ich machenn muss ?

Hallo,
habe die Lösung gefunden.
ExcelWorksheet.Rows.Range_['A2','A8'].Group(True,EmptyParam,EmptyParam,EmptyParam); Es bleibt nur noch die Frage: Wie wird die Gruppierung zusammengeklappt ?

Hallo,

Zitat von Jens Schumann:

Es bleibt nur noch die Frage: Wie wird die Gruppierung zusammengeklappt ?

Das ist eigentlich auch kein Problem (Makrorecorder sei dank)

ExcelWorkSheet.OutLine.ShowLevels(1,EmptyParam);