Application.GetSaveAsFilename

hola, Danilo !

... como utilizo Application.GetSaveAsFilename para guardar... personalizada... XLS, TXT, PRN

el ejemplo que te expongo al final...
-> presenta el dialogo solicitado, mostrando las tres opciones para tipo de archivo...
-> 'sugiere' como tipo [o formato por omision el numero 2] y... etc. etc. etc. ;)
[solo 'decide' cual seria el formato 'apropiado' para la extension TXT]
si cualquier duda... comentas?
saludos,
hector.
en un modulo de codigo 'normal' ==Sub Guardando()
Dim NuevoNombre, Tipo As String, Formato As Variant
NuevoNombre = Application.GetSaveAsFilename( _
FileFilter:= _
"Libros de Microsoft Excel (*.xls), *.xls, " & _
"Archivos de texto (*.txt), *.txt, " & _
"Archivos de salida-impresora (*.prn), *.prn", _
FilterIndex:=2)
If NuevoNombre = False Then MsgBox "Operación cancelada": Exit Sub
Tipo = Right(NuevoNombre, 4)
NuevoNombre = Left(NuevoNombre, Len(NuevoNombre) - 4)
Select Case Tipo
Case ".xls": Formato = xlWorkbookNormal
Case ".txt": Formato = xlTextWindows 'xlTextMSDOS 'xlCurrentPlatformText
Case ".prn": Formato = xlTextPrinter
End Select
If MsgBox("El proceso guardará el archivo como:" & vbCr & _
NuevoNombre & vbCr & "Usando el formato de archivos: " & UCase(Tipo), _
vbOKCancel, "Esperando confirmación...") = vbCancel Then Exit Sub
ActiveWorkbook.SaveAs _
FileName:=NuevoNombre, _
FileFormat:=Formato
End Sub