O Perto e Método Aberto em Excel VBA pode ser usado para fechar e abrir pastas de trabalho. Lembre-se de que a coleção Workbooks contém todos os objetos Workbook que estão abertos no momento.
Coloque um botão de comando em sua planilha e adicione as seguintes linhas de código:
1. A linha de código abaixo fecha close-open.xlsm.
Pastas de trabalho ("close-open.xlsm"). Fechar
2. A linha de código abaixo fecha a primeira pasta de trabalho aberta / criada.
Cadernos de exercícios (1). Fechar
3. A linha de código abaixo fecha a pasta de trabalho ativa.
ActiveWorkbook.Close
4. A linha de código abaixo fecha todas as pastas de trabalho que estão abertas no momento.
Workbooks.Close
5. A linha de código abaixo abre sales.xlsx.
Workbooks.Open ("vendas.xlsx")
Nota: você só pode abrir sales.xlsx sem especificar o caminho do arquivo se ele estiver armazenado em seu local de arquivo padrão. Para alterar o local padrão do arquivo, na guia Arquivo, clique em Opções, Salvar.
6. Você também pode usar o método GetOpenFilename do objeto Aplicativo para exibir a caixa de diálogo Abrir padrão.
Dim MyFile As String
MyFile = Application.GetOpenFilename ()
7. Selecione um arquivo e clique em Abrir.
Nota: GetOpenFilename não abre realmente o arquivo.
8. Em seguida, você pode abrir a pasta de trabalho normalmente.
Workbooks.Open (MyFile)