GetOpenFileName do VBA do Excel

Existem várias maneiras de abrir qualquer arquivo. Mas também existem várias maneiras de abrir o mesmo arquivo. No VBA, temos funções diferentes pelas quais podemos abrir qualquer arquivo. Podemos abrir o arquivo colocando o caminho do arquivo no código VBA, podemos até gravar esse processo também. Mas a melhor maneira de abrir qualquer arquivo no VBA é com a ajuda do aplicativo VBA GetOpenFileName . Como o nome diz, é puramente feito para o aplicativo ao abrir qualquer arquivo no VBA.

Em outras funções ou aplicativos que funcionam com o mesmo princípio, podemos precisar copiar o arquivo do arquivo separado por barras invertidas, mantendo o nome da pasta e os espaços exatos entre a barra invertida. Além disso, podemos precisar digitar o nome exato do arquivo junto com a extensão que queremos abrir. Mas no VBA GetOpenFileName, basta selecionar o arquivo no local. Ele fornecerá a caixa de onde podemos procurar o arquivo onde ele é mantido e a extensão do arquivo também será corrigida.

Sintaxe do GetOpenFilename no VBA

Vamos olhar abaixo a fórmula para GetOpenFilename no Excel VBA.

Abaixo está o argumento do aplicativo VBA GetOpenFileName.

  • FileFilter - Nisto, podemos definir que tipo de arquivo queremos ver. Por exemplo, se mencionarmos “Arquivos do Excel, *. Xlsx”, ele encontrará e mostrará todos os arquivos do Excel no formato .xlsx. Se mencionarmos “Arquivos PDF, *. Pdf”, ele encontrará e exibirá apenas todos os arquivos PDF.
  • FilterIndex - Dessa forma, podemos permitir que um usuário restrinja a seleção do tipo de arquivo. Podemos especificar o número de arquivos que precisamos mostrar.
  • Título - Mostra o arquivo selecionado no título da caixa de diálogo.
  • ButtonText - É apenas para usuários de MacBook.
  • Seleção múltipla - Se selecionarmos vários arquivos, será VERDADEIRO ou FALSO, que é de qualquer forma um valor padrão.

Como abrir o arquivo usando GetOpenFileName no Excel VBA?

Abaixo estão os diferentes exemplos para abrir um arquivo usando o aplicativo GetOpenFileName no Excel VBA.

Você pode baixar este modelo de Excel do VBA GetOpenFileName aqui - Modelo de Excel do VBA GetOpenFileName

GetOpenFileName do VBA do Excel - Exemplo # 1

Neste exemplo, veremos como abrir um arquivo do Excel primeiro. Siga as etapas abaixo para usar GetOpenFileName no Excel VBA:

Etapa 1: Vá para o menu Inserir e clique em Módulo para abri-lo.

Etapa 2: escreva a subcategoria do VBA Getopenfilename ou escolha qualquer outro nome, conforme sua escolha, para definir a subcategoria.

Código:

 Sub OpenFile () End Sub

Etapa 3: Agora defina uma variável e forneça uma String como mostrado abaixo. Escolhendo uma String, porque escolheremos ou selecionaremos o nome do arquivo.

Código:

 Sub OpenFile () Dim A Como String End Sub

Etapa 4: Agora, na variável definida A, use Application como mostrado abaixo.

Etapa 5: Agora pesquise e selecione o GetOpenFileName na lista de aplicativos ativada, como mostrado abaixo.

Etapa 6: Agora use MsgBox para obter a localização do arquivo que selecionamos.

Código:

 Sub OpenFile () Dim A como String A = Application.GetOpenFilename () MsgBox A End Sub

Etapa 7: Agora compile o código pressionando a tecla de função F5 e execute-o clicando no botão Play. Agora procure o arquivo que queremos selecionar. Aqui seguimos o caminho e selecionamos o arquivo do Excel chamado Arquivo de Teste, que geralmente está no formato .xlsx . Clique em Abrir.

Ele mostrará o caminho do arquivo que selecionamos anteriormente em uma caixa de mensagem, como mostrado abaixo.

