preciso salvar um arquivo em um local especifico no computador, neste local preciso criar uma pasta diaria e salvar o arquivo dentro desta pasta. como posso fazer isso de maneira automatica?
Você está vendo a versão anterior da nova experiência da Alura que estamos preparando para você. Em breve, ela ganha uma identidade visual novinha totalmente pensada em potencializar seus estudos!
Solucionado
preciso salvar um arquivo em um local especifico no computador, neste local preciso criar uma pasta diaria e salvar o arquivo dentro desta pasta. como posso fazer isso de maneira automatica?
Boa tarde John!
Para criar uma pasta você pode utilizar a função MkDir:
Public Sub criarPastaESalvarArquivo()
pasta = "C:\Users\" + Application.UserName + "\Desktop\" + Format(Now(), "yyyy-mm-dd-hhmmss")
MkDir pasta
arquivo = Format(Now, "yyyy-mm-dd-hhmmss")
ActiveWorkbook.SaveAs (pasta + "\" + arquivo)
End SubSe você for salvar como o arquivo atual, precisa utilizar o método SaveAs "ActiveWorkbook.SaveAs".