Generar tabla dinámica en diferentes archivos

Me encuentro en una situación donde necesito crear una tabla dinámica en otro archivo de excel, ya fui capaz de generar la tabla dinamica; el detalle es que uso diferentes archivos que cambian de nombre, pero mantienen el mismo formato mi pregunta va especificada a si puedo poner el nombre del archivo en una variable y utilizarla desde el SourceData en el código, si cambio el nombre funciona pero me interesa hacerlo de manera automática sin modificar el código

1 respuesta

Respuesta
1
Te estoy enviado dos macros, una para listar los libros abiertos
Y otra para identificar uno a uno una vez listados dichos libros.
Para ello crea una hoja con el nombre LIBROS y en la celda b1 pegas la fórmula
=CONTARA(A:A)+1
luego pegas estos dos modulos y puedes ejecutarlos a la forma que desees.
Sub ListarLibrosAbiertos()
Dim Libros As Object
EsteLibro = ActiveWorkbook.Name
Range("LIBROS!A:A").Clear
For Each Libros In Application.Workbooks
'cargo el nombre de los libros en la hoja LIBROS
Range("LIBROS!A" & Range("LIBROS!B1")) = Libros.Name
Next Libros
Set Libros = Nothing
End Sub
'Recorres libro a libro para tomar su nombre de archivo, y crear la tabla dinamica
Sub LIBRO()
Dim Celda As Range, LIBRO As String
With Worksheets("LIBROS")
For Each Celda In Worksheets("LIBROS").Range("A1:A" & Range("B1"))
LIBRO = Celda
'Aqui podrias cargar el codigo que tienes para crear tu tabla dinamica
'La variable "LIBRO" contiene el nombre del libro que haya recorrido el bucle
End If
Next
End With
End Sub
Espero esto te sirva,
Slds.
Att. Alfredo
Hola experto,
Gracias por tu apoyo, actualmente tengo ya el nombre del archivo en una variable, solo que no me permite utilizar esa variable en el código donde tengo problemas te dejo mi código, especificando donde tengo problemas:
Sub Inventario()
' Ventana de dialogo para seleccionar archivo
On Error GoTo error
Dim intRespuesta As Integer
intRespuesta = MsgBox("¿Seguro que desea insertar los datos del Inventario?", vbQuestion + vbYesNo, "Advertencia") 'messagebox
If intRespuesta = 6 Then
Application.Dialogs(xlDialogOpen).Show '
nombre = ActiveWorkbook.Name 'Se activa el libro seleccionado y lo guardo en una variable
Application.ScreenUpdating = False 'Evitar los movimientos de pantalla
'Se genera tabla dinámica
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"'Inventario25082011 zmxmm_munme '!R1C1:R980C10").CreatePivotTable _
TableDestination:="", TableName:="PivotTable4", DefaultVersion:= _
xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("PivotTable4").AddFields RowFields:="Material"
ActiveSheet.PivotTables("PivotTable4").PivotFields(" Libre U.en UMA1") _
.Orientation = xlDataField
Donde dice Inventario25082011 zmxmm_munme, ese es el nombre del archivo que va cambiando y no me acepta usar la variable "nombre"
Espero puedas ayudarme, y agradezco de nueva cuenta tu apoyo.
Saludos,
Santiago
Intenta de esta forma y si puedes me envías la forma en como has intentado asignarle la variable.
Sub Inventario()
' Ventana de dialogo para seleccionar archivo
On Error GoTo ERROR
Dim intRespuesta As Integer
intRespuesta = MsgBox("¿Seguro que desea insertar los datos del Inventario?",
vbQuestion + vbYesNo, "Advertencia") 'messagebox
If intRespuesta = 6 Then
Application.Dialogs(xlDialogOpen).Show '
NOMBRE = ActiveWorkbook.Name 'Se activa el libro seleccionado y lo guardo en una variable
Application.ScreenUpdating = False 'Evitar los movimientos de pantalla
'Se genera tabla dinámica
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
NOMBRE.Value).CreatePivotTable _
TableDestination:="", TableName:="PivotTable4", DefaultVersion:= _
xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("PivotTable4").AddFields RowFields:="Material"
ActiveSheet.PivotTables("PivotTable4").PivotFields(" Libre U.en UMA1") _
.Orientation = xlDataField
End If
ERROR:
End Sub
Ya lo intente utilizando nombre.value, no funcionó.
Igualmente intente de esta manera guardando el nombre de la hoja activa en una variable llamada hoja
Application.Dialogs(xlDialogOpen).Show '
nombre = ActiveWorkbook.Name 'Se activa el libro seleccionado
hoja = ActiveSheet.Name
Application.ScreenUpdating = False 'Evitar los movimientos de pantalla
Call Inicializar 'Inicializar los valores en blanco
'Se genera tabla dinámica
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"hoja!").CreatePivotTable _
TableDestination:="", TableName:="PivotTable4", DefaultVersion:= _
xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("PivotTable4").AddFields RowFields:="Material"
ActiveSheet.PivotTables("PivotTable4").PivotFields(" Libre U.en UMA1") _
.Orientation = xlDataField
Sigue sin funcionar, solo funciona cuando uso el nombre original de la hoja
Saludos,
Santiago
Creo que el problema esta en que la variable NOMBRE que tienes solo contiene el nombre del libro activo pero no la referencia de hoja y rango al cual debería ir la tabla, habría que buscar la forma de reconocer si bien automáticamente o porque ya este definido que todos los libros contendrán los mismo nombres de hojas; de introducir en la variable la referencia completa.
Vere que puedo hacer te escribo cuando tenga algo con que ayudarte.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Tablas dinámicas con dos criterios

He leído muchas de tus respuestas (una parecida a la cuestión que te formulo) y poco a poco me voy iniciando en el macromundo. Me encuentro con que precisaría construir una macro que generase una tabla dinámica de acuerdo con los siguientes...
1 respuesta

¿Cómo unir dos macros de un único módulo?

Tengo dos macros en un único modulo que hacen dos tablas dinámicas en dos hojas distintas. Lo que busco es unir las dos macros para que las dos tablas se realicen seguidas sin tener que ejecutar la segunda macro.
1 respuesta

Generar Tablas Dinámicas con Macros

Como estas yo de nuevo con otra pregunta... Dentro de la Tremenda macro que estoy haciendo del cual tu participas ayudándome, tengo que generar una tabla dinámica, resulta que durante el día genero varias tablas dinámicas y la macro esta editada de...
1 respuesta

Tabla dinámica en macro

Tengo inconvenientes en el funcionamiento de una macro que utilizo y que paso a comentarte Todos los meses corro una macro que toma datos de una planilla excel y los convierte en una tabla dinámica. La cantidad de registros se incrementa mes a mes y...
1 respuesta

Macro para Tabla Dinámica

Favor necesito de su ayuda para crear una macro que genere una tabla dinámica, Pero la información base siempre se esta modificado. Me explico solo se modifican las cantidades de lineas no de tipo, asi que le muestro un ejemplo: Segmento - folio -...
1 respuesta

Tabla dimamica ejecutada desde una macro

La pregunta eslasiguiete, como hacer que se ejecute una tabla dinamicadesdeunamacroque cree, ladesarrollocorrectamente pero me aparece un error y no mesale la tabla ya intente de todoperono he podido. Este es elerror que me genera ' ' Macro1 Macro '...
1 respuesta

Agrupar y totalizar datos en excel

Necesito agrupar y sumar los datos de una tabla y copiarlos a otra en lo posible en otra hoja dentro del mismo libro. Ejemplo tengo la tabla 1: Mes importe enero $100 enero $50 febrero $25 marzo $100 enero $100 febrero $25 abril $200 mayo $150 mayo...
1 respuesta

Como hacer una macro que cree una tabla dinámica

Tengo un problema con una macro que grabe que me crea una tabla dinámica, me daba error 5, entre al foro donde indicaban que era fallas de microsoft, que debía modificar un poco el código, cosa que hice, pero ahora me da un error diferente, 1004...
1 respuesta

Error en Macro que crea una Tabla Dinámica

Alguien me podría ayudar con lo siguiente, hice una macro que crea una tabla dinámica el problema es que me esta marcando error 1004 en tiempo de ejecución, referencia no valida ya revise en la página de Microsoft y seguí las instrucciones que ahí...
1 respuesta

No se puede obtener la propiedad pivotetables

Elsa soy nuevo en todoExpertos y decidí registrarme al ver que me puedes ayudar. El tema es el siguiente tengo una macro que importa un .txt primero y luego con los datos obtenidos genera una tabla dinámica, lo primero que hago es grabarla y luego la...
1 respuesta