Criar pasta VBA

[Kristofer Siqueira 0]

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.

[xanburzum 169]

Use o componente OWC10.Spreadsheet