none
Error al actualizar tablas dinamicas desde vba (access) RRS feed

  • Pregunta

  • Hola, estoy tratando de actualizar varias tablas dinamicas contenidas en un excel, pero me arroja el "Se ha producido el error 1004 en tiempo de ejecución" "Error definido por la aplicación o el objeto"

    Este es el código:

        For Each ws In wb.Worksheets
            For Each PT In ws.PivotTables
                lastCol = ws.Range("A1").End(xlToRight).Column
                lastRow = ws.Cells(1048576, lastCol).End(xlUp).Row
                ws("Indicador_Consistencia").Range("A1", ws.Cells(lastRow, lastCol)).Select
                ws("Indicador__Qualifications").Range("A1", ws.Cells(lastRow, lastCol)).Select
                PT.RefreshTable
                PT.Update
            Next PT
        Next ws
        wb.Close
        XL.Quit
        Set wb = Nothing
        Set XL = Nothing


                     


    MsgBox ("La exportación y actualización a Excel se ha completado")

    Muy agradecida de sus comenatarios!


    • Editado Meimassiel jueves, 29 de noviembre de 2012 14:44
    jueves, 29 de noviembre de 2012 14:26