Abrir guadro de dialogo Guardar Como por código

El método Application.GetSaveAsFilename presenta el cuadro de diálogo "Guardar como", mientras que el método Application.GetOpenFilename presenta el cuadro de diálogo "Abrir".

Te aconsejo que eches un vistazo a la ayuda, porque ambos métodos tienen algunos parámetros.
Un saludo.


Fernando Arroyo
MS MVP - Excel


"Juan Carlos Pérez" <informacionarrobacampinglavina.com> escribió en el mensaje news:eEgPY6G%

¿Que instrucción hay que introducir en VBA para abrir el cuadro de diálogo
"Guardar Como" para que el usuario elija la carpeta donde guardar el
archivo?
El motivo es que tengo una aplicación realizada a modo de plantilla, pero
con las barras de herramientas ocultas, y por tanto deseo hacer una macro
para guardar el archivo en otra ubicación y con otro nombre pre-determinado.

Agradeciendo de antemano vuestra ayuda

Juan Carlos Perez
Asturias-España

Gracias, Fernando, por tu pronta ayuda. el problema es que no me funciona
correctamente la ayuda de excel. Voy a tener que desinstalarlo y volvera
instalarlo, a ver si así lo soluciono.

Saludos

Juan Carlos Perez
Asturias-España

"Fernando Arroyo" escribió en el mensaje
news:ecaT6$G#
El método Application.GetSaveAsFilename presenta el cuadro de diálogo
"Guardar como", mientras que el método Application.GetOpenFilename presenta
el cuadro de diálogo "Abrir".

Te aconsejo que eches un vistazo a la ayuda, porque ambos métodos tienen
algunos parámetros.
Un saludo.


Fernando Arroyo
MS MVP - Excel


"Juan Carlos Pérez" <informacionarrobacampinglavina.com> escribió en el
mensaje news:eEgPY6G%

¿Que instrucción hay que introducir en VBA para abrir el cuadro de diálogo
"Guardar Como" para que el usuario elija la carpeta donde guardar el
archivo?
El motivo es que tengo una aplicación realizada a modo de plantilla, pero
con las barras de herramientas ocultas, y por tanto deseo hacer una macro
para guardar el archivo en otra ubicación y con otro nombre

pre-determinado.

Agradeciendo de antemano vuestra ayuda

Juan Carlos Perez
Asturias-España

"Juan Carlos Pérez" <informacionarrobacampinglavina.com> escribió en el mensaje news:eoTH0gI%

Gracias, Fernando, por tu pronta ayuda. el problema es que no me funciona
correctamente la ayuda de excel. Voy a tener que desinstalarlo y volvera
instalarlo, a ver si así lo soluciono.

Saludos

Juan Carlos Perez
Asturias-España

Pego a continuación la ayuda para los dos métodos, por si siguieras teniendo problemas:
Un saludo


Fernando



Método GetSaveAsFilename

Presenta el cuadro de diálogo estándar Guardar como y obtiene el nombre de archivo seleccionado por el usuario sin guardar realmente ningún archivo.

expresión.GetSaveAsFilename(InitialFilename, FileFilter, FilterIndex, Title, ButtonText)
expresión requerida. Expresión que devuelve un objeto Application.
InitialFilename Variant opcional. Especifica el nombre de archivo sugerido. Si este argumento se omite, Microsoft Excel usará el nombre del libro activo.
FileFilter Variant opcional. Una cadena que especifica los criterios de filtrado de archivos.
Esta cadena consta de pares de cadenas de filtros de archivos seguidas de la especificación de filtro de archivo comodín de MS-DOS, separados cada par y cada parte por comas. Se enumera cada par individual en el cuadro de lista desplegable Tipo de archivo. Por ejemplo, la siguiente cadena especifica dos filtros de archivos, texto y complementos: "Archivos de texto (*.txt), *.txt, Archivos de complementos (*.xla), *.xla".
Si desea usar varias expresiones comodín de MS-DOS para un solo tipo de filtro de archivo, separe dichas expresiones con signos de punto y coma; por ejemplo, "Archivos de Visual Basic (*.bas; *.txt),*.bas;*.txt".
Si se omite, este parámetro tomará el valor predeterminado de "Todos los archivos (*.*),*.".
FilterIndex Variant opcional. Especifica el número de índice de los criterios predeterminados de filtrado de archivos, que puede ser desde 1 hasta el número de filtros especificado en FileFilter. Si este argumento se omite o es mayor que el número de filtros presentes, se usará el primer filtro de archivo.
Title Variant opcional. Especifica el título del cuadro de diálogo. Si este argumento se omite, se usará el título predeterminado.
ButtonText Variant opcional. Sólo Macintosh.

