msoFileDialogSaveAs (Nuevamente)

04/08/2006 - 21:44 por Daniel Pozzi | Informe spam
Mi codigo es el siguiente:

With Application.FileDialog(msoFileDialogSaveAs)
.Show
DestFile = .SelectedItems(1)

End With

Esto funciona correctamente.
Cuando le agrego este filtro me da error:

With Application.FileDialog(msoFileDialogSaveAs)
.Filters.Add "Archivos mp", "*.mp", 1
.Show

DestFile = .SelectedItems(1)

End With

Es propio de SaveAs? No puedo filtrar en SaveAs? En Open funciona
correctamente... q es lo q tengo mal????

Gracias y Saludos

Daniel
 

Leer las respuestas

#1 Héctor Miguel
04/08/2006 - 22:40 | Informe spam
hola, Daniel 1

1) de la coleccion 'FileDialogs', cuando se trata [precisamente] de un objeto 'msoFileDialogSaveAs'
-> no se puede combinar la propiedad 'Filter' con ninguno de los metodos 'Clear', 'Add', o 'Delete' :-((
[puedes consutarlo en la ayuda en linea de vba]

2) comentario al margen: los metodos como Application.FileDialog, SOLO estan disponibles a partir de office/excel 2002
[por si fuera necesario o tienes programado que tu aplicacion se pueda usar en versiones anterioes] -?-

3) serviria si expones cual es la necesidad de 'hacer un Guardar como...' usando filtros como *.mp* -???-
sobre todo, si expones la consulta en el foro de excel, cuyas extensiones 'naturales' son del orden *.xl* ;)

4) si -solo- te interesa conocer cual es el nombre que el usuario selecciona de un dialogo 'controlado'...
prueba con el metodo 'GetSaveAsFileName' [+/- como sigue]:

DestFile = Application.GetSaveAsFilename _
(InitialFileName:="Nombre sugerido", _
FileFilter:="Archivos mp (*.mp), *.mp")

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

__ la consulta original __
Mi codigo es el siguiente:
With Application.FileDialog(msoFileDialogSaveAs)
.Show
DestFile = .SelectedItems(1)
End With
Esto funciona correctamente.
Cuando le agrego este filtro me da error:
With Application.FileDialog(msoFileDialogSaveAs)
.Filters.Add "Archivos mp", "*.mp", 1
.Show
DestFile = .SelectedItems(1)
End With
Es propio de SaveAs? No puedo filtrar en SaveAs? En Open funciona correctamente... q es lo q tengo mal????

Preguntas similares