criar macro para criar pasta se não existir

jeanvet · 23 de setembro de 2013

ola, estou utilizando o seguinte codigo para salvar um arquivo automaticamente num local específico, mas o que eu quero é salvar numa pasta de acordo com o mês, por exemplo, estamos em setembro e está salvando na pasta setembro, mas quando formos para outubro o macro cria a pasta outubro...

preciso criar a pasta ano se não existir depois a pasta mes, se não existir e salvar o arquivo. a sequencia de criação de pastas vai ficar a seguinte:

Criar pasta do ano, se não existir, criar pasta Patologia Clinica, criar pasta do mês atual, se não existir.

esse é o codigo q ja tenho. muito obrigado

Sub Salvando()
Dim Nome As String
Dim SDate As String
Dim MyLocal As String
MyLocal = "D:\Documents\2013\setembro\"
Nome = Range("B9").Value
SDate = Now
If Nome <> vbNullString Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
MyLocal & Range("E45").Text & " " & Nome & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
MsgBox "O arquivo " & Nome & " foi salvo em " & SDate & ".", vbOKOnly, "Salvo"
Else
MsgBox "Nome do arquivo inválido", vbOKOnly, "Salvo"
End If
End Sub