none
Tabla dinamica en excel desde visual RRS feed

  • Pregunta

  • Hola, tengo el siguiente problema espero puedan ayudarme:

    Necesito hacer una tabla dinamica en excel con datos enviados desde mi windows form, ya envio los datos a excel pero ahora necesito que con estos datos se cree una tabla dinamica y su respectiva grafica en 3d, mi pregunta es como hago eso definiendo los filtros,campos de leyenda, valores y campos de eje, espero puedan ayudarme de antemano gracias, Saludos.

    martes, 12 de febrero de 2013 16:01

Todas las respuestas

  • hola juvi

    creo que es mejor que hagas la tabla dinamica en sql aqui-pivot y luego hacer en tu llamada desde window form a excel llamada a excel

    suerte

    martes, 12 de febrero de 2013 20:16
  • Hola greg, tienes algun ejemplo que me sirva de ayuda gracias, saludos.
    miércoles, 13 de febrero de 2013 16:45
  • hola juvi si ya enviaste los datos a excel puedes utilizar el siguiente codigo:

        Sheets.Add ' AQUI ADICIONAS UNA NUEVA HOJA
        ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
            "Hoja1!ELRANGO DONDE COLOCASTE LOS DATOS DE C#", Version:=xlPivotTableVersion14).CreatePivotTable _
            TableDestination:="TuHoja5!y RANGO DONDE APARECERA", TableName:="Tabla dinámica2", _
            DefaultVersion:=xlPivotTableVersion14 '
        Sheets("Hoja5").Select 'SELECCIONAS LA HOJA
        Cells(3, 1).Select
        With ActiveSheet.PivotTables("EL NOMBRE DE TU TABLA DINAMICA").PivotFields("EL -LOS- CAMPO PARA LAS FILAS")
            .Orientation = xlRowField
            .Position = 1
        End With
        With ActiveSheet.PivotTables("EL NOMBRE DE TU TABLA DINAMICA").PivotFields("EL LOS - CAMPOS PARA LAS COLUMNAS")
            .Orientation = xlColumnField
            .Position = 1
        End With
        ActiveSheet.PivotTables("EL NOMBRE DE TU TABLA DINAMICA").AddDataField ActiveSheet.PivotTables _
            ("NOMBRE DE TU TABLA DINAMICA").PivotFields("Valor QUE QUIERES DEL RESULTADO DE COMPARAR FILAS Y COLUMNAS"), "Suma de Valor", xlSum

    • Propuesto como respuesta Rogger Quiroz jueves, 26 de febrero de 2015 21:10
    • Votado como útil Rogger Quiroz jueves, 26 de febrero de 2015 21:10
    jueves, 28 de febrero de 2013 15:40
  • Estimados Yo lo lleno así a través de un botón pero solo funciona una sola vez la siguiente que vuelvo apretar el botón para generar el Excel sale error en el SourceData:= dice Method 'Range' of object '_Global' failed y tengo que cerrar la aplicación si vuelvo a entrar y ejecutar funciona solo la primera vez nuevamente alguien sabe por que?????

    With objExcel

        'Seleciona la hoja Datos
        .Sheets("Datos").Select
        'Seleciona los datos para la tabla dinamica
        Set PTCache = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase,  SourceData:=Range("A1").CurrentRegion)
        'Seleciona la hoja Tabla Dinamica
        .Sheets("Tabla Dinamica").Select
        'Inserta la tabla dinamica
        Set PT = ActiveSheet.PivotTables.Add(PivotCache:=PTCache, TableDestination:=Range("D12"), TableName:="Sesiones Pendientes")

    end With


    jueves, 26 de febrero de 2015 21:17