Boa tarde, Thiago! Tubo bem?
Você pode usar essa macro para personalizar o nome de outros arquivos, mas repare no código:
Sub Salvar CSV ()
'
' Salvar CSV Macro
' Grava o arquivo CSV com formatos
'
'
ChDir "C:\Projetos Alura"
ActiveWorkbook.SaveAs Filename:="C:\Projetos Alura\Vendas - com formato - " & format(now(), "yyyy-mm-dd-HH-MM-ss") & ".xlsx" _ , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub
O caminho C:\Projetos Alura\
pode ser personalizado para outro caminho que desejar.
E ao invés de Vendas - com formato - " & format(now(), "yyyy-mm-dd-HH-MM-ss")
, você pode alterar para Lucros - com formato - " & format(now(), "yyyy-mm-dd-HH-MM-ss")
, por exemplo (caso desejasse registrar os lucros de uma planilha).
Em suma, você pode personalizar esse trecho de código para lidar com outros arquivos CSV!
Espero ter ajudado e fico à disposição se precisar.
Abraço e bons estudos!
Caso este post tenha lhe ajudado, por favor, marcar como solucionado