Olá, estou com uma duvida.
Gostaria de saber como, utilizando o VBA, criar uma pasta com o ano vigente, depois, dentro da pasta com o ano vigente criasse uma pasta do mês vigente e dentro desta pasta do mês vigente salvasse o excel que estou trabalhando.
Sendo organizado desta maneira. ANO>MÊS>EXCEL
Estava usando o código abaixo, mas este código não cria uma pasta dentro da outra e não salva meu excel dentro da pasta do mês vigente.
Sub Salvamento()
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
NomePasta = Format(Date, "YYYY")
If Not fso.FolderExists(NomePasta) Then
fso.CreateFolder (NomePasta)
End If
Set fso = CreateObject("Scripting.FileSystemObject")
Pasta = Format(Date, "MM")
If Not fso.FolderExists(Pasta) Then
fso.CreateFolder (Pasta)
End If
End Sub
Agradeço muito a ajuda de todos.