Abrir uma pasta e fechar a que Abriu


#1

Bom Dia!
Estou tentando abrir uma pasta e fechar a outra usando está sub

Sub AbrirControle()
Application.DisplayAlerts = False
Workbooks.Open (“C:\Users\Caminho.xlsm”)
Worksheets(“Menu”).Activate 'ativa a planilha desejada
Como fechar o pasta que esta aberta assim que abrir esta
Destas formas não funcionou
Windows(“Nome.xlsm”).Close False
Workbooks.Close (“C:\Users\Caminho.xlsm”)
Application.DisplayAlerts = True
End Sub


#2

@SPP, acho que Workbooks(0).Close deve funcionar para o seu caso.


#3

Xavier, Boa tarde!
Não funcionou.


#4

@SPP, pode anexar o arquivo?


#5

xavier
Segue em anexo
Para fechar todas eu consegui
Abrir outra Pasta.xlsm (19,6 KB)


#6

@SPP, Thisworkbook.Close funcionou aqui: Abrir outra Pasta.xlsm (19,1 KB)


#7

xavier, obrigado!
Funcionou
Já tinha acabado de conseguir deste Jeito, mas do seu jeito fica mais simples.
With Workbooks(“Abrir outra Pasta.xlsm”)
.Saved = True
.Close 0
End With