none
Salvar Planilha Formato xlsx RRS feed

  • Pergunta

  • 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.

    sexta-feira, 11 de julho de 2014 19:57

Respostas

  • 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!

    • Marcado como Resposta miguelinho70 sábado, 12 de julho de 2014 11:38
    sábado, 12 de julho de 2014 02:15

Todas as Respostas