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:
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.
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 ?