Entrar Ainda não tem acesso?
Solucionado (ver solução)
Solucionado
(ver solução)
1
resposta

Criando pasta

Referente ao curso VBA: Automatizando tarefas no Excel, no capítulo Laço While e atividade Valor total por cidade

por John Hebert Mancilha Machado
| 61k xp | 1 posts

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?

1 resposta
solução!
por Jonas
| 395.7k xp | 464 posts
Engenheiro

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 Sub

Se você for salvar como o arquivo atual, precisa utilizar o método SaveAs "ActiveWorkbook.SaveAs".