Pasta de trabalho do VBA do Excel aberta

As operações mais comuns na vida cotidiana são abrir pastas de trabalho do Excel quando você estiver trabalhando com o Excel. Você não pode trabalhar no Excel sem abrir as pastas de trabalho ou o arquivo do Excel. Portanto, neste artigo, abordaremos como podemos abrir uma pasta de trabalho do Excel com a ajuda do VBA.

Métodos para abrir pastas de trabalho Exel no VBA

Existem dois métodos para abrir as pastas de trabalho do Excel no VBA e abordaremos os dois métodos neste artigo.

Você pode fazer o download deste modelo de Excel aberto do VBA Workbook aqui - Modelo de Excel aberto do VBA Workbook

Método 1 - Método VBA Workbooks.open do Excel

O primeiro método no VBA é usar a função incorporada Workbooks.open . Existem 15 argumentos opcionais na função "Workbooks.open" e para cobrir todos os 15 argumentos levará muito tempo. Portanto, apenas tentaremos entender alguns conceitos básicos do Workbooks.open e ver como podemos usar essa função no VBA para abrir os Workbooks.

Portanto, a primeira etapa deste método é saber o nome do arquivo das Pastas de Trabalho do Excel. Abaixo está a declaração para abrir as pastas de trabalho. ”Workbooks.open“ File_Name ”

Ou

Pasta de trabalho.Open FileName: = ”File_Name”

O "Nome_do_Arquivo" é o nome das pastas de trabalho que você deseja abrir. Mas você precisa ter cuidado aqui, pois precisa fornecer o caminho completo em que o arquivo é salvo e o nome do arquivo com a extensão dos arquivos (.XLS, .XLSX, .xlsm, etc.). Podemos usar o exemplo da macro abaixo para entender essa função.

Exemplo

Suponha que você queira abrir um arquivo do Excel com o nome "Arquivo de Teste", que é salvo na Unidade D do computador. Crie uma macro em uma pasta de trabalho habilitada para macro do Excel. Siga as etapas abaixo para usar o método Excel VBA Workbooks.open.

Etapa 1: clique em Arquivo.

Etapa 2: Clique em Opções .

Etapa 3: clique em Personalizar fita .

Etapa 4: verifique se o campo Desenvolvedor está marcado como abaixo e clique em ok.

Etapa 5: depois de ter a guia do desenvolvedor, clique em Visual basic, como mostrado na captura de tela abaixo.

Depois de clicar no Visual Basics, você precisa começar a codificar para sua macro.

Etapa 6: digite o código abaixo no módulo VBA.

Código:

 Sub Open_workbook () End Sub

Este código fornece o nome para sua pasta de trabalho.

Etapa 7: Digite o código que pode abrir a pasta de trabalho salva na unidade D do computador.

Código:

 Sub Open_workbook () Workbooks.Open Nome do arquivo: = "D: \ Test File.xlsx" End Sub

Etapa 8: execute o código pressionando a tecla F5 ou clicando no botão Play. Depois de executar a macro, você verá que o arquivo do Excel é aberto automaticamente. Como você pode ver no código acima, a macro abrirá o arquivo do Excel com o nome "Test File.xlsx", que é salvo na unidade D do computador. O caminho mencionado acima é bastante simples, porque não há pastas e subpastas para obter as pastas de trabalho.

Isso se torna desafiador, porque muitas pessoas não se lembram do caminho e se o caminho do arquivo em que ele é salvo mudar um pouco, a macro não funcionará. A macro não funcionará mesmo se o nome do arquivo for alterado por uma única letra. Portanto, se o caminho / nome do arquivo for alterado, você precisará alterar o código VBA da macro. Isso torna o trabalho tedioso e também não está livre de erros. Portanto, para garantir que sua macro funcione perfeitamente sem causar erros, usaremos o segundo método fácil de manipular e não cometerá erros, mesmo quando você não se lembrar do nome do caminho ou mesmo quando o nome do arquivo for alterado .

Método 2 - Obter nome de arquivo aberto

Como você conhece os desafios que enfrentamos no Primeiro método da mudança de caminho e no Nome do arquivo, esse método evita os dois desafios. Este método oferece a opção de navegar no seu computador para o local em que seu arquivo é salvo e abre as pastas de trabalho específicas que você deseja abrir.

Este método realmente funciona em duas partes.

