Guardar como

13/07/2006 - 17:50 por Fran | Informe spam
Tengo esta macro que pongo abajo para guardar como, pero cuando la
ejecuto se me abre la ventana de guardar como pero no me deja escoger
tipo de fichero (Yo necesitaría que fuese .xls) por ese motivo creo
que no me lo guarda. Alguien me podría dar una solución.

Sub GuardarComo()
Application.GetSaveAsFilename
End Sub
 

Leer las respuestas

#1 KL
13/07/2006 - 21:19 | Informe spam
Hola Fran,

... Application.GetSaveAsFilename



1. >... no me deja escoger
tipo de fichero (Yo necesitaría que fuese .xls)



para esto podrias añadir el filtro como argumento de la funcion
GetSaveAsFileName

2. > ... no me lo guarda> Sub GuardarComo()

No te lo guarda porque la ventana "Guardar Como" llamada mediante la funcion
GetSaveAsFileName no tiene el comando SaveAs asociado al boton Guardar. Esta
ventana solo recoge el nombre y la ruta a usar, pero es tu macro que tiene
que guardar el archivo. Prueba algo asi:

Sub test()
Archivo = Application.GetSaveAsFilename( _
fileFilter:="Excel Files (*.xls), *.xls")
If Archivo <> False Then ThisWorkbook.SaveAs Archivo
End Sub

Saludos,
KL

Preguntas similares