'Metodo GetOpenfilename De EXCEL
'------------------------------
'Este metodo nos permite desplegar el cuadro de dialogo abrir (del menu archivo) pero no abre el archivo indicado.
'*El metodo nos devuelve uan cadena con la ruta y nombre del archivo seleccionado.
'Sintaxis
'--------
'Object.GetOpenFilename(FileFilter,FilterIndex,Title,ButtonText,Multiselect)
'FileFilter> Opcional.Una serie especifica con criterios de filtro de archivo.
'FilterIndex> Opcional.Los numeros del indice por defecto bajo criterios de filtro de archivo.
'Titulo > Opcional .El titulo del cuadro de dialogo.si se omite,el titulo.. mostrara "Abrir"
'ButtonText>Solo para Macintosh
'Multiselect >Opcional . Si es verdadero,se pueden seleccionar varios nombres de archivos
'El argumento Filtro de archivo determinalo que muestra el cuadro de dialogo de los archivos del tipo lista desplegable.
'*Consiste en pares de series de filtro de archivo seguido del comodin especificado.
'*Si se omite sera por defecto : "All File(*.*),*.*"
'Ejemplo
'-------
'El argumento Filterindex especificara el tipo de archivo que aparece por defecto,
'el titulo del argumento es un texto que se despliega en la barra del titulo.
'
'*si el argumento de multiselect es verdadero,el usuario puede seleccionar varios archivos(y se devolveran en una serie)
Sub abreArchivo()
Dim filtrox As String
Dim FilterIndex As Integer
Dim titulo As String
Dim nombreArchivo As Variant
'Configurar Filtro para la lista de archivos
filtrox = "Archivos de texto (*.txt),*.txt," & _
"Word(*.doc),*.doc, " & _
"Excel (*.xls), *.xls, " & _
"Power Point(*.ppt), *.ppt, " & _
"Todos los archivos (*.*),*.* "
'Mostrar por defecto todos los archivos
FiltroIndex = 3
titulo = "Ejemplo"
'Obtener Nombre del archivo
nombreArchivo = Application.GetOpenFilename(FileFilter:=filtrox, FilterIndex:=FiltroIndex, Title:=titulo)
End Sub
