Exportar Excel

Question

Pessoal eu tenho uma planilha a qual tem uma macro dentro dela (formato ".xlsm").
Eu gostaria de exportar o que eu tenho nas minhas planilhas desse arquivo para um arquivo xls com o nome "arquivo2.xls", no local ThisWorkbook.Path & "\Pasta".Como posso fazer isso automaticamente?
Obrigado.

Answer 1

tentei o código:

Sub Salva()

    ChDir _
        ThisWorkbook.Path & "\Histórico"
    ActiveWorkbook.SaveAs Filename:= _
        ThisWorkbook.Path & "\Histórico\26-05.xlsm" _
        , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

Porém não dá certo.

Answer 2

Não entendi. Você quer criar uma cópia dessa Pasta de Trabalho nesse caminho?

Se for isso isso, experimente o código:

ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\Pasta\Cópia de mim.xlsm"

---

Felipe Costa Gualberto - http://www.ambienteoffice.com.br