VBA Excel - Mova todas as Planilhas - Move 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 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