Excel PivotTableWizard

[bart57]

Hallo,

weiß jemand wie man die Parameter an ActiveSheet.PivotTableWizard übergeben muß ?
Habe es so probiert, geht aber leider nicht...

Delphi-Quellcode:

       FExcelWorksheet.PivotTableWizard(xlDatabase,
       '"'''+sXLSTemplateFile+' Q_PTI ''!R1C1:R'+inttostr(qu.recordcount+1)+'C'+
        inttostr(qu.FieldCount)+'"');

FExcelWorksheet ist mein Worksheet, sXLSTemplateFile ist die XLS-Datei, Q_PTI
ist meinen Register-Blatt wo die Daten für die Pivot-Tabelle sind!

Danke im Voraus

[tHeRiAn]

Moin,
ich zumindest zeichne mir erst immer ein Macro auf und hole mir dann die benötigten Codesnippets raus...Solltes du auch mal zuvor versuchen. Falls ich dich da richtig verstanden habe

[bart57]

Hallo,

habe ich auch gemacht! geht aber nicht...

Danke

[omata]

Moin,

versuch doch mal folgendes...

Delphi-Quellcode:

uses OleServer, Excel2000;

procedure TFMain.ButtonClick(Sender: TObject);
var Excel:TExcelApplication;
    lcid, Zeile:integer;
    Workbook:_Workbook;
    Sheet:Variant;
    Zeiger:Variant;
    Spalte:char;
begin
  Excel:=TExcelApplication.Create(Self);
  try
    lcid:=GetUserDefaultLCID;
    Excel.Connect;
    Excel.Visible[lcid] := true;
    Excel.UserControl:=true;

    Workbook:=Excel.Workbooks.Add(EmptyParam, lcid);

    Sheet:=Workbook.ActiveSheet;
    Zeiger:=IDispatch(Excel.Cells.Range['A1', 'A1']);
    Zeiger.Value:='Spalte1';
    Zeiger:=IDispatch(Excel.Cells.Range['B1', 'B1']);
    Zeiger.Value:='Spalte2';
    Zeiger:=IDispatch(Excel.Cells.Range['C1', 'C1']);
    Zeiger.Value:='Spalte3';

    for Zeile:=2 to 10 do
      for Spalte:='A' to 'C' do begin
        Zeiger:=IDispatch(Excel.Cells.Range[Spalte+inttostr(Zeile), Spalte+inttostr(Zeile)]);
        Zeiger.Value:=random(10)+1;
      end;
    Sheet.PivotTableWizard(xlDatabase, IDispatch(Excel.Cells.Range['A1', 'C10']));
  finally
    Excel.Disconnect;
    Excel.free;
  end;
end;

MfG
Thorsten

[bart57]

Hallo,

hat sich aber erledigt, so funktionniert es:

Delphi-Quellcode:

    FExcelWorksheet.PivotTableWizard(xlDatabase,
     aWorksheetSource+'!R1C1:R'+inttostr(qu.recordcount+1)+'C'+
      inttostr(qu.FieldCount));

Danke trotzdem!