Forums Últimos mensajes - Powered by IBM
 

Application.GetSaveAsFilename

12/04/2005 - 07:55 por DANILO ARANGO | Informe spam
HOLA A TODOS!!!
ALGUIEN ME PUEDE DECIR COMO UTILIZO, Application.GetSaveAsFilename PARA
GUARDAR UN ARCHIVO DE MANERA MAS PERSONALIZADA, QUE SE GUARDE CON LAS
EXTENCIONES XLS, TXT, PRN
 

Leer las respuestas

#1 Héctor Miguel
13/04/2005 - 04:39 | Informe spam
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

Preguntas similares