Como usar o método GetOpenFilename no Excel 2016 VBA

Se o procedimento do VBA precisar solicitar ao usuário um nome de arquivo, você pode usar a função InputBox e permitir que o usuário do Excel faça alguma digitação. Uma caixa de entrada geralmente não é a melhor ferramenta para esse trabalho, no entanto, porque a maioria dos usuários acha difícil lembrar caminhos, barras invertidas, nomes de arquivos e extensões de arquivos. Em outras palavras, é muito fácil errar ao digitar um nome de arquivo.

Para uma solução melhor para esse problema, use o método GetOpenFilename do objeto Application, que garante que seu código tenha um nome de arquivo válido, incluindo seu caminho completo. O método GetOpenFilename exibe a familiar caixa de diálogo Abrir (uma campainha morta para a caixa de diálogo do Excel é exibida quando você escolhe Arquivo → Abrir → Procurar).

O método GetOpenFilename não abre realmente o arquivo especificado. Este método simplesmente retorna o nome do arquivo selecionado pelo usuário como uma string. Em seguida, você pode escrever o código para fazer o que quiser com o nome do arquivo.

A sintaxe do método GetOpenFilename

A sintaxe oficial do método GetOpenFilename é a seguinte:

object.GetOpenFilename ([fileFilter], [filterIndex],
  [title], [buttonText], [multiSelect])

O método GetOpenFilename usa os argumentos opcionais abaixo.

Argumento O que faz
FileFilter Determina os tipos de arquivos que aparecem na caixa de diálogo
(por exemplo, * .TXT). Você pode especificar vários filtros para o usuário
escolher.
FilterIndex Determina quais filtros de arquivo a caixa de diálogo exibe por
padrão.
Título Especifica a legenda da
barra de título da caixa de diálogo .
Botão de texto Ignorado (usado apenas para a versão Macintosh do Excel).
MultiSelect Se for True, o usuário pode selecionar vários arquivos.

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

Esta é a caixa de diálogo que o Excel exibe quando você executa este procedimento. A aparência pode variar, dependendo da versão do Windows que você usa e das opções de exibição definidas.

Como usar o método GetOpenFilename no Excel 2016 VBA

O método GetOpen Filename exibe uma caixa de diálogo personalizável e retorna o caminho e o nome do arquivo selecionado. Ele não abre o arquivo.

Em um aplicativo real, você faria algo mais significativo com o nome do arquivo. Por exemplo, você pode querer abri-lo usando uma instrução como esta:

Workbooks.Open FileName

Observe que a variável FileName é declarada como um tipo de dados Variant. Se o usuário clicar em Cancelar, essa variável conterá um valor booleano (Falso). Caso contrário, FileName é uma string. Portanto, usar um tipo de dados Variant trata de ambas as possibilidades.

Leave a Comment

12 Atalhos de teclas de função do Word 2016

12 Atalhos de teclas de função do Word 2016

Descubra os principais atalhos de teclado do Word 2016 para melhorar sua produtividade. Desde o uso das teclas de função até rápidas combinações de atalhos.

Apagar desenhos de caneta e marca-texto nos slides do PowerPoint

Apagar desenhos de caneta e marca-texto nos slides do PowerPoint

Aprenda como apagar desenhos de caneta e marca-texto nos slides do PowerPoint para manter suas apresentações sempre organizadas e profissionais.

Como remover campos e itens calculados de uma tabela dinâmica do Excel

Como remover campos e itens calculados de uma tabela dinâmica do Excel

Você pode remover facilmente campos e itens calculados de uma tabela dinâmica do Excel. Siga os passos simples para gerenciar seus dados de forma eficiente!

Como usar o recurso de documento mestre do Word 2019

Como usar o recurso de documento mestre do Word 2019

Descubra como usar o recurso de documento mestre do Word 2019 para organizar grandes documentos de forma eficiente e otimizar a edição. Ideal para romances e textos longos.

Smartsheet 9.1.1

Smartsheet 9.1.1

Smartsheet é uma plataforma de trabalho dinâmica que permite gerenciar projetos, criar fluxos de trabalho e colaborar com sua equipe.

SharePoint

SharePoint

SharePoint é um sistema de colaboração baseado na web que usa uma variedade de aplicativos de fluxo de trabalho, bancos de dados de “lista” e outros componentes da web, bem como recursos de segurança para dar controle ao trabalho conjunto de grupos empresariais.

Calendário Perpétuo 1.0.38/1.0.36

Calendário Perpétuo 1.0.38/1.0.36

Van Nien Calendar é um aplicativo de visualização de calendário em seu telefone, ajudando você a ver rapidamente a data lunisolar em seu telefone, organizando assim seu trabalho importante.

Microsoft Outlook 2021

Microsoft Outlook 2021

O Microsoft Outlook é um aplicativo comercial e de produtividade desenvolvido pela Microsoft Corporation.

Clique para cima

Clique para cima

ClickUp é uma das plataformas de produtividade mais bem avaliadas para qualquer empresa. Grandes empresas como Google, Booking.com, San Diego Padres e Uber usam ClickUp para aumentar a produtividade no local de trabalho.

Visualizador PDF-XChange 2.5.322.10

Visualizador PDF-XChange 2.5.322.10

PDF se tornou um formato comumente usado para leitura, criação e envio de documentos de texto. Por sua vez, tem havido um aumento no número de programas utilizados para este tipo de documentação. PDF-XChange Viewer está entre um número crescente de visualizadores de PDF.