Etapa 8: Agora, conforme a sintaxe, usaremos o Filefilter no suporte do aplicativo GetOpenFilename. Como sabemos, ele serve para escolher o tipo de arquivo que queremos abri-lo. Então, colocaremos "Arquivos do Excel", como mostrado abaixo.

Código:

 Sub OpenFile () Dim A como String A = Application.GetOpenFilename (Filefilter: = "Excel Files") MsgBox A End Sub

Etapa 9: Agora coloque a extensão do arquivo do Excel que selecionamos anteriormente. Era " .xlsx ", então manteremos isso também no FileFilter.

Código:

 Sub OpenFile () Dim A como String A = Application.GetOpenFilename (Filefilter: = "Arquivos do Excel, * .xlsx") MsgBox A End Sub

Etapa 10: Agora, executaremos o código completo novamente. Na pasta de navegação, obteremos apenas arquivos do Excel que estão disponíveis nessa pasta pela qual navegamos anteriormente.

E se tentarmos ver qualquer outro formato ou extensão de arquivo nos arquivos do Excel suspenso, ele mostrará novamente apenas os arquivos do Excel.

GetOpenFileName do VBA do Excel - Exemplo # 2

Da mesma maneira, podemos ver o nome do arquivo aberto com a extensão " .pdf ". Siga as etapas abaixo para usar GetOpenFileName no Excel VBA:

Etapa 1: Agora escreva novamente o código que vimos no exemplo-1.

Código:

 Sub OpenFile1 () Dim A como String A = Application.GetOpenFilename () MsgBox A End Sub

Etapa 2: Ele nos levará para a mesma janela ou então navegará para a mesma pasta. Agora selecione qualquer um dos arquivos PDF e clique em Abrir.

Isso nos dará o caminho do arquivo selecionado.

Etapa 3: Agora, para obter o arquivo PDF selecionado, na sintaxe do FileFilter, escreva “Arquivos PDF” em vez de “Arquivos Excel” e selecione a extensão do PDF que é “ .pdf ”, como mostrado abaixo.

Código:

 Sub OpenFile1 () Dim A como String A = Application.GetOpenFilename (Filefilter: = "Arquivos PDF, * .pdf") MsgBox A End Sub

Etapa 4: compile novamente o código e execute-o. Obteremos a pasta do navegador para abrir os arquivos. Nesse sentido, obteremos apenas os arquivos com a extensão " .pdf ", como mostrado abaixo.

E se tentar filtrar outros formatos de arquivo, novamente será possível ver apenas arquivos PDF, como mostrado abaixo.

E se não selecionarmos nenhum arquivo e sairmos da janela, ela exibirá uma mensagem padrão que é False .

Profissionais do Excel VBA GetOpenFileName

  • O VBA GetOpenFileName nos ajuda a abrir o arquivo diretamente sem colar o caminho desse arquivo no código VBA.
  • Não precisamos alterar o caminho dos arquivos várias vezes.
  • Navegar e selecionar os arquivos através disso é tão simples quanto acessar a pasta para abri-la.

Contras do Excel VBA GetOpenFileName

  • Precisamos alterar a extensão de um arquivo que queremos abrir, se houver uma alteração.

Coisas para lembrar

  • Altere a extensão do arquivo sempre que precisar abrir uma versão diferente do arquivo.
  • Caixa de mensagem com uma mensagem como FALSE é a mensagem padrão que será exibida sempre que não selecionarmos nenhum arquivo para abrir.
  • Esse tipo de processo não pode ser criado com a ajuda da função Gravar Macro.
  • Lembre-se de salvar o arquivo no formato Excel ativado por macro. Para que o código VBA escrito seja preservado.

Artigos recomendados

Este é um guia para o VBA GetOpenFileName. Aqui discutimos como abrir um arquivo usando o aplicativo GetOpenFileName no Excel usando o código VBA, juntamente com alguns exemplos práticos e modelo de excel para download. Você também pode consultar nossos outros artigos sugeridos -

  1. Localizar e substituir VBA (exemplos)
  2. Planilhas de grupo no Excel
  3. Pasta de trabalho do VBA
  4. Referências de célula no Excel

Categoria:

VBA