Views

Histats

Vitrine

VBA Excel - Mova todas as Planilhas - Move all Excel files

Inline image 7

Não é tão difícil precisarmos rapidamente de um código que mova arquivos de um local específico para outro. No exemplo abaixo pode fazer isso com planilhas, mas certamente poderá adequar o código para mudar qualquer tipo de arquivo para onde desejar.

É importante perceber que mover envolver apagar os mesmos arquivos da origem.
Sub MoveFiles2NewFolder()
    Dim FSO As Object
    Dim FromPath As String
    Dim ToPath As String
    Dim FileExt As String
    Dim FNames As String
    Let FromPath = "C:\Bernardes\Place01\Database"  '<< Change
    Let ToPath = "C:\Bernardes\newPlace\" & Format(Now, "yyyy-mm-dd h-mm-ss") _ 
           & " Excel" & "\" 
    Let FileExt = "*.xl*"   
    If Right(FromPath, 1) <> "\" Then
        FromPath = FromPath & "\"
    End If 
    Let FNames = Dir(FromPath & FileExt)
    If Len(FNames) = 0 Then
        MsgBox "Nenhum arquivo encontrado em " & FromPath 
        Exit Sub
    End If 
    Set FSO = CreateObject("scripting.filesystemobject") 
    FSO.CreateFolder (ToPath)
    FSO.MoveFile Source:=FromPath & FileExt, Destination:=ToPath
    MsgBox "You can find the files from " & FromPath & " in " & ToPath
End Sub


Tags: VBA, Excel, folder, file, pasta, arquivo, mover, planilha





✔ VBA Brazil®

✔ VBA Brazil®
brazilsalesforceeffectiveness@gmail.com
Related Posts Plugin for WordPress, Blogger...
diHITT - Notícias