none
como criar pasta se não existir RRS feed

  • Pergunta

  • 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

  • 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