Salvar Planilha Formato xlsx

Question

Boa tarde!

gostaria de um código para salvar pasta de trabalho sem macro é possível.

Sub Salvar()
 Application.DisplayAlerts = False
    ActiveWorkbook.SaveCopyAs Filename:="C:\Users\MP\Desktop\Cópia.xlsx", FileFormat _
        :=xlOpenXMLWorkbook, CreateBackup:=False
End Sub

Este código esta dando erro, e teria que ser no formato xlsx;  SaveCopyAs.

Agradeço por qualquer dica.

Answer 1

Tente com:

ActiveWorkbook.SaveAs

Answer 2

ActiveWorkbook.SaveAs , não da certo. Porque fecha o arquivo original e abre a cópia.

Answer 3

Qual é o erro que acontece?

Answer 4

Não da erro, a questão é porque não pode fechar a original apenas salvar uma cópia, e esta cópia não tem a necessidade de abrir. 

Answer 5

Miguelinho...

você pode fazer de várias maneiras.... segue uma como exemplo:

Copia apenas as guias que estão no array e salva.... você  também pode mudar o formato...

Sub prcSalvarGuias()

    Sheets(Array("Plan1", "Plan2")).Copy
    ActiveWorkbook.SaveAs ThisWorkbook.Path & "\NomeDaCopia", xlExcel12
    ActiveWorkbook.Close
    
End Sub

Se ajudei, não esqueça de Marcar Como Resposta!

Answer 6

Certíssimo, era isso que precisava, esta vai também para minha coleção de código.

Obrigado Natan Silva