Compactar un archivo excel

Intenta ejecutando esta macro

sub LimpiaHojas()
dim w as worksheet
for each w in activeworkbook.worksheets
debug.print w.usedrange.address
next
end sub


"jravles" escribió en el mensaje
news:

Hola grupo!
Tengo un archivo excel que pesa mas de 15 Mb. hay alguan opcion
para poder compactar este archivo i que optimice su contenido?

Gracias

Hola Manuel:

Sino te quita mucho tiempo, me podrias explicar que hace el codigo en si, es
decir que es lo que hace respecto al libro de excel

Gracias de antemano

"Manuel Romero" escribió:

Intenta ejecutando esta macro

sub LimpiaHojas()
dim w as worksheet
for each w in activeworkbook.worksheets
debug.print w.usedrange.address
next
end sub


"jravles" escribió en el mensaje
news:
> Hola grupo!
> Tengo un archivo excel que pesa mas de 15 Mb. hay alguan opcion
> para poder compactar este archivo i que optimice su contenido?
>
> Gracias
>

UsedRange es una propiedad que indica las celdas que estan usadas en la hoja
de calculo, es similar a cuando presionas Ctrl+End en la hoja y te lleva a
la esquina inferior derecha donde hay datos. Cuando se hacen muchas
operaciones en la hoja, insertar / quitar filas / columnas el rango usado
queda mas grande que el real y a veces, es causa de que el libro pese mucho.
Puedes comprobarlo presionando Ctrl+End en cada hoja y verificalo.

La macro usa un ciclo for para iterar sobre todas las hojas de calculo del
libro activo y solamente imprime en la ventana de depuracion los rangos de
cada hoja para actualizarlos. Puedes verificar cada rango presionando
Ctrl+End. Le agregue que puedas ver el nombre de cada hoja. Si no puedes ver
la ventana Inmediato en VBA, presiona Ctrl+G para que te la muestre o en el
menu Ver del VBA.

sub LimpiaHojas()
dim w as worksheet
for each w in activeworkbook.worksheets
debug.print w.name & ":" & w.usedrange.address
next
end sub

Si no te funciona, intenta borrando las filas o columnas que te sobran y
ejecutala de nuevo. Una vez logre bajar un archivo de aprox 5 MB a poco mas
de 1MB con este procedimiento.

"Oscar" escribió en el mensaje
news:

Hola Manuel:

Sino te quita mucho tiempo, me podrias explicar que hace el codigo en si,
es
decir que es lo que hace respecto al libro de excel

Gracias de antemano

"Manuel Romero" escribió:

Intenta ejecutando esta macro

sub LimpiaHojas()
dim w as worksheet
for each w in activeworkbook.worksheets
debug.print w.usedrange.address
next
end sub


"jravles" escribió en el mensaje
news:
> Hola grupo!
> Tengo un archivo excel que pesa mas de 15 Mb. hay alguan opcion
> para poder compactar este archivo i que optimice su contenido?
>
> Gracias
>

Gracias Manuel por la información y por el tip

Que tengas buen dia :)


"Manuel Romero" escribió:

UsedRange es una propiedad que indica las celdas que estan usadas en la hoja
de calculo, es similar a cuando presionas Ctrl+End en la hoja y te lleva a
la esquina inferior derecha donde hay datos. Cuando se hacen muchas
operaciones en la hoja, insertar / quitar filas / columnas el rango usado
queda mas grande que el real y a veces, es causa de que el libro pese mucho.
Puedes comprobarlo presionando Ctrl+End en cada hoja y verificalo.

La macro usa un ciclo for para iterar sobre todas las hojas de calculo del
libro activo y solamente imprime en la ventana de depuracion los rangos de
cada hoja para actualizarlos. Puedes verificar cada rango presionando
Ctrl+End. Le agregue que puedas ver el nombre de cada hoja. Si no puedes ver
la ventana Inmediato en VBA, presiona Ctrl+G para que te la muestre o en el
menu Ver del VBA.

sub LimpiaHojas()
dim w as worksheet
for each w in activeworkbook.worksheets
debug.print w.name & ":" & w.usedrange.address
next
end sub

Si no te funciona, intenta borrando las filas o columnas que te sobran y
ejecutala de nuevo. Una vez logre bajar un archivo de aprox 5 MB a poco mas
de 1MB con este procedimiento.

"Oscar" escribió en el mensaje
news:
> Hola Manuel:
>
> Sino te quita mucho tiempo, me podrias explicar que hace el codigo en si,
> es
> decir que es lo que hace respecto al libro de excel
>
> Gracias de antemano
>
> "Manuel Romero" escribió:
>
>> Intenta ejecutando esta macro
>>
>> sub LimpiaHojas()
>> dim w as worksheet
>> for each w in activeworkbook.worksheets
>> debug.print w.usedrange.address
>> next
>> end sub
>>
>>
>> "jravles" escribió en el mensaje
>> news:
>> > Hola grupo!
>> > Tengo un archivo excel que pesa mas de 15 Mb. hay alguan opcion
>> > para poder compactar este archivo i que optimice su contenido?
>> >
>> > Gracias
>> >
>>
>>
>>