Forums Últimos mensajes - Powered by IBM
 

Macro para copiar una hoja excel a 2 subcarpetas.

26/02/2005 - 15:02 por JBS | Informe spam
Hola. Buenas tardes.

Necesitaria crear una macro en excel para que al ejecutarla copiase la hoja
actual en otras 2 subcarpetas con nombres diferentes (tendria que preguntar
ambos 2 nombres y permitir reemplazar).

gracias por leerme.


Jose
 

Leer las respuestas

#1 Fernando Arroyo
26/02/2005 - 19:27 | Informe spam
"JBS" escribió en el mensaje news:
Hola. Buenas tardes.

Necesitaria crear una macro en excel para que al ejecutarla copiase la hoja
actual en otras 2 subcarpetas con nombres diferentes (tendria que preguntar
ambos 2 nombres y permitir reemplazar).

gracias por leerme.


Jose




Mira si te sirve esto:

Sub prueba()
ThisWorkbook.SaveAs Application.GetSaveAsFilename("C:\Carpeta1", "Libros de Excel (*.xls), *.xls")
ThisWorkbook.SaveAs Application.GetSaveAsFilename("C:\Carpeta2", "Libros de Excel (*.xls), *.xls")
End Sub

Si no quieres que aparezca la advertencia de seguridad cuando se va a "machacar" un archivo existente, pon la instrucción

Application.DisplayAlerts = False

como primera instrucción del Sub, y

Application.DisplayAlerts = True

como última.


En el código, tendrás que sustituir Carpeta1 y Carpeta2 por los nombres reales de los directorios.
Un saludo.


Fernando Arroyo
MS MVP - Excel

Preguntas similares