Formato al exportar una Tabla Dinámica OLAP

hola, !

Tengo una tabla dinamica creada con OLAP, por medio de una macro estoy exportandola a un archivo nuevo
pero en ese momento se pierde el formato que tena, aun a mano le coloco el formato pero aun no queda como antes.
como puedo hacer para que al exportarla se vea con el mismo formato?

previamente a tus acciones (y a reserva de que el procedimiento que siga la macro no interfiera)...
comprueba/corrige en esa TD (opciones de la tabla) las siguientes opciones:
- marcada para mantener el formato
- DESmarcada para aplicar autoformato

saludos,
hector.

Hector muchas gracias por la respuesta, el código que utilizo en la macro
para realizar esta actividad es el siguietne:

If miVista = "Dicsa" Then
Workbooks(3).Sheets("Datos").Activate
Range("A9:M28").Select
ActiveSheet.ListObjects.Add(xlSrcRange, Range("A9:M28"), ,
xlNo).Name = _
"Tabla1"
ActiveSheet.ListObjects("Tabla1").TableStyle = "TableStyleMedium2"
ActiveSheet.ListObjects("Tabla1").ShowHeaders = False
Range("A10:M10").Select
Selection.Font.Bold = True

Gracias por tu ayuda,


John Jairo Osorio

"Héctor Miguel" wrote:

hola, !

> Tengo una tabla dinamica creada con OLAP, por medio de una macro estoy exportandola a un archivo nuevo
> pero en ese momento se pierde el formato que tena, aun a mano le coloco el formato pero aun no queda como antes.
> como puedo hacer para que al exportarla se vea con el mismo formato?

previamente a tus acciones (y a reserva de que el procedimiento que siga la macro no interfiera)...
comprueba/corrige en esa TD (opciones de la tabla) las siguientes opciones:
- marcada para mantener el formato
- DESmarcada para aplicar autoformato

saludos,
hector.


.

hola, John !

el codigo que expones NO es para "exportar" una TD de un lugar a otro (hoja/libro/...)
es para CREAR un objeto "lista" (disponible para la version xl-2003), al cual (en el codigo)...
LE APLICAS un formato que no tiene por que ser coincidente con el formato de la TD "original"

cual es la intencion de crear la lista con base en una TD (???)

saludos,
hector.

__ OP __

... el codigo que utilizo en la macro para realizar esta actividad es el siguietne:

If miVista = "Dicsa" Then
Workbooks(3).Sheets("Datos").Activate
Range("A9:M28").Select
ActiveSheet.ListObjects.Add(xlSrcRange, Range("A9:M28"), , xlNo).Name = "Tabla1"
ActiveSheet.ListObjects("Tabla1").TableStyle = "TableStyleMedium2"
ActiveSheet.ListObjects("Tabla1").ShowHeaders = False
Range("A10:M10").Select
Selection.Font.Bold = True

__ previos __

Tengo una tabla dinamica creada con OLAP, por medio de una macro estoy exportandola a un archivo nuevo
pero en ese momento se pierde el formato que tena, aun a mano le coloco el formato pero aun no queda como antes.
como puedo hacer para que al exportarla se vea con el mismo formato?

previamente a tus acciones (y a reserva de que el procedimiento que siga la macro no interfiera)...
comprueba/corrige en esa TD (opciones de la tabla) las siguientes opciones:
- marcada para mantener el formato
- DESmarcada para aplicar autoformato