El metodo GetSaveAsFileName de Excel
* Despliega el cuadro de dialogo guardar como y permite la seleccion de un archivo
* Devuelve un nombre de archivo y ruta ,pero no inicia ninguna acción .
Sintaxis
Nombre inicial de archivo :Opcional(especifica el nombre del archivo)
Filtro de archivo :Opcional. una cadena especificando el criterio de filtro archivo
Filterindex Opcional .Los numeros del indice por defecto
Titulo .Opcional .El titulo del cuadro de dialogo
ButtonText .Solo para macintosh
Ejemplo de empleo del metodo GetSaveAsFileName de Excel
Sub GetSaveasFilename()
Dim fileSaveName As String
fileSaveName = Application.GetSaveasFilename(fileFilter:="Excel Files (*.xls), *.xls")
If fileSaveName <> False Then
ActiveWorkbook.SaveAs (fileSaveName)
MsgBox "El libro se guardo en :" & fileSaveName
End If
End Sub