Como usar o método GetOpenFilename no Excel 2016 VBA

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.


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.

Apache Open Office

Apache Open Office

Apache OpenOffice oferece um conjunto completo de aplicativos Office que rivalizam com o Microsoft 365, especialmente em Excel, PowerPoint e Word. Ele permite que você gerencie seus projetos de forma mais eficaz e suporta diversos formatos de arquivo.

Baixar iTaxviewer 1.8.7

Baixar iTaxviewer 1.8.7

O software iTaxViewer é o software de leitura de arquivos XML mais popular atualmente. Este software é uma aplicação para leitura de declarações fiscais eletrónicas em formato XML da Direção Geral de Impostos.

Leitor de PDF Nitro

Leitor de PDF Nitro

Nitro PDF Reader é um prático editor de PDF que cobre todas as tarefas básicas que a maioria das pessoas realiza todos os dias com documentos PDF.

Leitor Foxit 12

Leitor Foxit 12

Foxit Reader é principalmente um leitor de PDF e também permite criar arquivos PDF, assiná-los, editá-los e adicionar anotações. Funciona em sistemas operacionais, existem plugins para diversos programas do pacote Microsoft Office.