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

|Blog Office VBA | Blog Excel | Blog Access | Blog Infochart | 

DESENVOLVO APLICAÇÕES VBA

Acesse uma ENORME lista de Dashboards e Infográficos

Aprenda a detectar gráficos que precisam mudar

Dados ou Informações?

Dashboards - 8 Importantes características desejáveis

Dashboards e Infocharts - Diversas Visualizações de Dados

Diversos exemplos de Gráficos

Excel - DashMap - Mapa do Brasil

Key Performance Indicators - 7 Características desejáveis

MIS - Usufruindo a excelência na análise das suas Informações

O Melhor do Business Intelligence

Os 10 mandamentos do gerenciamento de projetos

Receba  3 Calendários Customizáveis de  2013 em Excel

Usando Gauges em Dashboards no MS Access

Você tem direito as informações da sua empresa

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