Como usar o método GetOpenFilename no Excel 2016 VBA

O método GetOpenFilename usa os argumentos opcionais abaixo.

Um exemplo GetOpenFilename

O argumento fileFilter determina o que aparece na lista suspensa Arquivos do tipo da caixa de diálogo. Este argumento consiste em pares de strings de filtro de arquivo seguidas pela especificação de filtro de arquivo curinga, com vírgulas separando cada parte e par. Se omitido, este argumento assume o seguinte padrão:

Todos os arquivos (*.*), *.*

Observe que esta string consiste em duas partes, separadas por uma vírgula:

Todos os arquivos (*.*)

e

*. *

A primeira parte desta string é o texto exibido na lista suspensa Arquivos do tipo. A segunda parte determina quais arquivos a caixa de diálogo exibe. Por exemplo, *. * Significa todos os arquivos.

O código no exemplo a seguir abre uma caixa de diálogo que pede ao usuário um nome de arquivo. O procedimento define cinco filtros de arquivo. Observe que a sequência de continuação de linha do VBA é usada para configurar a variável Filter; fazer isso ajuda a simplificar esse argumento bastante complicado.

Sub GetImportFileName ()
  Dim Finfo As String
  Dim FilterIndex As Long
  Dim Title As String
  Dim FileName As Variant
'Configurar lista de filtros de arquivo
  FInfo = “Arquivos de texto (* .txt), *. Txt,” & _
      “Arquivos Lotus (* .prn), *. Prn,” & _
      “Arquivos separados por vírgula (* .csv), *. Csv,” & _
      “Arquivos ASCII (* .asc), *. Asc,” & _
      "Todos os arquivos (*.*),*.*"
'Exibir *. * Por padrão
  FilterIndex = 5
'Defina a legenda da caixa de diálogo
  Title = “Selecione um arquivo para importar”
'Pegue o nome do arquivo
  FileName = Application.GetOpenFilename (FInfo, _
    FilterIndex, Title)
'Manipular informações de retorno da caixa de diálogo
  Se FileName = False Then
    MsgBox “Nenhum arquivo foi selecionado.”
  Outro
    MsgBox “Você selecionou“ & Nome do arquivo
  Fim se
End Sub

Workbooks.Open FileName