A primeira parte desse método é Application.GetOpenFileName. Esta parte permite que você navegue pelo seu computador e selecione o caminho em que seu arquivo é salvo. A primeira parte não abre o arquivo que você deseja abrir.

A segunda parte é abrir o arquivo do qual você ainda precisa depender do Primeiro Método (Método VBA Workbooks.open). Existem 5 argumentos no Application.GetOpenFileName, mas analisamos apenas o básico, como fizemos no primeiro método. Agora vamos tentar entender esse método com a ajuda de um exemplo.

Exemplo

Suponha que você queira abrir o “Arquivo de Teste” salvo na unidade D do computador e siga as etapas abaixo.

Etapa 1: Siga a etapa 1 mencionada no primeiro exemplo para abrir o Editor do Visual Basic ou Abrir o Editor do Visual Basic na guia Desenvolvedor.

Etapa 2: digite o código abaixo, que fornece o nome para sua macro.

Código:

 Sub Open_workbook_example2 () End Sub

Etapa 3: digite o código abaixo. Esta declaração declara o Nome do arquivo como Variável, porque aqui não estamos especificando nenhum caminho ou nome de arquivo, pois ele pode mudar de tempos em tempos.

Código:

 Sub Open_workbook_example2 () Dim Myfile_Name como variante End Sub

Etapa 4: digite o código abaixo. Esta declaração abre a caixa de diálogo abaixo e você pode procurar as pastas para ir para o caminho em que o arquivo está salvo. Além disso, ele mostrará o arquivo do Excel durante a navegação, porque colocamos um filtro para os arquivos do Excel.

Código:

 Sub Open_workbook_example2 () Dim Myfile_Name As Variant Myfile_Name = Application.GetOpenFilename (FileFilter: = "Arquivos do Excel (*. Xl *), *. Xl *)") End Sub

Etapa 5: digite o código abaixo. Esta instrução é If Then que é usada quando o arquivo .Name não é igual a false e, em seguida, abra o arquivo selecionado do Excel.

Código:

 Sub Open_workbook_example2 () Dim Myfile_Name como variante Myfile_Name = Application.GetOpenFilename (FileFilter: = "Arquivos do Excel (*. Xl *), *. Xl *)") Se MyFile_Name falso, então Workbooks.Open FileName: = Myfile_Name End Sub

Etapa 6: digite o código abaixo. Essa instrução fecha a condição If then na macro.

Código:

 Sub Open_workbook_example2 () Dim Myfile_Name como variante Myfile_Name = Application.GetOpenFilename (FileFilter: = "Arquivos do Excel (*. Xl *), *. Xl *)") Se MyFile_Name falso, então Workbookss.Open FileName: = Myfile_Name End If End End Sub

Etapa 7: Agora execute o código pressionando a tecla F5 ou clicando no botão Play. Você verá a caixa de diálogo para procurar o arquivo será aberto. Navegue até a área de trabalho em que seu arquivo está salvo. Agora você poderá ver o arquivo no D Drive. Selecione o arquivo e clique em abrir.

Agora, como acabamos de ver em nosso exemplo, não precisamos nos preocupar com o nome do arquivo e o nome do caminho em que o arquivo é salvo. Podemos navegar facilmente para a pasta onde nosso arquivo está salvo e selecionar o arquivo que queremos abrir. Portanto, podemos concluir facilmente que esse método é muito mais eficiente comparado ao primeiro método.

Coisas para lembrar

  • Verifique se o nome do caminho e o nome do arquivo estão corretos ao usar o primeiro método. A macro não funcionará quando houver uma alteração por letra ou espaço no caminho ou no Nome do arquivo.
  • Verifique se os filtros mencionados no código no 2º método estão corretos. Existem muitos formatos do Excel que podem não estar visíveis devido a um filtro.
  • Verifique se a declaração e o código usado no VBA estão corretos para evitar erros.

Artigos recomendados

Este é um guia para o VBA Workbook Open. Aqui discutimos dois métodos diferentes para abrir a pasta de trabalho usando o código VBA do Excel, além de exemplos práticos e modelo do Excel para download. Você também pode consultar os seguintes artigos para saber mais -

  1. Guia completo da pasta de trabalho do VBA
  2. Fórmula HYPERLINK no Excel
  3. Abrir arquivos com o VBA FileDialog
  4. Exemplos de planilhas do Excel

Categoria:

VBA