Important:

Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog podem ser tratados como consultoria freelance.

Views

Histats

Vitrine

+Views

Widgets Mundo Blogger

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, 






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






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





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 NetworkingMarketing 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



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



Related Posts Plugin for WordPress, Blogger...
diHITT - Notícias