none
Exportar Excel RRS feed

  • Pergunta

  • 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.
    segunda-feira, 25 de junho de 2012 17:43

Respostas

  • 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

    • Marcado como Resposta dmfmakko terça-feira, 26 de junho de 2012 11:19
    segunda-feira, 25 de junho de 2012 22:26
    Moderador

Todas as Respostas

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

    segunda-feira, 25 de junho de 2012 20:00
  • 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

    • Marcado como Resposta dmfmakko terça-feira, 26 de junho de 2012 11:19
    segunda-feira, 25 de junho de 2012 22:26
    Moderador