Código VBA para abrir arquivo Excel da pasta

Código VBA para abrir arquivo Excel da pasta
Índice

Abra o arquivo Excel da pasta com código VBA

O que é isso:

Este código VBA irá ajudá-lo a navegar e abrir um arquivo Excel de uma pasta ou diretório.

Por que:

Quando você cria um programa e deseja fornecer ao usuário a opção de selecionar um determinado arquivo Excel e abri-lo, este código pode ser usado para o mesmo.

Como para abrir o arquivo Excel da pasta usando o código VBA:

Passo 1: Abra a pasta de trabalho e pressione Alt + F11 para inserir o código.

Abra o arquivo Excel da pastaPin

Passo 2: Copie e cole o código abaixo na janela do editor VBA e salve a pasta de trabalho.




Sub OpenSpecificWorkbook()

Escurecer xlNome Como variante

xlName = Application.GetOpenFilename(FileFilter:=”Pastas de trabalho do Excel,*.xl*”, Title:=”Escolha uma pasta de trabalho para abrir”, MultiSelect:=Falso)  'O método GetOpenFilename ativa a caixa de diálogo

Se xlNome <> Falso então

Pastas de trabalho.Open Nome do arquivo:=xlName

Fim se

Finalizar sub

Etapa 3: insira um botão de comando no Excel Arquivo ou UserForm e atribua esta macro.
Picture of Anson Antony
Anson Antônio
Anson é autor colaborador e fundador da www.askeygeek.com. Aprender algo novo sempre foi sua paixão, ASKEYGEEK.com é o resultado de sua paixão por tecnologia e negócios. Ele tem uma década de experiência versátil em terceirização de processos de negócios, finanças e contabilidade, tecnologia da informação, excelência operacional e inteligência de negócios. Durante sua gestão, ele trabalhou para organizações como Genpact, Hewlett Packard, M*Modal e Capgemini em diversas funções e responsabilidades. Fora dos negócios e da tecnologia, ele é um cinéfilo que passa horas juntos assistindo e aprendendo Cinema e também Cineasta!

Deixe um comentário

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Parabéns!
Você conseguiu,
Não feche!

Levante-se para 60.000 Créditos de personagem UberTTS de graça!!!

Este pop-up não vai aparecer você decide de novo!!!

UberTTS
Share to...