VBA Excel - Copia todas as Planilhas - Copy all Excel files

Inline image 7

Não é tão difícil precisarmos rapidamente de um código que copie os arquivos de um local para o outro. Copiar na plena acepção da palavra, isto é, mantendo os arquivos originais em seus respectivos lugares.
Sub CopyFiles2Folder()
    Dim FSO As Object
    Dim FromPath As String
    Dim ToPath As String
    Dim FileExt As String 
    Let FromPath = "C:\Bernardes\Data01\Source" 
    Let ToPath = "C:\Bernardes\Data01\Target"   

    Let FileExt = "*.xl*"  
    

    If Right(FromPath, 1) <> "\" Then 
        FromPath = FromPath & "\" 
    End If

    Set FSO = CreateObject("scripting.filesystemobject")

    If FSO.FolderExists(FromPath) = False Then
        MsgBox FromPath & " doesn't exist"
        Exit Sub
    End If 

    If FSO.FolderExists(ToPath) = False Then
        MsgBox ToPath & " doesn't exist"
        Exit Sub
    End If 

    FSO.CopyFile Source:=FromPath & FileExt, Destination:=ToPath
    MsgBox "Pode encontrar os arquivos que estavam aqui " & FromPath & ", aqui " & ToPath

End Sub
Tags: VBA, Excel, file, pasta, arquivo, copiar, planilha






Nenhum comentário:

Postar um comentário

diHITT - Notícias