Abra e feche a pasta de trabalho do Excel usando VBA

Anonim

Neste artigo, aprenderemos sobre como fechar e abrir o método no Excel VBA que é usado para abrir a pasta de trabalho fechada e também fechar a pasta de trabalho aberta.

Criamos botão de comando na planilha do Excel e atribuímos macro.

Para saber como criar um controle Activex clique no link

https://www.exceltip.com/tips/activex-controls-in-microsoft-excel-2010.html

Como abrir a pasta de trabalho do Excel por meio do VBA?

Siga as etapas e codificação fornecidas abaixo: -

  • Insira 2 botões de comando.
  • Primeiro botão de comando que usamos para clicar com o botão direito do mouse no botão de comando.
  • A página do VBE será aberta, copie a codificação abaixo e cole na página do VBE.
  • Para abrir a pasta de trabalho, atribua a macro mencionada abaixo.
Sub sOpenWorkbook ()
'define a variável para o nome do arquivo
Dim csFileName As String
'obter o nome do arquivo da célula A1 na Planilha1
csFileName = ThisWorkbook.Sheets ("Exemplo de abertura e fechamento"). Range ("A1")
'abrir a pasta de trabalho
Workbooks.Open csFileName
MsgBox csFileName & "aberto"
End Sub
  • O segundo botão de comando que usamos para clicar com o botão direito do mouse no botão de comando.
  • A página do VBE será aberta, copie a codificação abaixo e cole na página do VBE.
  • Para abrir a pasta de trabalho, atribua a macro mencionada abaixo.
Sub sCloseWorkbook ()
'define a variável para o nome do arquivo
Dim csFileName As String
'obter o nome do arquivo da célula A1 na Planilha1
csFileName = ThisWorkbook.Sheets ("Exemplo de abertura e fechamento"). Range ("A1")
'feche a pasta de trabalhoWorkbooks (Split (csFileName, "\") (UBound (Split (csFileName, "\")))). CloseMsgBox Split (csFileName, "\") (UBound (Split (csFileName, "\")))) & " fechado"
End Sub

Ambas as macros serão atribuídas aos botões de comando, temos que usar a codificação de macro abaixo.

Opção Explícita
Sub sExample () Const csFileName As String = _
"C: \ Test \ Master.xlsx" Workbooks.Open
csFileNameWorkbooks (Split (csFileName, "\") (UBound (Split (csFileName, "\")))). Fechar
End SubSub sOpenWorkbook ()
'define a variável para o nome do arquivo
Dim csFileName As String
'obter o nome do arquivo da célula A1 na Planilha1
csFileName = ThisWorkbook.Sheets ("Example Open and Close"). Range ("A1") 'abre a pasta de trabalho
Workbooks.Open csFileNameMsgBox csFileName & "aberto"
End SubSub sCloseWorkbook ()
'define a variável para o nome do arquivo
Dim csFileName As String 'obtém o nome do arquivo da célula A1 na Folha1
csFileName = ThisWorkbook.Sheets ("Exemplo de abertura e fechamento"). Range ("A1")
'feche a pasta de trabalhoWorkbooks (Split (csFileName, "\") (UBound (Split (csFileName, "\")))). CloseMsgBox Split (csFileName, "\") (UBound (Split (csFileName, "\")))) & " fechado"
End Sub

Observação: - Você deve mencionar o caminho de acordo com seu arquivo.