Excel - Macro para guardar varias veces

 
Vista:
sin imagen de perfil

Macro para guardar varias veces

Publicado por Miguel (7 intervenciones) el 07/01/2014 11:45:23
Hola,

estoy intentando hacer una macro en la que he de ocultar unos parámetros de una tabla dinámica. La cuestión es que he de ocultar un campo y guardar con un determinado nombre el archivo completo. Después, con ese mismo excel mostrar lo que había ocultado antes y ocultar otro campo y guardar con otro nombre.

Al final debería tener 9 archivos cada uno con un campo ocultado. He probado grabando con guardar cómo (Workbook.SaveAs Method ) pero sólo guarda el primero. Cómo podría hacerlo para ejecutar el código VBA de golpe?

Saludos.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana
Val: 4.908
Oro
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Macro para guardar varias veces

Publicado por Antoni Masana (2477 intervenciones) el 08/01/2014 11:52:27
Esta macro te permite guardar como de Forma más simple que el propio Guardar como


1
2
3
4
5
6
7
8
9
Sub Macro1()
    c_Nombre = ActiveSheet.Parent.FullName
 
    c_Nombre = InputBox("Nombre del documento:", "Guardar como...", c_Nombre)
 
    ActiveWorkbook.SaveAs Filename:=c_Nombre, _
                          FileFormat:=xlOpenXMLWorkbookMacroEnabled, _
                          CreateBackup:=False
End Sub


Otras opciones para que no te pregunte

- en crear un nombre aleatorio
- Crear un nombre con un contador.

Es decir

1
2
3
4
5
6
7
8
1ª vez - Crea el nombre Copia_000.xlm - No existe - Grabar
 
2ª vez - Crea el nombre Copia_000.xlm - Si existe - Salta al siguiente
         Crea el nombre Copia_001.xml - No existe - Grabar
 
3ª vez - Crea el nombre Copia_000.xlm - Si existe - Salta al siguiente
         Crea el nombre Copia_001.xlm - Si existe - Salta al siguiente
         Crea el nombre Copia_002.xml - No existe - Grabar
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar