Cuadros de dialogo Segunda Parte

Enlace de la primera parte.

Método GetOpenFilename:

Método GetOpenFilename es un objeto de Application, que obtiene un nombre de archivo correcto a través de un cuadro de dialogo. Este método muestra el habitual cuadro de dialogo de Abrir, pero no abre realmente el archivo especificado, el método devuelve la cadena que contiene la ruta y el nombre del archivo seleccionado por nosotros.

La sintaxis para este método es la siguiente: (todo es opcional)

GetOpenFilename ( FileFilter , FilterIndex , Título , ButtonText , MultiSelect )

En este ejemplo se muestra el cuadro de diálogo con el filtro de archivos definido como archivos de Word.

Sub SelectArchivo()

Dim RutaArchivo As String

    MsgBox ("Seleccione el archivo de Word que desee.")

    RutaArchivo = Application.GetOpenFilename _

    ("Documento de texto  (*.docx), *.docx")

On Error GoTo Control:

    MsgBox ("El archivo seleccionado es:  " & RutaArchivo)

Control:

End Sub

Método GetSaveAsFilename:

El método GetSaveAsFilename es muy similar al GetOpenFilename muestra el cuadro de diálogo estándar de Guardar como y obtiene el nombre de archivo seleccionado por nosotros  sin guardar realmente ningún archivo.

La sintaxis para este método es la siguiente: (todo es opcional)

GetSaveAsFilename(InitialFilename, FileFilter, FilterIndex, Title, ButtonText)

Como diferencia al anterior metodo la opción InitialFilename nos sugiere el nombre de archivo, si este argumento se omite, Microsoft Excel usará el nombre del libro activo.

Sub SaveArchivo()

Dim RutaArchivo As String

    RutaArchivo = Application.GetSaveAsFilename _

    (FileFilter:="Documento de Excel  (*.xlm), *.xlm")

On Error GoTo Control:

    ActiveWorkbook.SaveAs (RutaArchivo)

    MsgBox "El archivo :  " & RutaArchivo & _

    vbCrLf & " se ha guardado correctamente.", vbInformation

Control:

End Sub