Este fórum está sendo desativado

[engrocha]

Boa tarde!
Preciso de uma macro que abra um determinado arquivo que está em XLS e faça o "Salvar como" desse arquivo mantendo o mesmo nome porém alterando-o para XLSM.

Grato,
Rocha

[WillianVictor]

E aí, @engrocha!
Beleza?

Vê se essa solução lhe atende.

Código: Selecionar todos

Workbooks.Open Filename:="pastaParaAbrirSeuArquivo\nomeDoSeuArquivo.xls"

'eFile recebe o nome da sua pasta de trabalho
Dim eFile as String
eFile = Replace$(ActiveWorkbook.Name, ".xls", ".xlsm")
' Só tome cuidado neste Replace$() ou atribuição de nome ao arquivo, pois dependendo do formato que o arquivo está recebendo na string, não sendo .xls, por exemplo, pode haver uma falha na interação.
' Nada ti impede de adequar essa situação a sua realidade.

Workbooks(eFile).SaveAs Filename:="pastaParaSalvarSeuArquivo\" & eFile, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

Qualquer coisa, avisaê.
Abs.