Abrir, salvar e fechar outras planilhas

Question

Boa tarde Pessoal,

Sou novo no mundo do VBA e estou com uma dificuldade.

Tenho uma planilha mestra, que alimenta 15 outras planilhas e todo mês tenho que abrir as planilhas que são alimentadas atualizar os valores (elas estão vinculadas a planilha mestre) salvar e fechar, pois os valores atualizados delas alimentam outra planilha.

Gostaria de fazer isso por uma macro, mas não estou conseguindo.

Quando entro com o código :

Sub abrir_arquivo_xlsx()
Workbooks.Open Filename:="C:\Users\NOMEDAPLANILHA.xlsx"
ActiveWorkbook.SaveAs Filename:="C:\Users\NOMEDAPLANILHA.xlsx", CreateBackup:=False
End Sub

Abre a caixa de dialogo que o arquivo já existe e se deseja substitui-lo, gostaria de fazer isso automaticamente e fechar a planilha com os dados atualizados.

Alguém poderia me ajudar?

Obrigado.

Answer 1

Tente assim:

Sub abrir_arquivo_xlsx()
   Dim bd as Workbook
   set bd = Workbooks.Open(Filename:="C:\Users\NOMEDAPLANILHA.xlsx")

   bd.close true
End Sub

---

Natan

Answer 2

Funcionou perfeitamente!!

Muito obrigado!!!