Ir ao conteúdo
  • Cadastre-se
jeanvet

criar macro para criar pasta se não existir

Recommended Posts

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

tentei aqui mano, eu não entendi muito bem onde coloca os nomes ou adiciona algum comando para adicionar 2 pastas ou mais :/ eu n sei nada de vba

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×