VBA: A Função Environ$ ( )

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim SvInput As String
Dim sPathUser As String

sPathUser = Environ$("USERPROFILE")

    If Time>TimeValue("00:01:00") And Time<TimeValue("05:00:00") Then

        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        sPathUser &"\Dropbox\Progressivos\PDF_MG\PR_MG" &"_" & Date - 2 &".pdf" _
        , OpenAfterPublish:=True
     Else

          ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        sPathUser &"\Dropbox\Progressivos\PDF_MG\PR_MG" &"_" &Date - 1 &".pdf" _
        , OpenAfterPublish:=True

    End If

End Sub

 

Há dias, tive necessidade de criar um pouco de código, que desse a possibilidade, em situação de compartilhamento, de, para além de guardar a actualização de uma planilha num folder do DropBox, criasse um backup dessa mesma planilha noutro folder.

Guardar a actualização, é trivial. Contudo, para poder criar-se um backup na “nuvem”, já obriga a que cada um dos compartilhadores mencione o seu perfil:

Para obter este “caminho” (path), a função que se encontra disponível no VBA, é a Função Environ$( ) com o argumento USERPROFILE.

A título de exemplo, abaixo apresento o código que utilizo para que cada compartilhante possa guardar a planilha e efectuar o correspondente backup: