msoFileDialogSaveAs (Nuevamente)

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????

en el VBA de que aplicación lo estás haciendo correr? Chequea este link:
http://www.microsoft.com/spanish/ms...art156.asp

Saludos,
Francisco.

"Daniel Pozzi" escribió en el mensaje
news:uyZBx5$

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

Hola, es lo q sospechaba..
Lo necesito ya q estoy armando un programita q lee un archivo .mp, q es
basicamente un archivo de textos, procesa información y la guarda como .mp o
.txt. Los .mp son usados para dibujar mapas para GPS Garmin.
Gracias!!

Daniel



"Héctor Miguel" escribió en el mensaje
news:

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????