Comentarios
Este método devuelve el nombre del archivo seleccionado o el nombre introducido por el usuario. El nombre que se devuelve puede incluir una especificación de ruta de acceso. Devuelve False si el usuario cancela el cuadro de diálogo.
Este método puede cambiar la unidad de disco o carpeta activas.

Ejemplo
En este ejemplo se muestra el cuadro de diálogo Guardar como, con el filtro de archivos definido como archivos de texto. Si el usuario elige un nombre de archivo, el ejemplo lo mostrará en un cuadro de mensaje.
fileSaveName = Application.GetSaveAsFilename( _
fileFilter:="Text Files (*.txt), *.txt")
If fileSaveName <> False Then
MsgBox "Save as " & fileSaveName
End If




Método GetOpenFilename

Presenta el cuadro de diálogo estándar Abrir y obtiene un nombre de archivo que selecciona el usuario sin que en realidad se abra ningún archivo.

expresión.GetOpenFilename(FileFilter, FilterIndex, Title, ButtonText, MultiSelect)
expresión requerida. Expresión que devuelve un objeto Application.

FileFilter Variant opcional. Una cadena que especifica los criterios de filtrado de archivos.
Esta cadena consta de pares de cadenas de filtros de archivos seguidas de la especificación de filtro de archivo comodín de MS-DOS, separados cada par y cada parte por comas. Se enumera cada par individual en el cuadro de lista desplegable Tipo de archivo. Por ejemplo, la siguiente cadena especifica dos filtros de archivos, texto y complementos: "Archivos de texto (*.txt),*.txt,Archivos de complementos (*.xla),*.xla"
Si desea usar varias expresiones comodín de MS-DOS para un solo tipo de filtro de archivo, separe dichas expresiones con signos de punto y coma; por ejemplo, "Archivos de Visual Basic (*.bas; *.txt),*.bas;*.txt".
Si se omite, este parámetro tomará el valor predeterminado de "Todos los archivos (*.*),*.".
FilterIndex Variant opcional. Especifica los números de índice del criterio predeterminado de filtrado de archivos, que puede ser desde 1 hasta el número de filtros especificado en FileFilter. Si este argumento se omite o es mayor que el número de filtros presentes, se usará el primer filtro de archivo.
Title Variant opcional. Especifica el título del cuadro de diálogo. Si este argumento se omite, el título será "Abrir".
ButtonText Variant opcional. Sólo Macintosh.
MultiSelect Variant opcional. True para que se permita la selección de varios nombres de archivo. False para que sólo se permita seleccionar un nombre de archivo. El valor predeterminado es False.

Comentarios
Este método devuelve el nombre del archivo seleccionado o el nombre introducido por el usuario. El nombre que se devuelve puede incluir una especificación de ruta de acceso. Si MultiSelect es True, el valor que se devuelve será una matriz de los nombres de archivo seleccionados (aunque sólo esté seleccionado uno). Devuelve False si el usuario cancela el cuadro de diálogo.
Este método puede cambiar la unidad de disco o carpeta activas.

Ejemplo
En este ejemplo se muestra el cuadro de diálogo Abrir, con el filtro de archivos definido como archivos de texto. Si el usuario elige un nombre de archivo, el código lo mostrará en un cuadro de mensaje.
fileToOpen = Application _
.GetOpenFilename("Text Files (*.txt), *.txt")
If fileToOpen <> False Then
MsgBox "Open " & fileToOpen
End If