Views

VBA Excel - Copie Arquivos a partir das suas Datas - Copy all files between certain dates

Inline image 7

Imagine poder automatizar a cópia de arquivos de uma pasta de acordo com a respectiva data da sua gravação.

Esse processo seria muito significativo no que diz respeito a backup dentro de um processo batch.

Também seria proveitoso dentro de um processo onde arquivos texto precisassem ser movidos temporariamente, dentro de um intervalo mensal ou semanal, para uma pasta onde seriam processados e posteriormente deletados.

O exemplo abaixo nos propicia tal liberdade, e nos dá a liberdade de adequá-lo melhor, dentro das nossas necessidades.

Sempre é preciso ter cautela, pois no caso do código abaixo, há a possibilidade de sobrepormos arquivos.

Sub CopyFilesInDates()
    Dim FSO As Object
    Dim FromPath As String
    Dim ToPath As String
    Dim Fdate As Date
    Dim FileInFromFolder As Object 


    FromPath = "C:\Bernardes\Data"  


    ToPath = "C:\Bernardes\Process"     








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


        FromPath = FromPath & "\" 


    End If 








    If Right(ToPath, 1) <> "\" Then 


        ToPath = ToPath & "\" 


    End If 








    Set FSO = CreateObject("scripting.filesystemobject") 








    If FSO.FolderExists(FromPath) = False Then


        MsgBox FromPath & " não existe"


        Exit Sub


    End If 








    If FSO.FolderExists(ToPath) = False Then


        MsgBox ToPath & " doesn't exist"


        Exit Sub


    End If 








    For Each FileInFromFolder In FSO.getfolder(FromPath).Files


        Fdate = Int(FileInFromFolder.DateLastModified)


        'Copy files from 1-Oct-2006 to 1-Nov-2006


        If Fdate >= DateSerial(2006, 10, 1) And Fdate <= DateSerial(2006, 11, 1) Then


            FileInFromFolder.Copy ToPath


        End If


    Next FileInFromFolder 






    MsgBox "Você encontrará os seus arquivos daqui " & FromPath & ", aqui " & ToPath




End Sub





Tags: VBA, Excel, folder, file, pasta, arquivo, copia, planilha, Por data, 







































Nenhum comentário: 















Tags:
,
,
,
,
,
,
,
,


























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: 















Tags:
,
,
,
,
,
,


























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



































Nenhum comentário: 















Tags:
,
,
,
,
,
,
,


























Séries - Dica de como usar o LinkedIn num Perfil profissional - Desenvolva Respostas



















































A maioria de nós tem um perfil no LinkedIn, alguns cuidam esmeradamente dele, e outros simplesmente relegam-no ao abandono. 

























Nem todos desejam ter trabalho para preparar a sua própria página com o seu Curriculum Vitae disponível.











Não devemos subestimar o que o nosso perfil profissional nesta rede pode fazer por nós.




Um perfil bem cuidado pode fazer com que profissionalmente recebamos uma visibilidade que não teríamos de outra maneira. 







Esta Dica de como usar o LinkedIn num Perfil profissional, será bem interessante e pertinente. Ao lê-la, assimile o máximo, tentando colocar em prática a utilização desta poderosa ferramenta de Networking, Marketing e Pesquisa.

















Desenvolva Respostas (LinkedIn answers)











Este é o melhor local para expôr o seu conhecimento. 



Várias pessoas solicitam respostas, e ao mostrar-lhes como podem resolver as suas questões estará automaticamente expondo o seu conhecimento nas respectivas áreas sob o seu domínio.



Pense: A sua resposta ficará pública e disponível para todas as pessoas que estão conectadas ao seu perfil.



Outro aspecto importante é que a sua resposta tem um link direto ao seu perfil. Ao leram a sua resposta podem sentir-se interessados a conectarem-se, ampliando a sua visibilidade às conexões destes novos interessados.



As suas respostas ficarão disponíveis para serem encontradas pelos buscadores na Internet.



Você mesmo pode buscar por perguntas atuais ou antigas e respondê-las por categoria e palavras-chave.



Depois de refletir sobre as inúmeras vantagens advindas das ações acima, pode perceber porque este é o melhor local para você compartilhar o seu conhecimento. 



Tags: LinkedIn, Networking, marketing, Research, Tips, Business, Professionals, profissional, perfil, profile, dicas, repostas, answers































Nenhum comentário: 















Tags:
,
,
,
,
,
,
,
,
,
,
,
,
















 
 
 
 
 
 










Lista 2013 - 200 Livros de Excel - VBA

































Aprendermos coisas online é muito comum hoje em dia. Entramos no Youtube e temos video aulas, buscamos por tutoriais, manuais e Guias. Tudo disponível com fácil acesso na Internet.







Mas o que aconteceu com a aprendizagem da maneira antiga através da leitura de livros?







Aaqueles que preferem aprender Excel através de um bom livro impresso ficará feliz em saber que existem muitos livros em circulação sobre o assunto.







O MS Excel é um grande negócio e há uma abundância de textos para escolher. 







Estou disponibilizando a Lista 2013 - 200 Livros de Excel nas seguintes categorias:













Análise de Dados







Análise de Dados e Visualização







Ciências







Estatística







Excel para MAC







Financeiro







Funções







Gráficos







Negócios







Outras Especialidades







Referências Gerais







Tabela Dinâmica / Pivot Tables







VBA













Solicite o arquivo com os 200 Títulos. Apenas deixe o seu nome com o e-mail nos comentários para que envie a lista para você. A lista tem links para que possa visualizar o conteúdo dos livros diretamente nos respectivos sites.







Vou publicando a lista aos poucos aqui no Blog e espero que gostem.



























Se desejarem deixem alguns títulos nos comentários.







Tags: Books, Excel, Livros, Lista 2013, VBA




  




  





























Nenhum comentário: 















Tags:
,
,
,
,
















 
 










Assinar:
Postagens (Atom)





































































diHITT - Notícias