Cómo utilizar el método GetOpenFilename en Excel 2016 VBA

El método GetOpenFilename toma los siguientes argumentos opcionales.

Un ejemplo de GetOpenFilename

El argumento fileFilter determina lo que aparece en la lista desplegable Archivos de tipo del cuadro de diálogo. Este argumento consta de pares de cadenas de filtro de archivo seguidas de la especificación de filtro de archivo comodín, con comas que separan cada parte y par. Si se omite, este argumento tiene como valor predeterminado lo siguiente:

Todos los archivos (*.*), *.*

Tenga en cuenta que esta cadena consta de dos partes, separadas por una coma:

Todos los archivos (*.*)

y

*. *

La primera parte de esta cadena es el texto que se muestra en la lista desplegable Archivos de tipo. La segunda parte determina qué archivos muestra el cuadro de diálogo. Por ejemplo, *. * Significa todos los archivos.

El código del siguiente ejemplo abre un cuadro de diálogo que solicita al usuario un nombre de archivo. El procedimiento define cinco filtros de archivo. Observe que la secuencia de continuación de línea de VBA se usa para configurar la variable de filtro; hacerlo ayuda a simplificar este argumento bastante complicado.

Sub GetImportFileName ()
  Dim Finfo como cadena
  Atenuar FilterIndex tan largo
  Título atenuado como cadena
  Dim FileName como variante
'Configurar lista de filtros de archivos
  FInfo = "Archivos de texto (* .txt), *. Txt," & _
      "Archivos de Lotus (* .prn), *. Prn," & _
      "Archivos separados por comas (* .csv), *. Csv," & _
      “Archivos ASCII (* .asc), *. Asc,” & _
      "Todos los archivos (*.*),*.*"
'Mostrar *. * Por defecto
  FilterIndex = 5
'Establecer el título del cuadro de diálogo
  Título = "Seleccione un archivo para importar"
'Obtener el nombre del archivo
  FileName = Application.GetOpenFilename (FInfo, _
    FilterIndex, Título)
'Manejar información de devolución desde el cuadro de diálogo
  Si FileName = False, entonces
    MsgBox "No se seleccionó ningún archivo".
  Demás
    MsgBox "Seleccionaste" & FileName
  Terminara si
End Sub

Workbookss.Open FileName