Como abrir um arquivo com o VBA

Muitas vezes é preciso abrir um arquivo com o VBA.

Neste artigo iremos mostrar como fazer para abrir um arquivo utilizando o VBA, e também iremos mostrar um exemplo aonde iremos abrir uma janela aonde um arquivo será selecionado para ser aberto pelo VBA.

Youtube

Assista ao vídeo abaixo, caso prefira aprender como fazer para abrir um arquivo utilizando o VBA assistindo a um vídeo.

Ah, e não se esqueça de se INSCREVER no nosso canal.

 

E coloque o seu melhor e-mail abaixo para receber todas as nossas novidades em primeira mão.

Ambiente do VBA

Para podermos utilizar o VBA, primeiramente precisamos abrir o ambiente do VBA no Excel.

Para isso, vá na aba “Desenvolvedor” e clique em “Visual Basic”.

Ao clicar em “Visual Basic” uma nova janela irá se abrir. Essa nova janela é o ambiente do VBA. 

Para podermos começar a escrever o código que será utilizado precisamos criar um “Módulo”.  

  1. Clique com o botão direito em “VBAProject (Pasta1)”. Uma nova janela irá aparecer.
  2. Clique em “Inserir”
  3. Clique em “Módulo”

Ao criar um “Módulo”(1), o fundo cinza que estava na parte direita da tela, será substituído por uma janela(2), e é nessa janela que iremos escrever o nosso código.

 

Abrir um arquivo com o VBA

Para abrir um arquivo Excel, utilizando o VBA, será necessário utilizar a função Workbooks.Open, quer irá abrir o arquivo selecionado. Para isso basta colocar entre aspas o caminho completo do arquivo.

Note que tanto faz utilizar, ou não, os parênteses junto com a função. Ela irá funcionar do mesmo jeito.

Sub Abrir_Arquivo()

Workbooks.Open "C:\nome_do_arquivo.xlsx"

End Sub
Sub Abrir_Arquivo()

Workbooks.Open ("C:\nome_do_arquivo.xlsx")

End Sub

Abrir um arquivo a partir de uma variável

Para abrir um arquivo, aonde o caminho dele está armazenado em uma variável, basta utilizar a mesma função acima. Mas ao invés de utilizar o caminho do arquivo, iremos utilizar uma variável que tem o caminho do arquivo. 

Sub Utilizar_uma_variavel_para_abrir_um_arquivo()

Dim arquivo As String
arquivo = "C:\nome_do_arquivo.xlsx"
Workbooks.Open arquivo

End Sub
Sub Utilizar_uma_variavel_para_abrir_um_arquivo()

Dim arquivo As String
arquivo = "C:\nome_do_arquivo.xlsx"
Workbooks.Open (arquivo)

End Sub

Abrir uma janela para selecionar um arquivo para abrir

Se ao invés de informar por escrito o caminho completo do arquivo, você queira deixar esse processo um pouco mais dinâmico, através de uma janela que mostrará os arquivos e você escolherá qual arquivo será aberto.

Nesta parte do tutorial iremos mostrar como fazer para abrir essa janela para poder escolher um arquivo e depois o VBA irá abri-lo.

Para isso iremos usar a função Application.GetOpenFilename. Essa função irá abrir uma janela aonde será possível selecionar um arquivo. O arquivo selecionado não será aberto por essa função, essa função irá retornar o caminho completo do arquivo e esse caminho será armazenado em uma variável.

E essa variável será utilizada, depois, pela função Workbooks.Open, que então irá abrir o arquivo selecionado.

Sub Abrir_janela_para_abrir_arquivo()
Dim arquivo As String arquivo = Application.GetOpenFilename(, , "Abrir arquivo") Workbooks.Open arquivo End Sub

Se inscreva!

Se você curtiu esse tutorial, se inscreva para receber o nosso curso gratuito de VBA, assim como as nossas novidades.

Deixe uma resposta

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