none
como criar pasta se não existir RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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.

    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

    domingo, 22 de setembro de 2013 16:23
    |

Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Adapte o exemplo abaixo. Sempre será tentada criar a pasta. Se a pasta não existir, não dará erro.

    Sub fncCreateFolder()
    Const cstrRoot As String = "D:\Documents\"
    
    Dim lngYear As Long
    Dim strMonth As String
    
    lngYear = Year(Date)
    strMonth = StrConv(Format(Date, "MMMM"), vbProperCase)
    
    On Error Resume Next
    MkDir cstrRoot & lngYear
    MkDir cstrRoot & lngYear & "\" & strMonth
    On Error GoTo 0
End Sub

    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    quarta-feira, 2 de outubro de 2013 02:17
    |
    Moderador