Tablas Dinamicas .Net pivot Tables

[rafram]

Hola Todos, estuve buscando informacion de como crear una tabla dinamica en Excel desde . net encontre varios tutos y programas pero no eran muy entendibles, des pues de mucho trabajo lo logre sacar y aki lo adjunto para su ayuda

se importan las dll, se toma como base la informacion que se encuentra en un archivo excel, esto puede variar de hecho la creacion del archivo la hice tambien en .net pero para efectos de la creacion de la tabla dinamica tome desde aki para que fuera mas rapido y no tuviera que estar creando el archivo cada vez que queria crear la tabla, asi que lo primero es contar con la informacion.

Código (vbnet) [Seleccionar] Expandir

Imports System.IO
Imports Microsoft.Office.Interop
Imports System.Diagnostics
Imports System.Runtime.InteropServices

Public Sub Dinamic3()

       Dim xlapp As New Excel.Application
       Dim xlBook As Excel.Workbook
       Dim xlSheet As Excel.Worksheet
       Dim xlSheet1 As Excel.Worksheet
       Dim PRange As Excel.Range
       Dim FinalRow As Long
       Dim FinalCol As Long

       Try
           ' Modify the File Name as necessary
           xlapp.Workbooks.Open("C:\Informe Diario\InforDiario-20101111.xls")

           xlBook = xlapp.ActiveWorkbook()

           xlSheet1 = xlapp.ActiveSheet()
           FinalRow = xlSheet1.Cells(xlSheet1.Rows.Count, 1).End(Excel.XlDirection.xlUp).Row
           FinalCol = xlSheet1.Cells(1, xlSheet1.Columns.Count).End(Excel.XlDirection.xlToLeft).Column
           PRange = xlSheet1.Cells(1, 1).Resize(FinalRow, FinalCol)


           'Creo una hoja y la coloco al inicio
           xlSheet = xlapp.Worksheets.Add(Before:=xlapp.Worksheets("Datos"))
           'xlSheet.Visible = True
           xlSheet.Activate()
           xlSheet.Name = "Tablaaaa"

           xlBook.ActiveSheet.Cells(3, 1).Select()

           'creo la Tabla Dinamica
           xlBook.PivotCaches.Create(Excel.XlPivotTableSourceType.xlDatabase, SourceData:="Datos!R1C1:R65536C10", _
                         Version:=Excel.XlPivotTableVersionList.xlPivotTableVersion10).CreatePivotTable _
                         (TableDestination:=xlSheet.Range("A1:D25"), TableName:="PivotTable1", _
                          DefaultVersion:=Excel.XlPivotTableVersionList.xlPivotTableVersion10)


           With xlSheet.PivotTables("PivotTable1").PivotFields("Convenio")
               .Orientation = Excel.XlPivotFieldOrientation.xlPageField
               .Position = 1
           End With
           With xlSheet.PivotTables("PivotTable1").PivotFields("Servicio")
               .Orientation = Excel.XlPivotFieldOrientation.xlPageField
               .Position = 1
           End With
           With xlSheet.PivotTables("PivotTable1").PivotFields("Etapa")
               .Orientation = Excel.XlPivotFieldOrientation.xlRowField
               .Position = 1
           End With

           xlSheet.PageSetup.Zoom = 90

           xlSheet.PivotTables("PivotTable1").AddDataField(xlSheet.PivotTables _
                                                           ("PivotTable1").PivotFields("Valor"), _
                                                           "Cuenta de Valor", Excel.XlConsolidationFunction.xlCount)

           xlSheet.PivotTables("PivotTable1").AddDataField(xlSheet.PivotTables _
                                                           ("PivotTable1").PivotFields("Dias"), _
                                                           "Cuenta de Dias", Excel.XlConsolidationFunction.xlCount)

           With xlSheet.PivotTables("PivotTable1").DataPivotField
               .Orientation = Excel.XlPivotFieldOrientation.xlColumnField
               .Position = 1
           End With
           With xlSheet.PivotTables("PivotTable1").PivotFields("Cuenta de Dias")
               .Caption = "Promedio de Dias"
               .Function = Excel.XlConsolidationFunction.xlAverage
               .NumberFormat = "0"
           End With
           xlSheet.PivotTables("PivotTable1").AddDataField(xlSheet.PivotTables _
                                                               ("PivotTable1").PivotFields("Valor"), _
                                                               "Cuenta de Valor2", Excel.XlConsolidationFunction.xlCount)

           With xlSheet.PivotTables("PivotTable1").PivotFields("Cuenta de Valor2")
               .Caption = "Suma de Valorrrr"
               .Function = Excel.XlConsolidationFunction.xlSum
               .NumberFormat = "$ #.##0"
           End With

           Dim pvi As Excel.PivotItem
           With xlSheet.PivotTables("PivotTable1").PivotFields("Etapa")
               For Each pvi In .PivotItems
                   If pvi.Name = "11 Exportacion" Or _
                   pvi.Name = "12 Espera RIPS" Or _
                   pvi.Name = "13 Transmitir" Or _
                   pvi.Name = "14 Impresion" Or _
                   pvi.Name = "15 Entregado a Armado" Or _
                   pvi.Name = "16 Esperar Radicación" Or _
                   pvi.Name = "17 Radicacion" Or _
                   pvi.Name = "18 Radicacion" Or _
                   pvi.Name = "19 FCI Pendiente" Or _
                   pvi.Name = "20 FCI Anulación" Then
                       pvi.Visible = False
                   End If
               Next
           End With




           xlBook.ShowPivotTableFieldList = False

           xlSheet.SaveAs("C:\Informe Diario\InforDiario-201011rafafa.xls", _
                                   Microsoft.Office.Interop.Excel.XlFileFormat.xlExcel7)
           xlapp.Workbooks.Close()

           xlSheet = Nothing
           xlBook = Nothing

           If Not xlapp Is Nothing Then
               xlapp.Quit()
               xlapp = Nothing
           End If

           'Mato todos los procesos de excel.
           Try
               For Each vl_objProcess As Process In System.Diagnostics.Process.GetProcesses()
                   If vl_objProcess.ProcessName = "EXCEL.EXE" Or _
                       vl_objProcess.ProcessName = "EXCEL" Then
                       vl_objProcess.Kill()
                   End If
               Next
           Catch ex As Exception

           End Try
           MessageBox.Show("Listo")
       Catch ex As Exception
           MessageBox.Show(ex.ToString)
       End Try
   End Sub

espero les alla servido