zoukankan      html  css  js  c++  java
  • delphi 控制 EXCEL 数据透视表

    虽说报表多又难做,做报表相当容易。

    做报表也可以偷懒的,超级实用又省事。只需要做一个报表,这个报表里面包括几乎所有的数据字段,然后将查询到的数据导出到

    excel中,利用excel自带的“数据透视”功能,客户只需要点几下鼠标就可以生成自己所需要的报表。通过这种方法,一个报表可以产生n个

    报表。通过几行代码可以操纵excel打开“数据透视”功能。冒必要在自己的程序里面做数据透视功能了,要做到excel数据透视那种功能效果,

    还是要花费不少时间的。

    function GetExcelCol(iCol: integer): string;
    begin
      Result := '';
      case iCol of
        1: Result := 'A';
        2: Result := 'B';
        3: Result := 'C';
        4: Result := 'D';
        5: Result := 'E';
        6: Result := 'F';
        7: Result := 'G';
        8: Result := 'H';
        9: Result := 'I';
        10: Result := 'J';
        11:Result :='K';
        12:Result :='L';
        13:Result :='M';
        14:Result :='N';
        15:Result :='O';
        16:Result :='P';
        17:Result :='Q';
        18:Result :='R';
        19:Result :='S';
        20:Result :='T';
        21:Result :='U';
        22:Result :='V';
        23:Result :='W';
        24:Result :='X';
        25:Result :='Y';
        26:Result :='Z';
      end;
    end;

    procedure TfrmReportSale.cxButton2Click(Sender: TObject); var   iRows, iColumns: Integer;   bb: OleVariant;   s:string; begin   if (not cds.Active) or cds.IsEmpty then     Exit;   if SaveDialog1.Execute then   begin     ExportGridToExcel(SaveDialog1.FileName, cxGrid1);

        ExcelApp.Visible := True;     WorkBook := ExcelApp.WorkBooks.Open(SaveDialog1.FileName);     iRows := WorkBook.WorkSheets[1].UsedRange.Rows.Count - 1;     iColumns := WorkBook.WorkSheets[1].UsedRange.Columns.count;     s:=UntSysConst.GetExcelCol(iColumns);

        bb := ExcelApp.ActiveWorkbook.PivotCaches.Add(xlDatabase,       '销售报表!A1:' + s + inttostr(iRows));     bb.CreatePivotTable('', '销售报表');     ExcelApp.ActiveSheet.PivotTables['销售报表'].SmallGrid := False;     application.Minimize;   end; end;

  • 相关阅读:
    【Java】java运行jar时,报 java.lang.UnsupportedClassVersionError
    【kafka】kafka.admin.AdminOperationException: replication factor: 1 larger than available brokers: 0
    【DB2】关闭表的日志功能
    python网络爬虫技术图谱
    对于网络通信的理解(图)
    对项目开发流程的思考和小结
    django框架--cookie/session
    django框架--中间件系统
    django框架--底层架构
    django框架--视图系统
  • 原文地址:https://www.cnblogs.com/hnxxcxg/p/3514050.html
Copyright © 2011-2022 走看看